[LON-CAPA-cvs] cvs: loncom /homework structuretags.pm

[raeburn]

raeburn		Sat Jan 13 17:35:19 2024 EDT

  Modified files:              
    /loncom/homework	structuretags.pm 
  Log:
  - Bug 6907 -- Determination of whether grade passback is needed for session
    launcheed via LTI-mediated deep link, with deeplink scope set to "rec", i.e.,
    recursive.
    - Fix path for &get_map_hierarchy()
    - Check if current map is same as map for deeplink access point before
      looking (recursively) in current map's parent map(s).
  
  
Index: loncom/homework/structuretags.pm
diff -u loncom/homework/structuretags.pm:1.583 loncom/homework/structuretags.pm:1.584
--- loncom/homework/structuretags.pm:1.583	Sat Jan 13 12:07:13 2024
+++ loncom/homework/structuretags.pm	Sat Jan 13 17:35:19 2024
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA 
 # definition of tags that give a structure to a document
 #
-# $Id: structuretags.pm,v 1.583 2024/01/13 12:07:13 raeburn Exp $
+# $Id: structuretags.pm,v 1.584 2024/01/13 17:35:19 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1451,10 +1451,15 @@
                                 $pbscope = 'nonrec';
                             }
                         } elsif ($scope eq 'rec') {
-                            my @recurseup = &get_map_hierarchy($map,$env{'request.course.id'});
-                            if (grep(/^\Q$deeplink_map\E$/, at recurseup)) {
+                            if (&Apache::lonnet::clutter($deeplink_map) eq $map) {
                                 $passback = 1;
                                 $pbscope = 'map';
+                            } else {
+                                my @recurseup = &Apache::lonnet::get_map_hierarchy($map,$env{'request.course.id'});
+                                if (grep(/^\Q$deeplink_map\E$/, at recurseup)) {
+                                    $passback = 1;
+                                    $pbscope = 'map';
+                                }
                             }
                         }
                         return ($passback,$pbscope,$deeplink_map,$deeplink_symb,$crsdef,$itemnum,$lti_in_use);