--- loncom/interface/lonchatfetch.pm 2005/04/07 06:56:22 1.17 +++ loncom/interface/lonchatfetch.pm 2006/03/29 19:56:28 1.21 @@ -1,7 +1,7 @@ # The LearningOnline Network # Chat Fetching # -# $Id: lonchatfetch.pm,v 1.17 2005/04/07 06:56:22 albertel Exp $ +# $Id: lonchatfetch.pm,v 1.21 2006/03/29 19:56:28 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -37,7 +37,27 @@ use Apache::lonnet; sub handler { my $r = shift; - if (! &Apache::lonnet::allowed('pch',$env{'request.course.id'}. + &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) ) { + return HTTP_NOT_ACCEPTABLE; + } + my %curr_groups; + my $numgroups = &Apache::loncommon::coursegroups(\%curr_groups,$cdom, + $cnum,$group); + if ($numgroups) { + 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'}:'')) ) { return HTTP_NOT_ACCEPTABLE; @@ -56,13 +76,12 @@ sub handler { # ------------------------------------------------------------ retrieve entries - my $cnum=$env{'course.'.$env{'request.course.id'}.'.num'}; - my $cdom=$env{'course.'.$env{'request.course.id'}.'.domain'}; my $chome=$env{'course.'.$env{'request.course.id'}.'.home'}; my @entries=split(/\:/, &Apache::lonnet::reply( - "chatretr:$cdom:$cnum:$env{'user.domain'}:$env{'user.name'}",$chome)); + "chatretr:$cdom:$cnum:$env{'user.domain'}:$env{'user.name'}:$group", + $chome)); # Figure out what the last valid entry-id is my ($lastid,$thentime,$idnum); foreach (@entries) { @@ -73,21 +92,18 @@ sub handler { } } # ----------------------------------------------------------- Can see identity? - my $crs='/'.$env{'request.course.id'}; - if ($env{'request.course.sec'}) { - $crs.='_'.$env{'request.course.sec'}; - } - $crs=~s/\_/\//g; - my $seeid=&Apache::lonnet::allowed('rin',$crs); + my $seeid = &get_seeid_status(); # -------------------------------------------------------- see which ones apply - &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['lastid']); my $include=0; my $newstuff=''; my $bottomid=''; unless ($env{'form.lastid'}) { - $include=1; - my $html=&Apache::lonxml::xmlbegin(); - $newstuff=$html.''; + $include=1; + $newstuff .= + &Apache::loncommon::start_page(undef,undef, + {'only_body' => 1, + 'bgcolor' => '#FFFFFF', + 'js_ready' => 1,}); } my @participants=(); foreach (@entries) { @@ -103,7 +119,7 @@ sub handler { my ($sdom,$snum,$anon,$contrib)=split(/\:/, &Apache::lonnet::unescape($msg)); $contrib=&Apache::lonnet::unescape($contrib); - $contrib=~s/\n/\
/g; + &Apache::lonfeedback::newline_to_br(\$contrib); ($contrib,my $errors)=&Apache::lontexconvert::msgtexconverted($contrib); if ($errors) { $contrib.="[Message not fully displayed due to incorrect embedded TeX]"; } if ($errors && $snum eq $env{'user.name'} && @@ -150,24 +166,42 @@ sub handler { } } my $participant_output=join('
',sort @participants); - my $html=&Apache::lonxml::xmlbegin(); + my $refresh_cmd = "/adm/chatfetch?lastid=$lastid"; + if (defined($group)) { + $refresh_cmd .= "&group=$group"; + } + my $start_page = + &Apache::loncommon::start_page('Chat',undef, + {'redirect' => [5,$refresh_cmd], + 'only_body' => 1,}); + my $end_page = &Apache::loncommon::end_page(); $r->print(< -The LearningOnline Network with CAPA - - - - +$grouptitle $participant_output - - +$end_page ENDDOCUMENT return OK; -} +} + +sub get_seeid_status{ + my $crs='/'.$env{'request.course.id'}; + my $seeid; + if (exists($env{'form.group'})) { + $seeid = &Apache::lonnet::allowed('rci',$crs.'/'.$env{'form.group'}); + } else { + if ($env{'request.course.sec'}) { + $crs.='_'.$env{'request.course.sec'}; + } + $crs=~s/\_/\//g; + $seeid=&Apache::lonnet::allowed('rin',$crs); + } + return $seeid; +} 1; __END__