--- loncom/homework/structuretags.pm 2024/01/13 12:30:59 1.512.2.24.2.8 +++ loncom/homework/structuretags.pm 2024/01/13 17:48:57 1.512.2.24.2.9 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # definition of tags that give a structure to a document # -# $Id: structuretags.pm,v 1.512.2.24.2.8 2024/01/13 12:30:59 raeburn Exp $ +# $Id: structuretags.pm,v 1.512.2.24.2.9 2024/01/13 17:48:57 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1380,10 +1380,15 @@ sub needs_linkprot_passback { $pbscope = 'nonrec'; } } elsif ($scope eq 'rec') { - my @recurseup = &get_map_hierarchy($map,$env{'request.course.id'}); - if (grep(/^\Q$deeplink_map\E$/,@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$/,@recurseup)) { + $passback = 1; + $pbscope = 'map'; + } } } return ($passback,$pbscope,$deeplink_map,$deeplink_symb,$crsdef,$itemnum,$lti_in_use);