--- loncom/interface/printout.pl	2006/10/30 11:40:49	1.111
+++ loncom/interface/printout.pl	2006/12/04 21:44:42	1.114
@@ -205,7 +205,7 @@ print "<a href=\"$backref\"><b>Return</b
       foreach my $not_eps (@content_of_file) {
 	  chomp($not_eps);
 	  if ($not_eps ne '') {
-	      # print "Converting $not_eps"; # Debugging.
+	       # print "Converting $not_eps"; # Debugging.
               my $status_statement='EPS picture for '.$not_eps;
 	      # print "$status_statement\n";
 	      $not_eps=~s|\/\.\/|\/|g;
@@ -227,20 +227,24 @@ 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 ($path, $nsname, $sext) = fileparse($eps_f, qr/\.(ps|eps)/i);
+	      my ($nsname,$path, $sext) = &fileparse($eps_f, qr/\.(ps|eps)/i);
 	      if ($sext =~/ps$/i) {
-		  File::Path::mkpath($path,0,0777);
-		  $not_eps =~ s/^\s+//;
-		  $not_eps =~ s/\s+$//;
-		  $not_eps =~ s/ /\__/g;
-		  File::Copy("$not_eps", "$eps_f"); 
+		  # 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");
+		  copy("$not_eps", "$eps_f"); 
+		  # print "Copy complete\n";
 	      } else {
 	      
 		  $eps_f .= '.eps';	# Just append the eps ext.
 		  my $path=$eps_f;
 		  $path =~ s/\/([^\/]+)\.eps$//;
 		  # print "Final file path: $path "; # Debugging
-		  File::Path::mkpath($path,0,0777);
+		  &File::Path::mkpath($path,0,0777);
 		  $not_eps =~ s/^\s+//;
 		  $not_eps =~ s/\s+$//;
 		  $not_eps =~ s/ /\\ /g;