[LON-CAPA-cvs] cvs: loncom /lonnet/perl lonnet.pm

[raeburn]

raeburn		Sat Oct 22 21:13:47 2022 EDT

  Modified files:              
    /loncom/lonnet/perl	lonnet.pm 
  Log:
  - Bug 6975. Prevent overwriting of package arrays in LONCAPA::map already 
    populated by caller (e.g., londocs.pm) when lonnet::get_supplemental
    calls loncommon::recurse_supplemental(). 
  
  
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.1498 loncom/lonnet/perl/lonnet.pm:1.1499
--- loncom/lonnet/perl/lonnet.pm:1.1498	Sat Oct 22 20:45:35 2022
+++ loncom/lonnet/perl/lonnet.pm	Sat Oct 22 21:13:47 2022
@@ -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 @@
     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});