--- loncom/lonnet/perl/lonnet.pm 2022/10/22 20:45:35 1.1498 +++ 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.1498 2022/10/22 20:45:35 raeburn Exp $ +# $Id: lonnet.pm,v 1.1499 2022/10/22 21:13:47 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -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});