--- loncom/interface/lonprintout.pm 2007/07/25 19:15:29 1.504
+++ loncom/interface/lonprintout.pm 2007/10/02 00:30:57 1.506.2.1
@@ -2,7 +2,7 @@
# The LearningOnline Network
# Printout
#
-# $Id: lonprintout.pm,v 1.504 2007/07/25 19:15:29 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 @@ HELPERFRAGMENT
if ($perm{'pfo'} && !$is_published &&
($helper->{VARS}->{'postdata'}=~/\/res\// || $helper->{VARS}->{'postdata'}=~/\/(syllabus|smppg|aboutme|bulletinboard)$/)) {
- push @{$printChoices}, ['Selected Problems from entire course', 'all_problems', 'ALL_PROBLEMS'];
- push @{$printChoices}, ['Selected Resources from entire course', 'all_resources', 'ALL_RESOURCES'];
+ push @{$printChoices}, [&mtn('Selected Problems from entire course'), 'all_problems', 'ALL_PROBLEMS'];
+ push @{$printChoices}, [&mtn('Selected Resources from entire course'), 'all_resources', 'ALL_RESOURCES'];
&Apache::lonxml::xmlparse($r, 'helper', <{VARS}->{'construction'} && !$is_published) {
- push @$printChoices, ["Selected Resources from selected folder in course",
+ push @$printChoices, [&mtn("Selected Resources from selected folder in course"),
'select_sequences', 'CHOOSE_SEQUENCE'];
my $escapedSequenceName = $helper->{VARS}->{'SEQUENCE'};
#Escape apostrophes and backslashes for Perl
@@ -2885,7 +2885,7 @@ CHOOSE_FROM_ANY_SEQUENCE
Apache::lonhelper::dropdown->new();
addMessage("
".
- '
");
$paramHash = Apache::lonhelper::getParamHash();
@@ -2934,9 +2934,10 @@ CHOOSE_FROM_ANY_SEQUENCE
}
if ($helper->{'VARS'}->{'construction'}) {
- my $stylevalue=$env{'construct.style'};
+ my $stylevalue='$Apache::lonnet::env{"construct.style"}';
my $randseedtext=&mt("Use random seed");
my $stylefiletext=&mt("Use style file");
+ my $selectfiletext=&mt("Select style file");
my $xmlfrag .= <<"RNDSEED";
RNDSEED
@@ -3065,6 +3066,8 @@ sub render {
my $PageLayout=&mt('Page layout');
my $NumberOfColumns=&mt('Number of columns');
my $PaperType=&mt('Paper type');
+ my $landscape=&mt('Landscape');
+ my $portrait=&mt('Portrait');
$result .= <
@@ -3076,8 +3079,8 @@ sub render {