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

[bowersj2]

bowersj2		Wed Jun 18 14:11:17 2003 EDT

  Modified files:              
    /loncom/interface	lonprintout.pm 
  Log:
  Fixes bug 1831; fix by Mark Lucas.
  
  
Index: loncom/interface/lonprintout.pm
diff -u loncom/interface/lonprintout.pm:1.187 loncom/interface/lonprintout.pm:1.188
--- loncom/interface/lonprintout.pm:1.187	Wed May 28 17:25:33 2003
+++ loncom/interface/lonprintout.pm	Wed Jun 18 14:11:16 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Printout
 #
-# $Id: lonprintout.pm,v 1.187 2003/05/28 21:25:33 www Exp $
+# $Id: lonprintout.pm,v 1.188 2003/06/18 18:11:16 bowersj2 Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -857,7 +857,7 @@
     # very first screen.
     # Detect whether we're coming from construction space
     if ($ENV{'form.postdata'} =~ /http:\/\// ) {
-        $ENV{'form.postdata'} =~ /http:\/\/[a-zA-Z.]+\/~([a-zA-Z0-9]+)\/(.*)/;
+        $ENV{'form.postdata'} =~ /http:\/\/[^\/]+\/~([^\/]+)\/(.*)/;
         $helper->{VARS}->{'filename'} = "/home/$1/public_html/$2";
         $helper->{VARS}->{'construction'} = 1;
     } else {