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

Diff for /loncom/interface/loncommon.pm between versions 1.475 and 1.476

version 1.475, 2006/11/29 15:38:22 version 1.476, 2006/11/29 19:33:29
Line 2896  sub parse_block_record { Line 2896  sub parse_block_record {
         ($setuname,$setudom) = split(/:/,$record->{'setter'});          ($setuname,$setudom) = split(/:/,$record->{'setter'});
         $title = &unescape($record->{'event'});          $title = &unescape($record->{'event'});
         $blocks = $record->{'blocks'};          $blocks = $record->{'blocks'};
   
     } else {      } else {
         my @data = split(/:/,$record,3);          my @data = split(/:/,$record,3);
         if (scalar(@data) eq 2) {          if (scalar(@data) eq 2) {
Line 2919  sub build_block_table { Line 2918  sub build_block_table {
         'blse' => 'Block set by'          'blse' => 'Block set by'
     );      );
     my $output;      my $output;
     $output = '<br /><br />'.$lt{'cacb'}.':<br /><br />';      $output = '<br />'.$lt{'cacb'}.':<br />';
     $output .= &start_data_table();      $output .= &start_data_table();
     $output .= '      $output .= '
 <tr>  <tr>
Line 2932  sub build_block_table { Line 2931  sub build_block_table {
         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++) {
             my ($uname,$udom) = @{$$setters{$course}{staff}[$i]};              my ($uname,$udom) = @{$$setters{$course}{staff}[$i]};
             my $fullname = &Apache::loncommon::plainname($uname,$udom);              my $fullname = &aboutmewrapper(&plainname($uname,$udom),$uname,$udom);
             my ($openblock,$closeblock) = @{$$setters{$course}{times}[$i]};              my ($openblock,$closeblock) = @{$$setters{$course}{times}[$i]};
             $openblock = &Apache::lonlocal::locallocaltime($openblock);              $openblock = &Apache::lonlocal::locallocaltime($openblock);
             $closeblock= &Apache::lonlocal::locallocaltime($closeblock);              $closeblock= &Apache::lonlocal::locallocaltime($closeblock);
             $output .= &Apache::loncommon::start_data_table_row().              $output .= &Apache::loncommon::start_data_table_row().
                        '<td>'.$courseinfo{'description'}.'</td>'.                         '<td>'.$courseinfo{'description'}.'</td>'.
                        '<td>'.$openblock.' to '.$closeblock.'</td>'.                         '<td>'.$openblock.' to '.$closeblock.'</td>'.
                        '<td>'.$fullname.' ('.$uname.':'.$udom.                         '<td>'.$fullname.'.</td>'.
                        ')</td>'.  
                         &Apache::loncommon::end_data_table_row();                          &Apache::loncommon::end_data_table_row();
         }          }
     }      }
Removed from v.1.475  
changed lines
  Added in v.1.476

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