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

[raeburn]

raeburn		Sun Jan 29 23:53:55 2017 EDT

  Modified files:              
    /loncom/interface	printout.pl lonprintout.pm 
  Log:
  - Escape value of URLback before storing in %env.
  - &unescape() was moved from lonnet.pm to LONCAPA.pm in 2006.  
  
  
Index: loncom/interface/printout.pl
diff -u loncom/interface/printout.pl:1.163 loncom/interface/printout.pl:1.164
--- loncom/interface/printout.pl:1.163	Sun Jan 29 13:07:14 2017
+++ loncom/interface/printout.pl	Sun Jan 29 23:53:55 2017
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 # CGI-script to run LaTeX, dvips, ps2ps, ps2pdf etc.
 #
-# $Id: printout.pl,v 1.163 2017/01/29 13:07:14 raeburn Exp $
+# $Id: printout.pl,v 1.164 2017/01/29 23:53:55 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -40,6 +40,7 @@
 use Apache::lonmsg();
 use LONCAPA::Enrollment;
 use LONCAPA::Configuration;
+use LONCAPA;
 
 use strict;
 
@@ -201,7 +202,7 @@
 my $advanced_role = $env{'cgi.'.$identifier.'.role'};
 my $number_of_files = $env{'cgi.'.$identifier.'.numberoffiles'}+1;
 my $student_names = $env{'cgi.'.$identifier.'.studentnames'};
-my $backref = &Apache::lonnet::unescape($env{'cgi.'.$identifier.'.backref'});
+my $backref = &unescape($env{'cgi.'.$identifier.'.backref'});
 
 
 my @names_pack=();
Index: loncom/interface/lonprintout.pm
diff -u loncom/interface/lonprintout.pm:1.654 loncom/interface/lonprintout.pm:1.655
--- loncom/interface/lonprintout.pm:1.654	Sun Jan 29 23:34:58 2017
+++ loncom/interface/lonprintout.pm	Sun Jan 29 23:53:55 2017
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Printout
 #
-# $Id: lonprintout.pm,v 1.654 2017/01/29 23:34:58 raeburn Exp $
+# $Id: lonprintout.pm,v 1.655 2017/01/29 23:53:55 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -40,6 +40,7 @@
 use Apache::lonenc;
 use Apache::entities;
 use Apache::londefdef;
+use LONCAPA;
 # use Apache::structurelags;	# for language management.
 
 use File::Basename;
@@ -3536,7 +3537,7 @@
 				'cgi.'.$identifier.'.role' => $perm{'pav'},
 				'cgi.'.$identifier.'.numberoffiles' => $#print_array,
 				'cgi.'.$identifier.'.studentnames' => $student_names,
-				'cgi.'.$identifier.'.backref' => $URLback,});
+				'cgi.'.$identifier.'.backref' => &escape($URLback),});
     &Apache::lonnet::appenv({"cgi.$identifier.user"    => $env{'user.name'},
 				"cgi.$identifier.domain"  => $env{'user.domain'},
 				"cgi.$identifier.courseid" => $cnum,