--- loncom/interface/lonchat.pm 2006/06/28 23:56:09 1.14
+++ loncom/interface/lonchat.pm 2008/01/19 21:40:41 1.16
@@ -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.16 2008/01/19 21:40:41 raeburn 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 {
@@ -68,13 +69,17 @@ sub handler {
{'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