--- loncom/lonnet/perl/lonnet.pm	2022/10/22 17:24:55	1.1497
+++ loncom/lonnet/perl/lonnet.pm	2022/10/22 21:13:47	1.1499
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.1497 2022/10/22 17:24:55 raeburn Exp $
+# $Id: lonnet.pm,v 1.1499 2022/10/22 21:13:47 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -12485,7 +12485,7 @@ sub count_supptools {
 }
 
 sub has_unhidden_suppfiles {
-    my ($cnum,$cdom,$ignorecache,$possdell)=@_;
+    my ($cnum,$cdom,$ignorecache,$possdel)=@_;
     my $hashid=$cnum.':'.$cdom;
     my ($showsupp,$cached);
     unless ($ignorecache) {
@@ -12527,11 +12527,19 @@ sub get_supplemental {
     unless (defined($cached)) {
         my $chome=&homeserver($cnum,$cdom);
         unless ($chome eq 'no_host') {
+            my @order = @LONCAPA::map::order;
+            my @resources = @LONCAPA::map::resources;
+            my @resparms = @LONCAPA::map::resparms;
+            my @zombies = @LONCAPA::map::zombies;
             my ($errors,%ids,%hidden);
             $errors =
                 &Apache::loncommon::recurse_supplemental($cnum,$cdom,
                                                          'supplemental.sequence',
                                                          $errors,$possdel,\%ids,\%hidden);
+            @LONCAPA::map::order = @order;
+            @LONCAPA::map::resources = @resources;
+            @LONCAPA::map::resparms = @resparms;
+            @LONCAPA::map::zombies = @zombies;
             $set_httprefs = 1;
             if ($env{'request.course.id'} eq $cdom.'_'.$cnum) {
                 &Apache::lonnet::appenv({'request.course.suppupdated' => time});