loncom/interface/printout.pl - diff

Return to printout.pl CVS log

Up to [LON-CAPA] / loncom / interface

version 1.7, 2002/05/09 15:46:01	version 1.8, 2002/05/23 20:20:17
Line 6 print "<body bgcolor=\"#FFFFFF\">\n";	Line 6 print "<body bgcolor=\"#FFFFFF\">\n";
print "<h1>OUTPUT is in the PDF FILE (see link below)</h1>\n";	print "<h1>OUTPUT is in the PDF FILE (see link below)</h1>\n";
my ($texfile,$laystyle) = split(/&/,$ENV{'QUERY_STRING'});	my ($texfile,$laystyle) = split(/&/,$ENV{'QUERY_STRING'});
my $figfile = $texfile;	my $figfile = $texfile;
$figfile =~ s/\.tex/\.dat/;	$figfile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.dat/;
	print "GLYDI SUDY $figfile ENS";
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>;