--- loncom/interface/lonchatfetch.pm 2006/03/29 19:56:28 1.21 +++ loncom/interface/lonchatfetch.pm 2006/03/29 21:16:18 1.22 @@ -1,7 +1,7 @@ # The LearningOnline Network # Chat Fetching # -# $Id: lonchatfetch.pm,v 1.21 2006/03/29 19:56:28 raeburn Exp $ +# $Id: lonchatfetch.pm,v 1.22 2006/03/29 21:16:18 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -37,25 +37,26 @@ use Apache::lonnet; sub handler { my $r = shift; - &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['lastid', - 'group']); + &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, + ['lastid','group']); my ($group,$grouptitle); my $cnum=$env{'course.'.$env{'request.course.id'}.'.num'}; my $cdom=$env{'course.'.$env{'request.course.id'}.'.domain'}; if (defined($env{'form.group'})) { $group = $env{'form.group'}; if (! &Apache::lonnet::allowed('pgc',$env{'request.course.id'}.'/'. - $group) ) { + $group) ) { return HTTP_NOT_ACCEPTABLE; } my %curr_groups; my $numgroups = &Apache::loncommon::coursegroups(\%curr_groups,$cdom, - $cnum,$group); + $cnum,$group); if ($numgroups) { - my %group_info = &Apache::loncommon::get_group_settings( - $curr_groups{$group}); - $grouptitle = ''.&Apache::lonnet::unescape( - $group_info{description}).'
'; + my %group_info = + &Apache::loncommon::get_group_settings($curr_groups{$group}); + $grouptitle = + ''.&Apache::lonnet::unescape($group_info{description}). + '
'; } } elsif (! &Apache::lonnet::allowed('pch',$env{'request.course.id'}. ($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:'')) @@ -188,7 +189,7 @@ ENDDOCUMENT return OK; } -sub get_seeid_status{ +sub get_seeid_status { my $crs='/'.$env{'request.course.id'}; my $seeid; if (exists($env{'form.group'})) {