version 1.24, 2006/05/18 01:08:50
|
version 1.25, 2006/05/30 12:46:08
|
Line 34 use Apache::lontexconvert;
|
Line 34 use Apache::lontexconvert;
|
use Apache::loncommon; |
use Apache::loncommon; |
use Apache::lonnet; |
use Apache::lonnet; |
use Apache::longroup; |
use Apache::longroup; |
|
use lib '/home/httpd/lib/perl/'; |
|
use LONCAPA; |
|
|
|
|
sub handler { |
sub handler { |
my $r = shift; |
my $r = shift; |
Line 54 sub handler {
|
Line 57 sub handler {
|
my %group_info = |
my %group_info = |
&Apache::longroup::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 107 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 117 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]"; } |