--- loncom/interface/lonprintout.pm	2003/07/18 15:47:35	1.204
+++ 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.204 2003/07/18 15:47:35 sakharuk 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)$/) {
@@ -1131,7 +1132,7 @@ CHOOSE_FROM_SUBDIR
         
         $xmlfrag .= <<'CHOOSE_FROM_SUBDIR';
       <filefilter>return $filename =~ 
-           m/^[^\.]+\.(problem|exam|quiz|assess|survey|form|library)$/;
+           m/\.(problem|exam|quiz|assess|survey|form|library)$/;
       </filefilter>
       </files>
     </state>