[BACK]Return to lonblockingstatus.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonblockingstatus.pm between versions 1.4 and 1.5

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__
   
   
   
   
   
Removed from v.1.4  
changed lines
  Added in v.1.5

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>