[LON-CAPA-cvs] cvs: loncom(version_2_5_X) /interface lonprintout.pm
albertel
lon-capa-cvs-allow@mail.lon-capa.org
Tue, 02 Oct 2007 00:30:58 -0000
albertel Mon Oct 1 20:30:58 2007 EDT
Modified files: (Branch: version_2_5_X)
/loncom/interface lonprintout.pm
Log:
- backport 1.509
Index: loncom/interface/lonprintout.pm
diff -u loncom/interface/lonprintout.pm:1.506 loncom/interface/lonprintout.pm:1.506.2.1
--- loncom/interface/lonprintout.pm:1.506 Wed Jul 25 19:20:38 2007
+++ loncom/interface/lonprintout.pm Mon Oct 1 20:30:57 2007
@@ -2,7 +2,7 @@
# The LearningOnline Network
# Printout
#
-# $Id: lonprintout.pm,v 1.506 2007/07/25 23:20:38 albertel Exp $
+# $Id: lonprintout.pm,v 1.506.2.1 2007/10/02 00:30:57 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -2448,8 +2448,8 @@
if ($perm{'pfo'} && !$is_published &&
($helper->{VARS}->{'postdata'}=~/\/res\// || $helper->{VARS}->{'postdata'}=~/\/(syllabus|smppg|aboutme|bulletinboard)$/)) {
- push @{$printChoices}, ['Selected <b>Problems</b> from <b>entire course</b>', 'all_problems', 'ALL_PROBLEMS'];
- push @{$printChoices}, ['Selected <b>Resources</b> from <b>entire course</b>', 'all_resources', 'ALL_RESOURCES'];
+ push @{$printChoices}, [&mtn('Selected <b>Problems</b> from <b>entire course</b>'), 'all_problems', 'ALL_PROBLEMS'];
+ push @{$printChoices}, [&mtn('Selected <b>Resources</b> from <b>entire course</b>'), 'all_resources', 'ALL_RESOURCES'];
&Apache::lonxml::xmlparse($r, 'helper', <<ALL_PROBLEMS);
<state name="ALL_PROBLEMS" title="Select Problem(s) to print">
<resource variable="RESOURCES" toponly='0' multichoice="1"
@@ -2794,7 +2794,7 @@
# Allow the user to select any sequence in the course, feed it to
# another resource selector for that sequence
if (!$helper->{VARS}->{'construction'} && !$is_published) {
- push @$printChoices, ["Selected <b>Resources</b> from <b>selected folder</b> in course",
+ push @$printChoices, [&mtn("Selected <b>Resources</b> from <b>selected folder</b> in course"),
'select_sequences', 'CHOOSE_SEQUENCE'];
my $escapedSequenceName = $helper->{VARS}->{'SEQUENCE'};
#Escape apostrophes and backslashes for Perl