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

[bowersj2]

bowersj2		Thu Jun 19 10:54:51 2003 EDT

  Modified files:              
    /loncom/interface	lonprintout.pm 
  Log:
  Pet peeve: Directory entry should not have doubled slashes.
  
  
Index: loncom/interface/lonprintout.pm
diff -u loncom/interface/lonprintout.pm:1.188 loncom/interface/lonprintout.pm:1.189
--- loncom/interface/lonprintout.pm:1.188	Wed Jun 18 14:11:16 2003
+++ loncom/interface/lonprintout.pm	Thu Jun 19 10:54:51 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Printout
 #
-# $Id: lonprintout.pm,v 1.188 2003/06/18 18:11:16 bowersj2 Exp $
+# $Id: lonprintout.pm,v 1.189 2003/06/19 14:54:51 bowersj2 Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -913,6 +913,8 @@
     if (not $helper->{VARS}->{'construction'}) {
 	$subdir='/home/httpd/html/res/'.$subdir;
     }
+    # "Remove all duplicate slashes."
+    $subdir =~ s|/+|/|g;
 
     # What can be printed is a very dynamic decision based on
     # lots of factors. So we need to dynamically build this list.