--- loncom/interface/lonprintout.pm 2022/06/11 14:51:49 1.679
+++ loncom/interface/lonprintout.pm 2023/01/17 17:38:20 1.686
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Printout
#
-# $Id: lonprintout.pm,v 1.679 2022/06/11 14:51:49 raeburn Exp $
+# $Id: lonprintout.pm,v 1.686 2023/01/17 17:38:20 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -4212,19 +4212,12 @@ sub printHelper {
$helper->{VARS}->{'symb'} = $env{'form.symb'};
}
if ($env{'form.url'}) {
- $helper->{VARS}->{'symb'} = &Apache::lonnet::symbread($helper->{VARS}->{'postdata'});
+ unless ($env{'form.url'} eq '/adm/navmaps') {
+ $helper->{VARS}->{'symb'} = &Apache::lonnet::symbread($helper->{VARS}->{'postdata'});
+ }
}
-
}
- if ($env{'form.symb'}) {
- $helper->{VARS}->{'symb'} = $env{'form.symb'};
- }
- if ($env{'form.url'}) {
- unless ($env{'form.url'} eq '/adm/navmaps') {
- $helper->{VARS}->{'symb'} = &Apache::lonnet::symbread($helper->{VARS}->{'postdata'});
- }
- }
if ($helper->{VARS}->{'symb'} ne '') {
$helper->{VARS}->{'symb'}=
&Apache::lonenc::check_encrypt($helper->{VARS}->{'symb'});
@@ -4500,7 +4493,7 @@ sub printHelper {
$optionText = &mt('Selected [_1]Incomplete Problems[_2] [_3]not in a folder[_4]' . $textSuffix,
'','','','');
} else {
- $optionText = &mt('Selected [_1]Incomplete Problems[_2] from folder [_3]' . $textSuffix,
+ $optionText = &mt('Selected [_1]Incomplete Problems[_2] from folder [_3]' . $textSuffix,
'','',''.$sequenceTitle.'');
}
push(@{$printChoices},
@@ -4562,7 +4555,8 @@ sub printHelper {
# BZ 5209 - incomplete problems from entire course:
push(@{$printChoices},
- [&mtn('Selected Incomplete Problems from entire course for selected people'),
+ [&mt('Selected [_1]Incomplete Problems[_2] from [_3]entire course[_4] for [_5]selected people[_6]',
+ '','','','','',''),
'incomplete_problems_selpeople_course', 'INCOMPLETE_PROBLEMS_COURSE_RESOURCES']);
my $helperFragment = &create_incomplete_course_helper($helper); # Create needed states.
@@ -4570,9 +4564,9 @@ sub printHelper {
# Selected problems/resources from entire course:
- push @{$printChoices}, [&mtn('Selected Problems from entire course'), 'all_problems', 'ALL_PROBLEMS'];
- push @{$printChoices}, [&mtn('Selected Resources from entire course'), 'all_resources', 'ALL_RESOURCES'];
- push @{$printChoices}, [&mtn('Selected Problems from entire course for selected people'), 'all_problems_students', 'ALL_PROBLEMS_STUDENTS'];
+ push @{$printChoices}, [&mt('Selected [_1]Problems[_2] from [_3]entire course[_4]','','','',''), 'all_problems', 'ALL_PROBLEMS'];
+ push @{$printChoices}, [&mt('Selected [_1]Resources[_2] from [_3]entire course[_4]','','','',''), 'all_resources', 'ALL_RESOURCES'];
+ push @{$printChoices}, [&mt('Selected [_1]Problems[_2] from [_3]entire course[_4] for [_5]selected people[_6]','','','','','',''), 'all_problems_students', 'ALL_PROBLEMS_STUDENTS'];
my $suffixXml = <
Select sorting order of printout
@@ -4788,8 +4782,9 @@ CHOOSE_FROM_SUBDIR
# another resource selector for that sequence
if ((!$helper->{VARS}->{'construction'}) &&
(!$is_published || (($subdir eq '') && ($url eq '/adm/navmaps')))) {
- push @$printChoices, [&mtn("Selected Resources from selected folder in course"),
- 'select_sequences', 'CHOOSE_SEQUENCE'];
+ push(@$printChoices,[&mt('Selected [_1]Resources[_2] from [_3]selected folder[_4] in course',
+ '','','',''),
+ 'select_sequences','CHOOSE_SEQUENCE']);
my $escapedSequenceName;
if ($helper->{VARS}->{'SEQUENCE'} ne '') {
$escapedSequenceName = $helper->{VARS}->{'SEQUENCE'};
@@ -4804,8 +4799,10 @@ CHOOSE_FROM_SUBDIR
#Escape apostrophes and backslashes for Perl
$escapedSequenceName =~ s/\\/\\\\/g;
$escapedSequenceName =~ s/'/\\'/g;
+ my $nocurrloc;
if (($subdir eq '') && ($url eq '/adm/navmaps')) {
- if ($perm{'pfo'})) {
+ $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]',
'','','','','',''),
@@ -4818,18 +4815,10 @@ CHOOSE_FROM_SUBDIR
'select_sequences_resources_for_students','CHOOSE_SEQUENCE_STUDENTS1'],
[&mt('Selected [_1]Resources[_2] from [_3]selected folder[_4] in course for [_5]CODEd assignments[_6]',
'','','','','',''),
- 'select_sequences_resources_for_anon','CHOOSE_SEQUENCE_ANON2'],
- [&mt('Selected [_1]Resources[_2] from [_3]selected folder[_4] in course',
- '','','',''),
- 'select_sequences','CHOOSE_SEQUENCE']);
+ 'select_sequences_resources_for_anon','CHOOSE_SEQUENCE_ANON2']);
if ($escapedSequenceName) {
&generate_common_choosers($r,$helper,$escapedSequenceName,$escapedSequenceName,$isProblem,$symbFilter,$start_new_option);
}
- } else {
- push(@{$printChoices},
- [&mt('Selected [_1]Resources[_2] from [_3]selected folder[_4] in course',
- '','','',''),
- 'select_sequences','CHOOSE_SEQUENCE']);
}
}
if (($subdir eq '') && ($url eq '/adm/navmaps') && ($perm{'pfo'})) {
@@ -4887,7 +4876,7 @@ CHOOSE_FROM_SUBDIR
(mark desired resources then click "next" button)
+ closeallpages="1" modallink="1" suppressNavmap="1" $nocurrloc>
PAGESIZE
return $isNotMap
return '$escapedSequenceName';
@@ -4911,7 +4900,7 @@ CHOOSE_FROM_ANY_SEQUENCE
(mark desired resources then click "next" button)
+ closeallpages="1" modallink="1" suppressNavmap="1" $nocurrloc>
PAGESIZE
return $isNotMap
return '$escapedSequenceName';