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

Diff for /loncom/interface/courseprefs.pm between versions 1.85 and 1.86

version 1.85, 2018/01/02 14:43:17 version 1.86, 2018/01/03 04:20:54
Line 2957  sub display_loncaparev_constraints { Line 2957  sub display_loncaparev_constraints {
             }              }
         }          }
     }      }
       my $suppmap = 'supplemental.sequence';
       my ($suppcount,$supptools,$errors) = (0,0,0);
       ($suppcount,$supptools,$errors) = &Apache::loncommon::recurse_supplemental($cnum,$cdom,
                                                         $suppmap,$suppcount,$supptools,$errors);
     my $mapres_header = '<h4>'.      my $mapres_header = '<h4>'.
                         &mt('Requirements for specific folders or resources').                          &mt('Requirements for specific folders or resources').
                         '</h4>';                          '</h4>';
Line 2971  sub display_loncaparev_constraints { Line 2975  sub display_loncaparev_constraints {
     $r->print($start_page.$top_header);      $r->print($start_page.$top_header);
     if ($output) {      if ($output) {
         $r->print($output);          $r->print($output);
         if (defined($navmap)) {          if (defined($navmap) || $supptools) {
             &show_contents_view($r,$navmap,$cid,\%toshow,\%bymap,\%byresource,\%bysubmission,              &show_contents_view($r,$navmap,$cid,\%toshow,\%bymap,\%byresource,\%bysubmission,
                                 \%byresponsetype,\%bycrsrestype,\@scopeorder,\%lt);                                  \%byresponsetype,\%bycrsrestype,\@scopeorder,\%lt,$supptools);
         }          }
         $r->print('<br /><br />');           $r->print('<br /><br />'); 
     } else {      } else {
Line 2991  sub display_loncaparev_constraints { Line 2995  sub display_loncaparev_constraints {
   
 sub show_contents_view {  sub show_contents_view {
     my ($r,$navmap,$cid,$toshow,$bymap,$byresource,$bysubmission,$byresponsetype,      my ($r,$navmap,$cid,$toshow,$bymap,$byresource,$bysubmission,$byresponsetype,
         $bycrsrestype,$scopeorder,$lt) = @_;          $bycrsrestype,$scopeorder,$lt,$supptools) = @_;
     if ((keys(%{$toshow}) > 0) || (keys(%{$byresource}) > 0) ||       my $location=&Apache::loncommon::lonhttpdurl("/adm/lonIcons");
         (keys(%{$bysubmission}) > 0) || (keys(%{$byresponsetype}) > 0) ||      my $whitespace = '<img src="'.$location.'/whitespace_21.gif" alt="" />';
         (keys(%{$bycrsrestype}) > 0)) {      my $showmaincontent;
         my $location=&Apache::loncommon::lonhttpdurl("/adm/lonIcons");      if ((ref($navmap)) &&
         my $whitespace = '<img src="'.$location.'/whitespace_21.gif" alt="" />';          ((keys(%{$toshow}) > 0) || (keys(%{$byresource}) > 0) ||
         my $icon =  '<img src="'.$location.'/navmap.folder.open.gif" alt="" />';           (keys(%{$bysubmission}) > 0) || (keys(%{$byresponsetype}) > 0) ||
            (keys(%{$bycrsrestype}) > 0))) {
           $showmaincontent = 1;
       }
       if ($showmaincontent || $supptools) {
           $r->print(&Apache::loncommon::start_data_table());
       }
       if ($showmaincontent) {
           my $icon = '<img src="'.$location.'/navmap.folder.open.gif" alt="" />';
         my $topmap = $env{'course.'.$cid.'.url'};          my $topmap = $env{'course.'.$cid.'.url'};
         $r->print(&Apache::loncommon::start_data_table().          $r->print(&Apache::loncommon::start_data_table_header_row().
                   &Apache::loncommon::start_data_table_header_row().  
                   '<th>'.&mt('Location').'</th><th>'.&mt('Release').'</th>'.                    '<th>'.&mt('Location').'</th><th>'.&mt('Release').'</th>'.
                   '<th>'.&mt('Attribute/Setting').'</th>'.                    '<th>'.&mt('Attribute/Setting').'</th>'.
                   &Apache::loncommon::end_data_table_header_row().                    &Apache::loncommon::end_data_table_header_row().
                   &Apache::loncommon::start_data_table_row().                    &Apache::loncommon::start_data_table_row().
                   '<td>&nbsp;'.$icon.'&nbsp;'.&mt('Main Content').'</td>');                    '<td>&nbsp;'.$icon.'&nbsp;'.&mt('Main Content').'</td>');
                   &releases_by_map($r,$bymap,$topmap,$scopeorder,$lt);          &releases_by_map($r,$bymap,$topmap,$scopeorder,$lt);
                   $r->print(&Apache::loncommon::end_data_table_row());          $r->print(&Apache::loncommon::end_data_table_row());
         my $it=$navmap->getIterator(undef,undef,undef,1,1,undef);          my $it=$navmap->getIterator(undef,undef,undef,1,1,undef);
         my $curRes;          my $curRes;
         my $depth = 0;          my $depth = 0;
Line 3134  sub show_contents_view { Line 3145  sub show_contents_view {
                             }                              }
                             $r->print('<td>'.$rev.'</td><td>'.$bycrsrestype->{$symb}{$rev}.'</td>');                              $r->print('<td>'.$rev.'</td><td>'.$bycrsrestype->{$symb}{$rev}.'</td>');
                         }                          }
                           $r->print(&Apache::loncommon::end_data_table_row());
                     }                      }
                 }                  }
             }              }
         }          }
       }
       if ($supptools) {
           my $icon = '<img src="'.$location.'/navmap.folder.open.gif" alt="" />';
           $r->print(&Apache::loncommon::start_data_table_header_row().
                     '<th>'.&mt('Location').'</th><th>'.&mt('Release').'</th>'.
                     '<th>'.&mt('Resource Type').'</th>'.
                     &Apache::loncommon::end_data_table_header_row().
                     &Apache::loncommon::start_data_table_row().
                     '<td>&nbsp;'.$icon.'&nbsp;'.&mt('Supplemental Content').'</td>'.
                     '<td valign="middle">'.
                     $Apache::lonrelrequtils::exttool{'major'}.'.'.
                     $Apache::lonrelrequtils::exttool{'minor'}.
                     '</td><td>'.&mt('[quant,_1,External Tool,External Tools]',
                                     $supptools).'</td>'.
                     &Apache::loncommon::end_data_table_row());
       }
       if ($showmaincontent || $supptools) {
         $r->print(&Apache::loncommon::end_data_table());          $r->print(&Apache::loncommon::end_data_table());
     }      }
     return;      return;
Removed from v.1.85  
changed lines
  Added in v.1.86

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