--- loncom/interface/courseprefs.pm	2018/01/02 14:43:17	1.85
+++ 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.85 2018/01/02 14:43:17 raeburn Exp $
+# $Id: courseprefs.pm,v 1.86 2018/01/03 04:20:54 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2957,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>';
@@ -2971,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,\%bycrsrestype,\@scopeorder,\%lt);
+                                \%byresponsetype,\%bycrsrestype,\@scopeorder,\%lt,$supptools);
         }
         $r->print('<br /><br />'); 
     } else {
@@ -2991,23 +2995,30 @@ sub display_loncaparev_constraints {
 
 sub show_contents_view {
     my ($r,$navmap,$cid,$toshow,$bymap,$byresource,$bysubmission,$byresponsetype,
-        $bycrsrestype,$scopeorder,$lt) = @_;
-    if ((keys(%{$toshow}) > 0) || (keys(%{$byresource}) > 0) || 
-        (keys(%{$bysubmission}) > 0) || (keys(%{$byresponsetype}) > 0) ||
-        (keys(%{$bycrsrestype}) > 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;
@@ -3134,10 +3145,28 @@ sub show_contents_view {
                             }
                             $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;