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

Diff for /loncom/interface/printout.pl between versions 1.111 and 1.112

version 1.111, 2006/10/30 11:40:49 version 1.112, 2006/11/06 11:40:02
Line 205  print "<a href=\"$backref\"><b>Return</b Line 205  print "<a href=\"$backref\"><b>Return</b
       foreach my $not_eps (@content_of_file) {        foreach my $not_eps (@content_of_file) {
   chomp($not_eps);    chomp($not_eps);
   if ($not_eps ne '') {    if ($not_eps ne '') {
       # print "Converting $not_eps"; # Debugging.         # print "Converting $not_eps"; # Debugging.
               my $status_statement='EPS picture for '.$not_eps;                my $status_statement='EPS picture for '.$not_eps;
       # print "$status_statement\n";        # print "$status_statement\n";
       $not_eps=~s|\/\.\/|\/|g;        $not_eps=~s|\/\.\/|\/|g;
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 ($path, $nsname, $sext) = fileparse($eps_f, qr/\.(ps|eps)/i);        my ($nsname,$path, $sext) = fileparse($not_eps, qr/\.(ps|eps)/i);
       if ($sext =~/ps$/i) {        if ($sext =~/ps$/i) {
     # print "$not_eps is a postscript file. copy to $path\n";
   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;
   File::Copy("$not_eps", "$eps_f");     # print "Copying $not_eps to $eps_f\n";
     copy("$not_eps", "$eps_f"); 
     # print "Copy complete\n";
       } else {        } else {
               
   $eps_f .= '.eps'; # Just append the eps ext.    $eps_f .= '.eps'; # Just append the eps ext.
Removed from v.1.111  
changed lines
  Added in v.1.112

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