version 1.23, 2006/05/09 14:38:09
|
version 1.25, 2006/05/30 12:46:08
|
Line 33 use Apache::Constants qw(:common :http);
|
Line 33 use Apache::Constants qw(:common :http);
|
use Apache::lontexconvert; |
use Apache::lontexconvert; |
use Apache::loncommon; |
use Apache::loncommon; |
use Apache::lonnet; |
use Apache::lonnet; |
|
use Apache::longroup; |
|
use lib '/home/httpd/lib/perl/'; |
|
use LONCAPA; |
|
|
|
|
sub handler { |
sub handler { |
my $r = shift; |
my $r = shift; |
Line 48 sub handler {
|
Line 52 sub handler {
|
$group) ) { |
$group) ) { |
return HTTP_NOT_ACCEPTABLE; |
return HTTP_NOT_ACCEPTABLE; |
} |
} |
my %curr_groups = &Apache::loncommon::coursegroups($cdom,$cnum,$group); |
my %curr_groups = &Apache::longroup::coursegroups($cdom,$cnum,$group); |
if (%curr_groups) { |
if (%curr_groups) { |
my %group_info = |
my %group_info = |
&Apache::loncommon::get_group_settings($curr_groups{$group}); |
&Apache::longroup::get_group_settings($curr_groups{$group}); |
$grouptitle = |
$grouptitle = |
'<b>'.&Apache::lonnet::unescape($group_info{description}). |
'<b>'.&unescape($group_info{description}). |
'</b><br />'; |
'</b><br />'; |
} |
} |
} elsif (! &Apache::lonnet::allowed('pch',$env{'request.course.id'}. |
} elsif (! &Apache::lonnet::allowed('pch',$env{'request.course.id'}. |
Line 106 sub handler {
|
Line 110 sub handler {
|
} |
} |
my @participants=(); |
my @participants=(); |
foreach (@entries) { |
foreach (@entries) { |
my ($id,$msg,$udom)=split(/\:/,&Apache::lonnet::unescape($_)); |
my ($id,$msg,$udom)=split(/\:/,&unescape($_)); |
if ($id eq 'active_participant') { |
if ($id eq 'active_participant') { |
chomp($udom); |
chomp($udom); |
my $participant= &Apache::loncommon::nickname($msg,$udom); |
my $participant= &Apache::loncommon::nickname($msg,$udom); |
Line 116 sub handler {
|
Line 120 sub handler {
|
chomp($msg); |
chomp($msg); |
my ($msgtime,$msgnum)=split(/\_/,$id); |
my ($msgtime,$msgnum)=split(/\_/,$id); |
my ($sdom,$snum,$anon,$contrib)=split(/\:/, |
my ($sdom,$snum,$anon,$contrib)=split(/\:/, |
&Apache::lonnet::unescape($msg)); |
&unescape($msg)); |
$contrib=&Apache::lonnet::unescape($contrib); |
$contrib=&unescape($contrib); |
&Apache::lonfeedback::newline_to_br(\$contrib); |
&Apache::lonfeedback::newline_to_br(\$contrib); |
($contrib,my $errors)=&Apache::lontexconvert::msgtexconverted($contrib); |
($contrib,my $errors)=&Apache::lontexconvert::msgtexconverted($contrib); |
if ($errors) { $contrib.="[Message not fully displayed due to incorrect embedded TeX]"; } |
if ($errors) { $contrib.="[Message not fully displayed due to incorrect embedded TeX]"; } |