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

[raeburn]

raeburn		Fri Nov 30 20:38:01 2012 EDT

  Modified files:              
    /loncom/interface	lonprintout.pm 
  Log:
  - Correct URL shown for external resources starting https://
  
  
Index: loncom/interface/lonprintout.pm
diff -u loncom/interface/lonprintout.pm:1.622 loncom/interface/lonprintout.pm:1.623
--- loncom/interface/lonprintout.pm:1.622	Tue Nov 20 12:03:06 2012
+++ loncom/interface/lonprintout.pm	Fri Nov 30 20:38:01 2012
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Printout
 #
-# $Id: lonprintout.pm,v 1.622 2012/11/20 12:03:06 foxr Exp $
+# $Id: lonprintout.pm,v 1.623 2012/11/30 20:38:01 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2060,6 +2060,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.' ';