--- loncom/interface/londocs.pm	2009/02/10 14:23:18	1.339
+++ loncom/interface/londocs.pm	2009/02/12 11:35:07	1.340
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Documents
 #
-# $Id: londocs.pm,v 1.339 2009/02/10 14:23:18 ehlerst Exp $
+# $Id: londocs.pm,v 1.340 2009/02/12 11:35:07 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1899,6 +1899,7 @@ END
     }
     
     my $orig_url = $url;
+    $orig_url=~s{http(:|:)//https(:|:)//}{https$2//};
     my $external = ($url=~s{^http(|s)(:|:)//}{/adm/wrapper/ext/});
     if ((!$isfolder) && ($residx) && ($folder!~/supplemental/) && (!$ispage)) {
 	my $symb=&Apache::lonnet::symbclean(