--- 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