loncom/interface/printout.pl - diff

Return to printout.pl CVS log

Up to [LON-CAPA] / loncom / interface

version 1.12, 2002/08/01 15:41:41	version 1.13, 2002/08/01 18:09:27
Line 9 my $figfile = $texfile;	Line 9 my $figfile = $texfile;
$figfile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.dat/;	$figfile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.dat/;
my $duefile = $texfile;	my $duefile = $texfile;
$duefile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.due/;	$duefile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.due/;
my $tblfile = $texfile;
$tblfile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.tbl/;
if (-e $figfile) {	if (-e $figfile) {
my $temporary_file=IO::File->new($figfile) \|\| die "Couldn't open file for reading: $!\n";	my $temporary_file=IO::File->new($figfile) \|\| die "Couldn't open file for reading: $!\n";
my @content_of_file = <$temporary_file>;	my @content_of_file = <$temporary_file>;
Line 69 $texps =~ s/\.tex/\.ps/;	Line 67 $texps =~ s/\.tex/\.ps/;
my @garb = ($texlog,$texaux,$texdvi,$texps);	my @garb = ($texlog,$texaux,$texdvi,$texps);
unlink @garb;	unlink @garb;
unlink $duefile;	unlink $duefile;
unlink $tblfile;
print "<a href=\"/prtspool/$name_file\">Your PDF document</a>\n";	print "<a href=\"/prtspool/$name_file\">Your PDF document</a>\n";
print "\n";	print "\n";