version 1.32, 2006/11/29 19:45:55
|
version 1.34.8.1, 2010/11/18 23:23:01
|
Line 63 sub handler {
|
Line 63 sub handler {
|
'<b>'.&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('plc',$env{'request.course.id'}. |
($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:'')) |
($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:'')) |
) { |
) { |
return HTTP_NOT_ACCEPTABLE; |
return HTTP_NOT_ACCEPTABLE; |
Line 186 sub handler {
|
Line 186 sub handler {
|
$headarg = {'redirect' => [5,$refresh_cmd,1], |
$headarg = {'redirect' => [5,$refresh_cmd,1], |
'only_body' => 1,}; |
'only_body' => 1,}; |
} |
} |
my $start_page = &Apache::loncommon::start_page('Chat',undef,$headarg); |
my $start_page = &Apache::loncommon::start_page('Chat Room',undef,$headarg); |
my $end_page = &Apache::loncommon::end_page(); |
my $end_page = &Apache::loncommon::end_page(); |
$r->print(<<ENDDOCUMENT); |
$r->print(<<ENDDOCUMENT); |
$start_page |
$start_page |
Line 223 sub blockstatus {
|
Line 223 sub blockstatus {
|
if ($startblock && $endblock) { |
if ($startblock && $endblock) { |
$blocked = 1; |
$blocked = 1; |
my $endblocktime = &Apache::lonlocal::locallocaltime($endblock); |
my $endblocktime = &Apache::lonlocal::locallocaltime($endblock); |
$output .= &mt('Chat will be unavailable to you until [_1] because communication is blocked in one or more of your courses: <br/><br />',$endblocktime); |
$output .= &mt('Chat Room will be unavailable to you until [_1] because communication is blocked in one or more of your courses:',$endblocktime).'<br /><br />'; |
foreach my $course (keys(%setters)) { |
foreach my $course (keys(%setters)) { |
my %courseinfo=&Apache::lonnet::coursedescription($course); |
my %courseinfo=&Apache::lonnet::coursedescription($course); |
for (my $i=0; $i<@{$setters{$course}{staff}}; $i++) { |
for (my $i=0; $i<@{$setters{$course}{staff}}; $i++) { |