Diff for /loncom/interface/courseprefs.pm between versions 1.71 and 1.73

version 1.71, 2015/05/21 23:26:35 version 1.73, 2015/09/13 19:55:34
Line 2430  sub assign_course_categories { Line 2430  sub assign_course_categories {
         } else {          } else {
             $alert = &mt("Use 'Save' in the main window to save course categories");              $alert = &mt("Use 'Save' in the main window to save course categories");
         }          }
           &js_escape(\$alert);
         $catwin_js = <<ENDSCRIPT;          $catwin_js = <<ENDSCRIPT;
 <script type="text/javascript">  <script type="text/javascript">
   
Line 3043  sub show_contents_view { Line 3044  sub show_contents_view {
 sub releases_by_map {  sub releases_by_map {
     my ($r,$bymap,$url,$scopeorder,$lt) = @_;      my ($r,$bymap,$url,$scopeorder,$lt) = @_;
     return unless ((ref($bymap) eq 'HASH') && (ref($scopeorder) eq 'ARRAY'));      return unless ((ref($bymap) eq 'HASH') && (ref($scopeorder) eq 'ARRAY'));
       my $newrow = 0; 
     if (ref($bymap->{$url}) eq 'HASH') {      if (ref($bymap->{$url}) eq 'HASH') {
         foreach my $rev (sort(keys(%{$bymap->{$url}}))) {          foreach my $rev (sort(keys(%{$bymap->{$url}}))) {
               if ($newrow) {
                   $r->print(&Apache::loncommon::end_data_table_row().
                             &Apache::loncommon::continue_data_table_row());
               }
             $r->print('<td valign="middle">'.$rev.'</td><td>');              $r->print('<td valign="middle">'.$rev.'</td><td>');
             if (ref($bymap->{$url}{$rev}) eq 'HASH') {              if (ref($bymap->{$url}{$rev}) eq 'HASH') {
                 $r->print('<table border="0">');                  $r->print('<table border="0">');
Line 3066  sub releases_by_map { Line 3072  sub releases_by_map {
                 $r->print('</table>');                  $r->print('</table>');
             }              }
             $r->print('</td>');              $r->print('</td>');
               $newrow = 1;
         }          }
     } else {      } else {
         $r->print('<td colspan="2">&nbsp;</td>');          $r->print('<td colspan="2">&nbsp;</td>');

Removed from v.1.71  
changed lines
  Added in v.1.73


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