version 1.33, 2009/02/25 16:39:54
|
version 1.35, 2009/07/26 16:53:40
|
Line 178 sub handler {
|
Line 178 sub handler {
|
$refresh_cmd .= "&group=$group"; |
$refresh_cmd .= "&group=$group"; |
} |
} |
my $headarg; |
my $headarg; |
my ($blocked,$blocktext) = &blockstatus(); |
my ($blocked,$blocktext) = blockstatus(); |
if ($blocked) { |
if ($blocked) { |
$newstuff = $blocktext; |
$newstuff = $blocktext; |
$headarg = {'only_body' => 1,}; |
$headarg = {'only_body' => 1,}; |
|
|
|
$r->print(<<ENDSCRIPT); |
|
<script type="text/javascript"> |
|
parent.location.href="/adm/blockingstatus/?activity=chat" |
|
</script> |
|
ENDSCRIPT |
} else { |
} else { |
$headarg = {'redirect' => [5,$refresh_cmd,1], |
$headarg = {'redirect' => [5,$refresh_cmd,1], |
'only_body' => 1,}; |
'only_body' => 1,}; |
Line 223 sub blockstatus {
|
Line 229 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 Room 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++) { |