--- loncom/interface/lonprintout.pm	2003/03/03 21:53:15	1.127
+++ loncom/interface/lonprintout.pm	2003/03/06 18:16:04	1.128
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Printout
 #
-# $Id: lonprintout.pm,v 1.127 2003/03/03 21:53:15 albertel Exp $
+# $Id: lonprintout.pm,v 1.128 2003/03/06 18:16:04 bowersj2 Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1312,6 +1312,10 @@ sub printWizard {
     $r->rflush();
 
     my ($resourceTitle,$sequenceTitle,$mapTitle) = &details_for_menu;
+    if (!$resourceTitle) { # if the resource doesn't have a title, use the filename
+        my $url = $ENV{'form.postdata'};
+        $resourceTitle = substr($url, rindex($url, '/') + 1);
+    }
 
     my $wizard = Apache::lonwizard->new("Printing Wizard", $ENV{QUERY_STRING});
     # PRINT_TYPE: What the user wants to print (current docs,