loncom/interface/printout.pl - diff

Return to printout.pl CVS log

Up to [LON-CAPA] / loncom / interface

version 1.112, 2006/11/06 11:40:02	version 1.113, 2006/11/13 11:18:46
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($not_eps, 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";
# $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 {