[LON-CAPA-cvs] cvs: loncom /interface printout.pl

albertel lon-capa-cvs@mail.lon-capa.org
Mon, 04 Dec 2006 21:44:42 -0000


albertel		Mon Dec  4 16:44:42 2006 EDT

  Modified files:              
    /loncom/interface	printout.pl 
  Log:
  - style
  -remove some debug
  
  
Index: loncom/interface/printout.pl
diff -u loncom/interface/printout.pl:1.113 loncom/interface/printout.pl:1.114
--- loncom/interface/printout.pl:1.113	Mon Nov 13 06:18:46 2006
+++ loncom/interface/printout.pl	Mon Dec  4 16:44:42 2006
@@ -227,15 +227,15 @@
 	      # 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($eps_f, 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";
+		  &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 {
@@ -244,7 +244,7 @@
 		  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;