--- 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'})) {