[BACK]Return to printout.pl CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/printout.pl between versions 1.113 and 1.114

version 1.113, 2006/11/13 11:18:46 version 1.114, 2006/12/04 21:44:42
Line 227  print "<a href=\"$backref\"><b>Return</b Line 227  print "<a href=\"$backref\"><b>Return</b
       # We really just need to copy it from where it was to prtspool        # We really just need to copy it from where it was to prtspool
       # but with the spaces substituted to _'s.        # 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) {        if ($sext =~/ps$/i) {
   # print "$not_eps is a postscript file. copy to $path\n";    # print "$not_eps is a postscript file. copy to $path\n";
   File::Path::mkpath($path,0,0777);    &File::Path::mkpath($path,0,0777);
     print "Made path: $path";    #print("Made path: $path");
 #  $not_eps =~ s/^\s+//;    #$not_eps =~ s/^\s+//;
 #  $not_eps =~ s/\s+$//;    #$not_eps =~ s/\s+$//;
 #  $not_eps =~ s/ /\__/g;    #$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");     copy("$not_eps", "$eps_f"); 
   # print "Copy complete\n";    # print "Copy complete\n";
       } else {        } else {
Line 244  print "<a href=\"$backref\"><b>Return</b Line 244  print "<a href=\"$backref\"><b>Return</b
   my $path=$eps_f;    my $path=$eps_f;
   $path =~ s/\/([^\/]+)\.eps$//;    $path =~ s/\/([^\/]+)\.eps$//;
   # print "Final file path: $path "; # Debugging    # 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/\s+$//;    $not_eps =~ s/\s+$//;
   $not_eps =~ s/ /\\ /g;    $not_eps =~ s/ /\\ /g;
Removed from v.1.113  
changed lines
  Added in v.1.114

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>