--- loncom/interface/lonchatfetch.pm 2006/06/27 00:12:23 1.27 +++ loncom/interface/lonchatfetch.pm 2010/11/18 23:23:01 1.34.8.1 @@ -1,7 +1,7 @@ # The LearningOnline Network # Chat Fetching # -# $Id: lonchatfetch.pm,v 1.27 2006/06/27 00:12:23 albertel Exp $ +# $Id: lonchatfetch.pm,v 1.34.8.1 2010/11/18 23:23:01 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -34,6 +34,7 @@ use Apache::lontexconvert; use Apache::loncommon; use Apache::lonnet; use Apache::longroup; +use Apache::lonlocal; use lib '/home/httpd/lib/perl/'; use LONCAPA; @@ -48,8 +49,10 @@ sub handler { 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) ) { + if ((! &Apache::lonnet::allowed('pgc',$env{'request.course.id'}.'/'. + $group)) && + (! &Apache::lonnet::allowed('vcg',$env{'request.course.id'}. + ($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:'')))) { return HTTP_NOT_ACCEPTABLE; } my %curr_groups = &Apache::longroup::coursegroups($cdom,$cnum,$group); @@ -60,7 +63,7 @@ sub handler { ''.&unescape($group_info{description}). '
'; } - } elsif (! &Apache::lonnet::allowed('pch',$env{'request.course.id'}. + } elsif (! &Apache::lonnet::allowed('plc',$env{'request.course.id'}. ($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:'')) ) { return HTTP_NOT_ACCEPTABLE; @@ -87,8 +90,8 @@ sub handler { $chome)); # Figure out what the last valid entry-id is my ($lastid,$thentime,$idnum); - foreach (@entries) { - $_=~/^(\w+)/; + foreach my $entry (@entries) { + $entry =~/^(\w+)/; if ($1 ne 'active_participant') { $lastid=$1; ($thentime,$idnum)=split(/\_/,$lastid); @@ -98,30 +101,24 @@ sub handler { my $seeid = &get_seeid_status(); # -------------------------------------------------------- see which ones apply my $include=0; + my $header; my $newstuff=''; my $bottomid=''; unless ($env{'form.lastid'}) { $include=1; - $newstuff .= + $header = &Apache::loncommon::start_page(undef,undef, {'only_body' => 1, 'bgcolor' => '#FFFFFF', 'js_ready' => 1,}); - # removing the CSS reference for now - # see BUG# 4839 - # to fix, need to either write the whole webpage to the bottom frame - # everytime or store the page in a js variable somewhere. - # although in tryng both of these ideas, the .scroll to - # the bottom seems to fail. - $newstuff =~ s|()||; } my @participants=(); - foreach (@entries) { - my ($id,$msg,$udom)=split(/\:/,&unescape($_)); + foreach my $entry (@entries) { + my ($id,$msg,$udom)=split(/\:/,&unescape($entry)); if ($id eq 'active_participant') { chomp($udom); my $participant= &Apache::loncommon::nickname($msg,$udom); - unless ($participant=~/\w/) { $participant=$msg.'@'.$udom; } + unless ($participant=~/\w/) { $participant=$msg.':'.$udom; } $participants[$#participants+1]=$participant; } elsif ($include) { chomp($msg); @@ -131,10 +128,10 @@ sub handler { $contrib=&unescape($contrib); &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) { $contrib.=&mt('[Message not fully displayed due to incorrect embedded TeX]'); } if ($errors && $snum eq $env{'user.name'} && $sdom eq $env{'user.domain'} ) { - $contrib.="
[TeX error message: $errors]"; + $contrib.='
'.&mt('[TeX error message: [_1]',$errors); } $contrib=~s/\n/ /g; $contrib=~s/\'/\&\#39\;/g; @@ -145,14 +142,14 @@ sub handler { if (($nick) && ($nick ne $sender)) { $sender.=' '.$nick; } - unless ($sender) { $sender=$snum.'@'.$sdom; } + unless ($sender) { $sender=$snum.':'.$sdom; } if ($anon) { $sender.=' [Anon]' }; } elsif (!$anon) { $sender=&Apache::loncommon::nickname($snum,$sdom); - unless ($sender) { $sender=$snum.'@'.$sdom; } + unless ($sender) { $sender=$snum.':'.$sdom; } } else { $sender=&Apache::loncommon::screenname($snum,$sdom); - unless ($sender) { $sender="Anonymous"; } + unless ($sender) { $sender=&mt("Anonymous"); } } $sender=~s/\'/\&\#39\;/g; my $color=$sender; @@ -171,7 +168,7 @@ sub handler { $contrib."
"; $bottomid='LC_'.$id; } else { - $_=~/^(\w+)/; + $entry=~/^(\w+)/; if ($1 eq $env{'form.lastid'}) { $include=1; } } } @@ -180,15 +177,21 @@ sub handler { if (defined($group)) { $refresh_cmd .= "&group=$group"; } - my $start_page = - &Apache::loncommon::start_page('Chat',undef, - {'redirect' => [5,$refresh_cmd], - 'only_body' => 1,}); + my $headarg; + my ($blocked,$blocktext) = &blockstatus(); + if ($blocked) { + $newstuff = $blocktext; + $headarg = {'only_body' => 1,}; + } else { + $headarg = {'redirect' => [5,$refresh_cmd,1], + 'only_body' => 1,}; + } + my $start_page = &Apache::loncommon::start_page('Chat Room',undef,$headarg); my $end_page = &Apache::loncommon::end_page(); $r->print(< -parent.chatout.document.writeln('$newstuff'); +parent.chatout.document.writeln('$header$newstuff'); parent.chatout.scroll(0,10000000); $grouptitle @@ -213,5 +216,28 @@ sub get_seeid_status { return $seeid; } +sub blockstatus { + my ($blocked,$output); + my %setters; + my ($startblock,$endblock) = &Apache::loncommon::blockcheck(\%setters,'chat'); + if ($startblock && $endblock) { + $blocked = 1; + my $endblocktime = &Apache::lonlocal::locallocaltime($endblock); + $output .= &mt('Chat Room will be unavailable to you until [_1] because communication is blocked in one or more of your courses:',$endblocktime).'

'; + foreach my $course (keys(%setters)) { + my %courseinfo=&Apache::lonnet::coursedescription($course); + for (my $i=0; $i<@{$setters{$course}{staff}}; $i++) { + my ($uname,$udom) = @{$setters{$course}{staff}[$i]}; + my $fullname = &Apache::loncommon::plainname($uname,$udom); + my ($openblock,$closeblock) = @{$setters{$course}{times}[$i]}; + $openblock = &Apache::lonlocal::locallocaltime($openblock); + $closeblock= &Apache::lonlocal::locallocaltime($closeblock); + $output .= &mt('Block for [_1] starts: [_2], ends [_3], set by: [_4]
',$courseinfo{'description'},$openblock,$closeblock,$fullname); + } + } + } + return ($blocked,$output); +} + 1; __END__