[LON-CAPA-cvs] cvs: loncom(version_2_10_X) /interface lonprintout.pm

[raeburn]

raeburn		Tue Aug 27 02:39:25 2013 EDT

  Modified files:              (Branch: version_2_10_X)
    /loncom/interface	lonprintout.pm 
  Log:
  - https://-type URLs for external resources shown correctly in printouts.
  
  
Index: loncom/interface/lonprintout.pm
diff -u loncom/interface/lonprintout.pm:1.583.2.5 loncom/interface/lonprintout.pm:1.583.2.6
--- loncom/interface/lonprintout.pm:1.583.2.5	Thu Sep 15 16:33:57 2011
+++ loncom/interface/lonprintout.pm	Tue Aug 27 02:39:24 2013
@@ -2,7 +2,7 @@
 # The LearningOnline Network
 # Printout
 #
-# $Id: lonprintout.pm,v 1.583.2.5 2011/09/15 16:33:57 raeburn Exp $
+# $Id: lonprintout.pm,v 1.583.2.6 2013/08/27 02:39:24 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1529,6 +1529,7 @@
     my $result.= &print_latex_header($mode);
     if ($currentURL=~m|^(/adm/wrapper/)?ext/|) {
 	$currentURL=~s|^(/adm/wrapper/)?ext/|http://|;
+        $currentURL=~s|http://https://|https://|;
 	my $title=&Apache::lonnet::gettitle($symb);
 	$title = &Apache::lonxml::latex_special_symbols($title);
 	$result.=' \strut \\\\ '.$title.' \strut \\\\ '.$currentURL.' ';