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

[sakharuk]

sakharuk		Fri Aug  1 10:47:15 2003 EDT

  Modified files:              
    /loncom/interface	lonprintout.pm 
  Log:
  Bug 1850 (Printing from Edit link in CSTR fails) is fixed. 
  
  
Index: loncom/interface/lonprintout.pm
diff -u loncom/interface/lonprintout.pm:1.205 loncom/interface/lonprintout.pm:1.206
--- loncom/interface/lonprintout.pm:1.205	Mon Jul 28 09:46:42 2003
+++ loncom/interface/lonprintout.pm	Fri Aug  1 10:47:15 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Printout
 #
-# $Id: lonprintout.pm,v 1.205 2003/07/28 13:46:42 bowersj2 Exp $
+# $Id: lonprintout.pm,v 1.206 2003/08/01 14:47:15 sakharuk Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -619,6 +619,7 @@
 	    $currentURL=$helper->{'VARS'}->{'filename'};
 	    $currentURL=~s/\/home\//\/~/;
 	    $currentURL=~s/public_html\///;
+	    if ($currentURL=~/([^?]+)/) {$currentURL=$1;}
 	}
 	$selectionmade = 1;
 	if ($currentURL=~/\.(problem|exam|quiz|assess|survey|form|library|page|xml|html|htm|xhtml|xhtm)$/) {