--- loncom/interface/lonprintout.pm	2003/07/28 13:46:42	1.205
+++ loncom/interface/lonprintout.pm	2003/08/01 14:47:15	1.206
@@ -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 @@ ENDPART
 	    $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)$/) {