version 1.25, 2006/05/30 12:46:08
|
version 1.29, 2006/07/03 00:11:53
|
Line 48 sub handler {
|
Line 48 sub handler {
|
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)) && |
|
(! &Apache::lonnet::allowed('vcg',$env{'request.course.id'}))) { |
|
|
return HTTP_NOT_ACCEPTABLE; |
return HTTP_NOT_ACCEPTABLE; |
} |
} |
my %curr_groups = &Apache::longroup::coursegroups($cdom,$cnum,$group); |
my %curr_groups = &Apache::longroup::coursegroups($cdom,$cnum,$group); |
Line 159 sub handler {
|
Line 161 sub handler {
|
$color=substr($color,0,6); |
$color=substr($color,0,6); |
my $timestamp=localtime($msgtime); |
my $timestamp=localtime($msgtime); |
my ($mhour,$mmin,$msec)=($timestamp=~/(\d\d)\:(\d\d)\:(\d\d)/); |
my ($mhour,$mmin,$msec)=($timestamp=~/(\d\d)\:(\d\d)\:(\d\d)/); |
$newstuff.='<font color="#'.$color.'"><a name="'.$id.'"><b>'. |
$newstuff.='<font color="#'.$color.'"><a name="LC_'.$id.'"></a><b>'. |
$sender.'</b> ('.$mhour.':'.$mmin.':'.$msec.'): '. |
$sender.'</b> ('.$mhour.':'.$mmin.':'.$msec.'): '. |
$contrib."</font><br>"; |
$contrib."</font><br />"; |
$bottomid=$id; |
$bottomid='LC_'.$id; |
} else { |
} else { |
$_=~/^(\w+)/; |
$_=~/^(\w+)/; |
if ($1 eq $env{'form.lastid'}) { $include=1; } |
if ($1 eq $env{'form.lastid'}) { $include=1; } |
Line 171 sub handler {
|
Line 173 sub handler {
|
my $participant_output=join('<br />',sort @participants); |
my $participant_output=join('<br />',sort @participants); |
my $refresh_cmd = "/adm/chatfetch?lastid=$lastid"; |
my $refresh_cmd = "/adm/chatfetch?lastid=$lastid"; |
if (defined($group)) { |
if (defined($group)) { |
$refresh_cmd .= "&group=$group"; |
$refresh_cmd .= "&group=$group"; |
} |
} |
my $start_page = |
my $start_page = |
&Apache::loncommon::start_page('Chat',undef, |
&Apache::loncommon::start_page('Chat',undef, |