--- loncom/interface/lonprintout.pm 2022/06/11 17:32:32 1.681 +++ loncom/interface/lonprintout.pm 2022/06/11 18:12:28 1.682 @@ -1,7 +1,7 @@ # The LearningOnline Network # Printout # -# $Id: lonprintout.pm,v 1.681 2022/06/11 17:32:32 raeburn Exp $ +# $Id: lonprintout.pm,v 1.682 2022/06/11 18:12:28 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -4790,7 +4790,7 @@ CHOOSE_FROM_SUBDIR (!$is_published || (($subdir eq '') && ($url eq '/adm/navmaps')))) { push(@$printChoices,[&mt('Selected [_1]Resources[_2] from [_3]selected folder[_4] in course', '','','',''), - 'select_sequences','CHOOSE_SEQUENCE']); + 'select_sequences','CHOOSE_SEQUENCE']); my $escapedSequenceName; if ($helper->{VARS}->{'SEQUENCE'} ne '') { $escapedSequenceName = $helper->{VARS}->{'SEQUENCE'}; @@ -4805,7 +4805,9 @@ CHOOSE_FROM_SUBDIR #Escape apostrophes and backslashes for Perl $escapedSequenceName =~ s/\\/\\\\/g; $escapedSequenceName =~ s/'/\\'/g; + my $nocurrloc; if (($subdir eq '') && ($url eq '/adm/navmaps')) { + $nocurrloc = 'nocurrloc="1"'; if ($perm{'pfo'}) { push(@{$printChoices}, [&mt('Selected [_1]Problems[_2] from [_3]selected folder[_4] in course for [_5]selected people[_6]', @@ -4880,7 +4882,7 @@ CHOOSE_FROM_SUBDIR (mark desired resources then click "next" button)
+ closeallpages="1" modallink="1" $nocurrloc> PAGESIZE return $isNotMap return '$escapedSequenceName'; @@ -4904,7 +4906,7 @@ CHOOSE_FROM_ANY_SEQUENCE (mark desired resources then click "next" button)
+ closeallpages="1" modallink="1" $nocurrloc> PAGESIZE return $isNotMap return '$escapedSequenceName';