version 1.21, 2006/03/29 19:56:28
|
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; |
|
|
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['lastid', |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
'group']); |
['lastid','group']); |
my ($group,$grouptitle); |
my ($group,$grouptitle); |
my $cnum=$env{'course.'.$env{'request.course.id'}.'.num'}; |
my $cnum=$env{'course.'.$env{'request.course.id'}.'.num'}; |
my $cdom=$env{'course.'.$env{'request.course.id'}.'.domain'}; |
my $cdom=$env{'course.'.$env{'request.course.id'}.'.domain'}; |
if (defined($env{'form.group'})) { |
if (defined($env{'form.group'})) { |
$group = $env{'form.group'}; |
$group = $env{'form.group'}; |
if (! &Apache::lonnet::allowed('pgc',$env{'request.course.id'}.'/'. |
if (! &Apache::lonnet::allowed('pgc',$env{'request.course.id'}.'/'. |
$group) ) { |
$group) ) { |
return HTTP_NOT_ACCEPTABLE; |
return HTTP_NOT_ACCEPTABLE; |
} |
} |
my %curr_groups; |
my %curr_groups = &Apache::longroup::coursegroups($cdom,$cnum,$group); |
my $numgroups = &Apache::loncommon::coursegroups(\%curr_groups,$cdom, |
if (%curr_groups) { |
$cnum,$group); |
my %group_info = |
if ($numgroups) { |
&Apache::longroup::get_group_settings($curr_groups{$group}); |
my %group_info = &Apache::loncommon::get_group_settings( |
$grouptitle = |
$curr_groups{$group}); |
'<b>'.&unescape($group_info{description}). |
$grouptitle = '<b>'.&Apache::lonnet::unescape( |
'</b><br />'; |
$group_info{description}).'</b><br />'; |
|
} |
} |
} elsif (! &Apache::lonnet::allowed('pch',$env{'request.course.id'}. |
} elsif (! &Apache::lonnet::allowed('pch',$env{'request.course.id'}. |
($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:'')) |
($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:'')) |
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]"; } |
Line 188 ENDDOCUMENT
|
Line 191 ENDDOCUMENT
|
return OK; |
return OK; |
} |
} |
|
|
sub get_seeid_status{ |
sub get_seeid_status { |
my $crs='/'.$env{'request.course.id'}; |
my $crs='/'.$env{'request.course.id'}; |
my $seeid; |
my $seeid; |
if (exists($env{'form.group'})) { |
if (exists($env{'form.group'})) { |