version 1.32, 2006/11/29 19:45:55
|
version 1.33, 2009/02/25 16:39:54
|
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: <br /><br />',$endblocktime); |
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++) { |