[LON-CAPA-cvs] cvs: loncom /interface lonnavmaps.pm

[raeburn]

raeburn		Tue Dec 10 04:34:19 2024 EDT

  Modified files:              
    /loncom/interface	lonnavmaps.pm 
  Log:
  - Add optional third arg to &recurseup_maps() -- $getsymb. If true, array
    returned contains symbs of the maps instead of their urls (the default).  
  
  
Index: loncom/interface/lonnavmaps.pm
diff -u loncom/interface/lonnavmaps.pm:1.564 loncom/interface/lonnavmaps.pm:1.565
--- loncom/interface/lonnavmaps.pm:1.564	Mon Oct 14 01:13:27 2024
+++ loncom/interface/lonnavmaps.pm	Tue Dec 10 04:34:19 2024
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Navigate Maps Handler
 #
-# $Id: lonnavmaps.pm,v 1.564 2024/10/14 01:13:27 raeburn Exp $
+# $Id: lonnavmaps.pm,v 1.565 2024/12/10 04:34:19 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3050,7 +3050,7 @@
 }
 
 sub recurseup_maps {
-    my ($self,$mapname) = @_;
+    my ($self,$mapname,$getsymb) = @_;
     my @recurseup;
     if ($mapname) {
         my $res = $self->getResourceByUrl($mapname);
@@ -3058,7 +3058,11 @@
             my @pcs = split(/,/,$res->map_hierarchy());
             shift(@pcs);
             if (@pcs) {
-                @recurseup = map { &Apache::lonnet::declutter($self->getByMapPc($_)->src()); } reverse(@pcs);
+                if ($getsymb) {
+                    @recurseup = map { &Apache::lonnet::declutter($self->getByMapPc($_)->symb()); } reverse(@pcs);
+                } else {
+                    @recurseup = map { &Apache::lonnet::declutter($self->getByMapPc($_)->src()); } reverse(@pcs);
+                }
             }
         }
     }