--- loncom/interface/courseprefs.pm	2016/10/11 22:58:55	1.80
+++ loncom/interface/courseprefs.pm	2018/01/03 04:20:54	1.86
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set configuration settings for a course
 #
-# $Id: courseprefs.pm,v 1.80 2016/10/11 22:58:55 raeburn Exp $
+# $Id: courseprefs.pm,v 1.86 2018/01/03 04:20:54 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1978,7 +1978,10 @@ sub print_courseinfo {
     unless ((ref($settings) eq 'HASH') && (ref($ordered) eq 'ARRAY') && (ref($itemtext) eq 'HASH')) {
         return;
     }
-    my ($cathash,$categoriesform,$autocoowner,$clonedefaults);
+    my ($cathash,$categoriesform,$autocoowner,$clonedefaults,$disabled);
+    if ($noedit) {
+        $disabled = ' disabled="disabled"';
+    }
     my %domconf = 
         &Apache::lonnet::get_dom('configuration',
                                  ['coursecategories','autoenroll','coursedefaults'],$cdom);
@@ -1987,7 +1990,7 @@ sub print_courseinfo {
         if (ref($cathash) eq 'HASH') {
             $categoriesform = 
                 &Apache::loncommon::assign_categories_table($cathash,
-                                                $settings->{'categories'},$crstype)."\n";
+                                                $settings->{'categories'},$crstype,$disabled)."\n";
         }
     }
     if (ref($domconf{'autoenroll'}) eq 'HASH') {
@@ -2054,14 +2057,20 @@ sub print_courseinfo {
     } else {
         $replace = &mt('To replace the standard title for a course role, enter a title, otherwise leave blank');
     }
+    my ($editmap,$editsyllabus);
+    unless ($noedit) {
+        $editmap = (' 'x2).
+                   '<a href="javascript:openbrowser'.
+                   "('display','url','sequence')\">".
+                   &mt('Select Map').'</a><br /><span class="LC_warning"> '.
+                   &mt('Modification may make assessment data inaccessible!').
+                   '</span>';
+        $editsyllabus = &mt('[_1]Edit[_2]','<a href="/public/'.$cdom.'/'.$cnum.'/syllabus?forceedit=1">',
+                            '</a>');  
+    }
     my %items = (
         'url' => {
-                   text => '<b>'.&mt($itemtext->{'url'}).'</b>'.('&nbsp;'x2).
-                           '<a href="javascript:openbrowser'.
-                           "('display','url','sequence')\">".
-                           &mt('Select Map').'</a><br /><span class="LC_warning"> '.
-                           &mt('Modification may make assessment data inaccessible!').
-                           '</span>',
+                   text => '<b>'.&mt($itemtext->{'url'}).'</b>'.$editmap,
                    input => 'textbox',
                    size  => '55',
                    advanced => 1
@@ -2106,8 +2115,7 @@ sub print_courseinfo {
         'externalsyllabus' => {
                    text => '<b>'.&mt($itemtext->{'externalsyllabus'}).'</b><br />'.
                            &mt('(Syllabus type in use)').('&nbsp;' x2).
-                           &mt('[_1]Edit[_2]','<a href="/public/'.$cdom.'/'.$cnum.'/syllabus?forceedit=1">',
-                               '</a>'),
+                           $editsyllabus,
                         },
         'hidefromcat' => {
                    text => '<b>'.&mt($itemtext->{'hidefromcat'}).'</b><br />'.
@@ -2129,10 +2137,6 @@ sub print_courseinfo {
     );
     my $datatable;
     my $count = 0;
-    my $disabled;
-    if ($noedit) {
-        $disabled = ' disabled="disabled"';
-    }
     foreach my $item (@{$ordered}) {
         my $colspan;
         if ($item eq 'hidefromcat') {
@@ -2576,7 +2580,7 @@ sub display_loncaparev_constraints {
                               $Apache::lonrelrequtils::checkcrstypes{$crstype}).'</h4>';
     }
     my (%fromparam,%rowspan,%bymap,%byresource,@scopeorder,%toshow,%allmaps,
-        %byresponsetype,%bysubmission,%fromblocks);
+        %byresponsetype,%bysubmission,%fromblocks,%bycrsrestype);
     @scopeorder = ('all','section/group','user');
     my $now = time;
     my $resourcedata = &Apache::lonparmset::readdata($cnum,$cdom);
@@ -2850,15 +2854,22 @@ sub display_loncaparev_constraints {
         my $rev_anonsurv=$Apache::lonnet::needsrelease{'parameter:type:anonsurvey::'};
         my %randtrysubms=&Apache::lonnet::dump('nohist_randomizetry',$cdom,$cnum);
         my $rev_randtry=$Apache::lonnet::needsrelease{'parameter:type:randomizetry::'};
+        my $rev_exttool=$Apache::lonnet::needsrelease{'course:courserestype:exttool'};
         my $stdtype=&Apache::lonparmset::standard_parameter_types('type');
         my $stdname=&Apache::lonparmset::standard_parameter_names('type');
         my $valanon=&get_param_description($stdtype,'anonsurvey');
         my $valrandtry=&get_param_description($stdtype,'randomizetry');
         my %checkedrev;
-        foreach my $res ($navmap->retrieveResources(undef,sub { $_[0]->is_problem() },1,0)) {
+        foreach my $res ($navmap->retrieveResources(undef,sub { $_[0]->is_problem() || $_[0]->is_tool() },1,0)) {
             my @parts = @{$res->parts()};
             my $symb = $res->symb();
             my $enclosing_map = &Apache::lonnet::declutter($res->enclosing_map_src());
+            if ($res->is_tool()) {
+                my $rev = $rev_exttool;
+                $bycrsrestype{$symb}{$rev} = &mt('External Tool');
+                $allmaps{$enclosing_map} = 1;
+                next;
+            }
             foreach my $part (@parts) {
                 if (exists($anonsubms{$symb."\0".$part})) {
                     my $rev = $rev_anonsurv;
@@ -2946,6 +2957,10 @@ 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>'.
                         &mt('Requirements for specific folders or resources').
                         '</h4>';
@@ -2960,9 +2975,9 @@ sub display_loncaparev_constraints {
     $r->print($start_page.$top_header);
     if ($output) {
         $r->print($output);
-        if (defined($navmap)) {
+        if (defined($navmap) || $supptools) {
             &show_contents_view($r,$navmap,$cid,\%toshow,\%bymap,\%byresource,\%bysubmission,
-                                \%byresponsetype,\@scopeorder,\%lt);
+                                \%byresponsetype,\%bycrsrestype,\@scopeorder,\%lt,$supptools);
         }
         $r->print('<br /><br />'); 
     } else {
@@ -2980,22 +2995,30 @@ sub display_loncaparev_constraints {
 
 sub show_contents_view {
     my ($r,$navmap,$cid,$toshow,$bymap,$byresource,$bysubmission,$byresponsetype,
-        $scopeorder,$lt) = @_;
-    if ((keys(%{$toshow}) > 0) || (keys(%{$byresource}) > 0) || 
-        (keys(%{$bysubmission}) > 0) || (keys(%{$byresponsetype}) > 0)) {
-        my $location=&Apache::loncommon::lonhttpdurl("/adm/lonIcons");
-        my $whitespace = '<img src="'.$location.'/whitespace_21.gif" alt="" />';
-        my $icon =  '<img src="'.$location.'/navmap.folder.open.gif" alt="" />';
+        $bycrsrestype,$scopeorder,$lt,$supptools) = @_;
+    my $location=&Apache::loncommon::lonhttpdurl("/adm/lonIcons");
+    my $whitespace = '<img src="'.$location.'/whitespace_21.gif" alt="" />';
+    my $showmaincontent;
+    if ((ref($navmap)) &&
+        ((keys(%{$toshow}) > 0) || (keys(%{$byresource}) > 0) ||
+         (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'};
-        $r->print(&Apache::loncommon::start_data_table().
-                  &Apache::loncommon::start_data_table_header_row().
+        $r->print(&Apache::loncommon::start_data_table_header_row().
                   '<th>'.&mt('Location').'</th><th>'.&mt('Release').'</th>'.
                   '<th>'.&mt('Attribute/Setting').'</th>'.
                   &Apache::loncommon::end_data_table_header_row().
                   &Apache::loncommon::start_data_table_row().
                   '<td>&nbsp;'.$icon.'&nbsp;'.&mt('Main Content').'</td>');
-                  &releases_by_map($r,$bymap,$topmap,$scopeorder,$lt);
-                  $r->print(&Apache::loncommon::end_data_table_row());
+        &releases_by_map($r,$bymap,$topmap,$scopeorder,$lt);
+        $r->print(&Apache::loncommon::end_data_table_row());
         my $it=$navmap->getIterator(undef,undef,undef,1,1,undef);
         my $curRes;
         my $depth = 0;
@@ -3046,6 +3069,9 @@ sub show_contents_view {
                     if (ref($byresponsetype->{$symb}) eq 'HASH') {
                         $rowspan += scalar(keys(%{$byresponsetype->{$symb}}));
                     }
+                    if (ref($bycrsrestype->{$symb}) eq 'HASH') {
+                        $rowspan += scalar(keys(%{$bycrsrestype->{$symb}}));
+                    }
                     next if (!$rowspan);
                     $icon = '<img class="LC_contentImage" src="'.$location.'/problem.gif" alt="'.
                             &mt('Problem').'" />';
@@ -3110,10 +3136,37 @@ sub show_contents_view {
                             $r->print('</td>');
                         }
                         $r->print(&Apache::loncommon::end_data_table_row());
+                        $newrow = 1;
+                    }
+                    if (ref($bycrsrestype->{$symb}) eq 'HASH') {
+                        foreach my $rev (sort(keys(%{$bycrsrestype->{$symb}}))) {
+                            if ($newrow) {
+                                $r->print(&Apache::loncommon::continue_data_table_row());
+                            }
+                            $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());
     }
     return;
@@ -3953,7 +4006,7 @@ sub set_discussion_fonts {
                             ($currsize,$currunit) = ($1,$2);
                             $curr{'size'} = $currunit;
                         }
-                        $output .= '<input type="textbox" name="discussion_post_fonts_'.$cat.'_'.$item.'" value="'.$currsize.'" size="5"'.$disabled.'>'.
+                        $output .= '<input type="textbox" name="discussion_post_fonts_'.$cat.'_'.$item.'" value="'.$currsize.'" size="5"'.$disabled.' />'.
                                    '&nbsp;';
                         $selitem = 'unit';
                     }
@@ -4662,8 +4715,8 @@ sub checkforpriv_row {
                     '</b><input type="hidden" name="checkforpriv_'.$num.
                     '" value="'.$currdom.'" /></span><br />'.
                     '<span class="LC_nobreak"><label><input type="checkbox" '.
-                    'name="checkforpriv_delete" value="'.$num.'" />'.
-                    &mt('Delete').$disabled.'</label></span></td>'.
+                    'name="checkforpriv_delete" value="'.$num.'"'.$disabled.' />'.
+                    &mt('Delete').'</label></span></td>'.
                     &Apache::loncommon::end_data_table_row();
                 $num ++;
                 unless (grep(/^\Q$currdom\E$/,@excdoms)) { 
@@ -4795,8 +4848,8 @@ ENDJS
                &substitution_selector($currnum).'</td>'.
                '</tr>'; 
         $pos ++;
-       $currnum ++;
-       $output .= 
+        $currnum ++;
+        $output .= 
                '<tr>'.
                '<td align="left"><span class="LC_nobreak">'.
                &position_selector($pos,$currnum,$maxnum).
@@ -4857,7 +4910,7 @@ sub substitution_selector {
     }
     $output .= '</select></td><td align="left">'.&mt('Size limit').'<br />'.
                '<input type="textbox" name="printfmthdr_limit_'.$num.
-               '" value="'.$limit.'" size="5" /></span>';
+               '" value="'.$limit.'" size="5"'.$disabled.' /></span>';
     return $output;
 }