loncom/interface/printout.pl - diff

Return to printout.pl CVS log

Up to [LON-CAPA] / loncom / interface

version 1.73, 2005/03/14 23:51:20	version 1.74, 2005/03/15 11:19:28
Line 114 END	Line 114 END
$eps_f=~/$Apache::lonnet::perlvar{'lonUsersDir'}\/([^\/]+)\/\w\/\w\/\w\/(.+)/;	$eps_f=~/$Apache::lonnet::perlvar{'lonUsersDir'}\/([^\/]+)\/\w\/\w\/\w\/(.+)/;
$eps_f = '/home/httpd/prtspool/'.$1.'/'.$2;	$eps_f = '/home/httpd/prtspool/'.$1.'/'.$2;
}	}
	$eps_f =~ s/ /\_/g; # Spaces are problematic for system commands and LaTeX.
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;
if ( exists($done_conversion{$not_eps})) { next; }	if ( exists($done_conversion{$not_eps})) { next; }
if ($adv) {	if ($adv) {
my $prettyname=$not_eps;	my $prettyname=$not_eps;
Line 141 END	Line 143 END
}	}
}	}
}	}
if ($adv) { &Apache::lonhtmlcommon::Close_PrgWin('',\%prog_state); }	if ($adv) {
	&Apache::lonhtmlcommon::Close_PrgWin('',\%prog_state);
	}
unlink($figfile);	unlink($figfile);
}	}
#print "$texfile\n"; #name of the tex file for debugging only	#print "$texfile\n"; #name of the tex file for debugging only