loncom/interface/printout.pl - diff

Return to printout.pl CVS log

Up to [LON-CAPA] / loncom / interface

version 1.50, 2004/02/18 22:23:19	version 1.52, 2004/02/24 23:20:08
Line 33 use File::Path;	Line 33 use File::Path;
use IO::File;	use IO::File;
use Image::Magick;	use Image::Magick;
use Apache::lonhtmlcommon;	use Apache::lonhtmlcommon;
	use Apache::loncommon;
	use Apache::lonlocal;

$\|=1;	$\|=1;
my %origENV=%ENV;	my %origENV=%ENV;
Line 49 Your cookie information is incorrect.	Line 51 Your cookie information is incorrect.
END	END
return;	return;
}	}
	&Apache::lonlocal::get_language_handle();
print "Content-type: text/html\n\n";	&Apache::loncommon::content_type(undef,'text/html');
print "<body bgcolor=\"#FFFFFF\">\n";	my $bodytag=&Apache::loncommon::bodytag('Creating PDF','','');
	print $bodytag;

my $identifier = $ENV{'QUERY_STRING'};	my $identifier = $ENV{'QUERY_STRING'};
my $texfile = $ENV{'cgi.'.$identifier.'.file'};	my $texfile = $ENV{'cgi.'.$identifier.'.file'};
Line 133 END	Line 136 END
}	}
}	}
if ($adv) { &Apache::lonhtmlcommon::Close_PrgWin('',\%prog_state); }	if ($adv) { &Apache::lonhtmlcommon::Close_PrgWin('',\%prog_state); }
	unlink($figfile);
}	}
#print "$texfile\n"; #name of the tex file for debugging only	#print "$texfile\n"; #name of the tex file for debugging only
my @texfile=($texfile);	my @texfile=($texfile);