--- loncom/interface/lonprintout.pm 2022/06/11 17:32:32 1.681 +++ loncom/interface/lonprintout.pm 2023/01/15 01:19:50 1.683 @@ -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.683 2023/01/15 01:19:50 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -4562,7 +4562,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 +4571,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 @@ -4790,7 +4791,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 +4806,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 +4883,7 @@ CHOOSE_FROM_SUBDIR (mark desired resources then click "next" button)
+ closeallpages="1" modallink="1" $nocurrloc> PAGESIZE return $isNotMap return '$escapedSequenceName'; @@ -4904,7 +4907,7 @@ CHOOSE_FROM_ANY_SEQUENCE (mark desired resources then click "next" button)
+ closeallpages="1" modallink="1" $nocurrloc> PAGESIZE return $isNotMap return '$escapedSequenceName';