--- loncom/interface/lonchat.pm 2006/06/28 23:56:09 1.14
+++ loncom/interface/lonchat.pm 2009/04/04 21:47:40 1.19
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Chat
#
-# $Id: lonchat.pm,v 1.14 2006/06/28 23:56:09 raeburn Exp $
+# $Id: lonchat.pm,v 1.19 2009/04/04 21:47:40 bisitz Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -32,6 +32,7 @@ use strict;
use Apache::Constants qw(:common :http);
use Apache::loncommon;
use Apache::lonnet;
+use Apache::lonlocal;
sub handler {
my $r = shift;
@@ -46,7 +47,7 @@ sub handler {
$group_elem = '';
if ((! &Apache::lonnet::allowed('pgc',$env{'request.course.id'}.'/'.
$group))
- && (! &Apache::lonnet::allowed('vcg',$env{'request.course.id'}))) {
+ && (! &Apache::lonnet::allowed('vcg',$env{'request.course.id'}.($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:'')))) {
return HTTP_NOT_ACCEPTABLE;
}
} else {
@@ -61,20 +62,24 @@ sub handler {
&Apache::lonnet::chatsend(&Apache::lonfeedback::clear_out_html($env{'form.newchat'}),$env{'form.anonymous'},$group);
}
# --------------------------------------------------- Print login screen header
- my $latexHelp = Apache::loncommon::helpLatexCheatsheet();
+ my $latexHelp = Apache::loncommon::helpLatexCheatsheet(undef,undef,1);
my %loaditems = (onload => 'this.document.chatentry.newchat.focus();');
my $start_page =
- &Apache::loncommon::start_page('Chat',undef,
+ &Apache::loncommon::start_page('Chat Room',undef,
{'only_body' => 1,
'add_entries' => \%loaditems,});
my $end_page = &Apache::loncommon::end_page();
+ my %lt = &Apache::lonlocal::texthash(
+ anon => 'Post Anonymous',
+ post => 'Post',
+ );
$r->print(<
$latexHelp
-
-
-
+
+
+
$group_elem
$end_page