[LON-CAPA-cvs] cvs: loncom /interface lonprintout.pm printout.pl

albertel lon-capa-cvs@mail.lon-capa.org
Mon, 20 Dec 2004 21:15:21 -0000


albertel		Mon Dec 20 16:15:21 2004 EDT

  Modified files:              
    /loncom/interface	lonprintout.pm printout.pl 
  Log:
  - splunking
  
  
Index: loncom/interface/lonprintout.pm
diff -u loncom/interface/lonprintout.pm:1.341 loncom/interface/lonprintout.pm:1.342
--- loncom/interface/lonprintout.pm:1.341	Mon Dec 13 18:28:43 2004
+++ loncom/interface/lonprintout.pm	Mon Dec 20 16:15:20 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Printout
 #
-# $Id: lonprintout.pm,v 1.341 2004/12/13 23:28:43 foxr Exp $
+# $Id: lonprintout.pm,v 1.342 2004/12/20 21:15:20 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1343,7 +1343,7 @@
     my $URLback=''; #link to original document
     if ($helper->{'VARS'}->{'construction'} ne '1') {
 	#prints published resource
-	$URLback=$helper->{'VARS'}->{'postdata'};
+	$URLback=&Apache::lonnet::escape('/adm/flip?postdata=return:');
     } else {
 	#prints resource from the construction space
 	$URLback='/'.$helper->{'VARS'}->{'filename'};
@@ -1674,8 +1674,8 @@
     my $isNotMap = '!$res->is_sequence()';
     $isNotMap .= ' && !$res->randomout()' if !$userCanSeeHidden;
     my $isMap = '$res->is_map()';
-    my $symbFilter = '$res->symb()';
-    my $urlValue = '$res->src()';
+    my $symbFilter = '$res->shown_symb()';
+    my $urlValue = '$res->link()';
 
     $helper->declareVar('SEQUENCE');
 
Index: loncom/interface/printout.pl
diff -u loncom/interface/printout.pl:1.70 loncom/interface/printout.pl:1.71
--- loncom/interface/printout.pl:1.70	Sat Nov 13 03:25:41 2004
+++ loncom/interface/printout.pl	Mon Dec 20 16:15:20 2004
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 # CGI-script to run LaTeX, dvips, ps2ps, ps2pdf etc.
 #
-# $Id: printout.pl,v 1.70 2004/11/13 08:25:41 albertel Exp $
+# $Id: printout.pl,v 1.71 2004/12/20 21:15:20 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -32,6 +32,7 @@
 use IO::File;
 use Image::Magick;
 use Apache::lonhtmlcommon;
+use Apache::lonnet();
 use Apache::loncommon;
 use Apache::lonlocal;
 
@@ -67,7 +68,7 @@
   my $advans_role = $ENV{'cgi.'.$identifier.'role'};
   my $number_of_files = $ENV{'cgi.'.$identifier.'numberoffiles'}+1;
   my $student_names = $ENV{'cgi.'.$identifier.'studentnames'};
-  my $backref = $ENV{'cgi.'.$identifier.'backref'};
+  my $backref = &Apache::lonnet::unescape($ENV{'cgi.'.$identifier.'backref'});
 
 
   my $adv = $ENV{'request.role.adv'};