--- loncom/interface/printout.pl	2006/11/06 11:40:02	1.112
+++ loncom/interface/printout.pl	2006/11/13 11:18:46	1.113
@@ -227,14 +227,15 @@ print "<a href=\"$backref\"><b>Return</b
 	      # We really just need to copy it from where it was to prtspool
 	      # but with the spaces substituted to _'s.
 	      #
-	      my ($nsname,$path, $sext) = fileparse($not_eps, qr/\.(ps|eps)/i);
+	      my ($nsname,$path, $sext) = fileparse($eps_f, qr/\.(ps|eps)/i);
 	      if ($sext =~/ps$/i) {
 		  # print "$not_eps is a postscript file. copy to $path\n";
 		  File::Path::mkpath($path,0,0777);
+		    print "Made path: $path";
 #		  $not_eps =~ s/^\s+//;
 #		  $not_eps =~ s/\s+$//;
 #		  $not_eps =~ s/ /\__/g;
-		  # print "Copying $not_eps to $eps_f\n";
+		  print "Copying $not_eps to $eps_f\n";
 		  copy("$not_eps", "$eps_f"); 
 		  # print "Copy complete\n";
 	      } else {