--- 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';