--- loncom/interface/lonprintout.pm 2007/09/05 00:56:55 1.508
+++ loncom/interface/lonprintout.pm 2007/10/11 22:49:49 1.510
@@ -2,7 +2,7 @@
# The LearningOnline Network
# Printout
#
-# $Id: lonprintout.pm,v 1.508 2007/09/05 00:56:55 albertel Exp $
+# $Id: lonprintout.pm,v 1.510 2007/10/11 22:49:49 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1969,10 +1969,7 @@ ENDPART
}
my $URLback=''; #link to original document
- if ($helper->{'VARS'}->{'construction'} ne '1') {
- #prints published resource
- $URLback=&escape('/adm/flip?postdata=return:');
- } else {
+ if ($helper->{'VARS'}->{'construction'} eq '1') {
#prints resource from the construction space
$URLback='/'.$helper->{'VARS'}->{'filename'};
if ($URLback=~/([^?]+)/) {
@@ -2470,8 +2467,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