version 1.4, 2009/07/27 11:30:05
|
version 1.5, 2009/07/27 12:12:48
|
Line 59 sub handler {
|
Line 59 sub handler {
|
'Communication Blocking Status Information', |
'Communication Blocking Status Information', |
undef, {'only_body' => 1, })); |
undef, {'only_body' => 1, })); |
Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['activity']); |
Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['activity']); |
my ($blocked, $blocktext) = print_blocking_table($env{'form.activity'}); |
my $blocktext = get_blocking_table($env{'form.activity'}); |
$r->print($blocktext); |
$r->print($blocktext); |
|
|
$r->print(Apache::loncommon::end_page()); |
$r->print(Apache::loncommon::end_page()); |
return OK; |
return OK; |
} |
} |
sub print_blocking_table{ |
sub get_blocking_table{ |
my ($activity,$uname,$udom) = @_; |
my ($activity,$uname,$udom) = @_; |
my %setters; |
my %setters; |
my ($blocked,$output,$ownitem,$is_course); |
my ($blocked,$output,$ownitem,$is_course); |
Line 117 sub print_blocking_table{
|
Line 117 sub print_blocking_table{
|
my $showend = &Apache::lonlocal::locallocaltime($endblock); |
my $showend = &Apache::lonlocal::locallocaltime($endblock); |
$output = '<br />'.&mt('[_1] will be inaccessible between [_2] and [_3] because communication is being blocked.',$category,$showstart,$showend).'<br />'; |
$output = '<br />'.&mt('[_1] will be inaccessible between [_2] and [_3] because communication is being blocked.',$category,$showstart,$showend).'<br />'; |
if (!($activity eq 'port' && !($ownitem) && !($is_course))) { |
if (!($activity eq 'port' && !($ownitem) && !($is_course))) { |
$output .= &Apache::loncommon::build_block_table($startblock,$endblock,\%setters); |
$output .= build_block_table($startblock,$endblock,\%setters); |
} |
} |
} |
} |
return ($blocked,$output); |
return $output; |
|
} |
|
|
|
sub build_block_table { |
|
my ($startblock,$endblock,$setters) = @_; |
|
my %lt = &Apache::lonlocal::texthash( |
|
'cacb' => 'Currently active communication blocks', |
|
'cour' => 'Course', |
|
'dura' => 'Duration', |
|
'blse' => 'Block set by' |
|
); |
|
my $output; |
|
$output = '<br />'.$lt{'cacb'}.':<br />'; |
|
$output .= Apache::loncommon::start_data_table(); |
|
$output .= ' |
|
<tr> |
|
<th>'.$lt{'cour'}.'</th> |
|
<th>'.$lt{'dura'}.'</th> |
|
<th>'.$lt{'blse'}.'</th> |
|
</tr> |
|
'; |
|
foreach my $course (keys(%{$setters})) { |
|
my %courseinfo=&Apache::lonnet::coursedescription($course); |
|
for (my $i=0; $i<@{$$setters{$course}{staff}}; $i++) { |
|
my ($uname,$udom) = @{$$setters{$course}{staff}[$i]}; |
|
my $fullname = Apache::loncommon::plainname($uname,$udom); |
|
if (defined($env{'user.name'}) && defined($env{'user.domain'}) |
|
&& $env{'user.name'} ne 'public' |
|
&& $env{'user.domain'} ne 'public') { |
|
$fullname = Apache::loncommon::aboutmewrapper($fullname,$uname,$udom); |
|
} |
|
my ($openblock,$closeblock) = @{$$setters{$course}{times}[$i]}; |
|
$openblock = &Apache::lonlocal::locallocaltime($openblock); |
|
$closeblock= &Apache::lonlocal::locallocaltime($closeblock); |
|
$output .= &Apache::loncommon::start_data_table_row(). |
|
'<td>'.$courseinfo{'description'}.'</td>'. |
|
'<td>'.$openblock.' to '.$closeblock.'</td>'. |
|
'<td>'.$fullname.'</td>'. |
|
&Apache::loncommon::end_data_table_row(); |
|
} |
|
} |
|
$output .= Apache::loncommon::end_data_table(); |
} |
} |
|
|
1; |
1; |
__END__ |
__END__ |
|
|
|
|
|
|
|
|
|
|