--- loncom/interface/lonchatfetch.pm 2005/02/17 08:29:42 1.15 +++ loncom/interface/lonchatfetch.pm 2006/03/23 22:32:10 1.20 @@ -1,7 +1,7 @@ # The LearningOnline Network # Chat Fetching # -# $Id: lonchatfetch.pm,v 1.15 2005/02/17 08:29:42 albertel Exp $ +# $Id: lonchatfetch.pm,v 1.20 2006/03/23 22:32:10 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -37,8 +37,8 @@ use Apache::lonnet; sub handler { my $r = shift; - if (! &Apache::lonnet::allowed('pch',$ENV{'request.course.id'}. - ($ENV{'request.course.sec'}?'/'.$ENV{'request.course.sec'}:'')) + if (! &Apache::lonnet::allowed('pch',$env{'request.course.id'}. + ($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:'')) ) { return HTTP_NOT_ACCEPTABLE; } @@ -47,22 +47,22 @@ sub handler { if ($loaderror) { return $loaderror; } $loaderror= &Apache::lonnet::overloaderror($r, - $ENV{'course.'.$ENV{'request.course.id'}.'.home'}); + $env{'course.'.$env{'request.course.id'}.'.home'}); if ($loaderror) { return $loaderror; } - $r->content_type('text/html'); + &Apache::loncommon::content_type($r,'text/html'); $r->send_http_header; return OK if $r->header_only; # ------------------------------------------------------------ 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 $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'}",$chome)); # Figure out what the last valid entry-id is my ($lastid,$thentime,$idnum); foreach (@entries) { @@ -73,9 +73,9 @@ sub handler { } } # ----------------------------------------------------------- Can see identity? - my $crs='/'.$ENV{'request.course.id'}; - if ($ENV{'request.course.sec'}) { - $crs.='_'.$ENV{'request.course.sec'}; + 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); @@ -84,10 +84,13 @@ sub handler { my $include=0; my $newstuff=''; my $bottomid=''; - unless ($ENV{'form.lastid'}) { - $include=1; - my $html=&Apache::lonxml::xmlbegin(); - $newstuff=$html.''; + unless ($env{'form.lastid'}) { + $include=1; + $newstuff .= + &Apache::loncommon::start_page(undef,undef, + {'only_body' => 1, + 'bgcolor' => '#FFFFFF', + 'js_ready' => 1,}); } my @participants=(); foreach (@entries) { @@ -103,11 +106,11 @@ 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'} && - $sdom eq $ENV{'user.domain'} ) { + if ($errors && $snum eq $env{'user.name'} && + $sdom eq $env{'user.domain'} ) { $contrib.="
[TeX error message: $errors]"; } $contrib=~s/\n/ /g; @@ -146,25 +149,23 @@ sub handler { $bottomid=$id; } else { $_=~/^(\w+)/; - if ($1 eq $ENV{'form.lastid'}) { $include=1; } + if ($1 eq $env{'form.lastid'}) { $include=1; } } } my $participant_output=join('
',sort @participants); - my $html=&Apache::lonxml::xmlbegin(); + my $start_page = + &Apache::loncommon::start_page('Chat',undef, + {'redirect' => [5,"/adm/chatfetch?lastid=$lastid"], + 'only_body' => 1,}); + my $end_page = &Apache::loncommon::end_page(); $r->print(< -The LearningOnline Network with CAPA - - - - $participant_output - - +$end_page ENDDOCUMENT return OK; }