loncom/interface/printout.pl - diff

Return to printout.pl CVS log

Up to [LON-CAPA] / loncom / interface

version 1.96, 2006/04/08 07:06:35	version 1.97, 2006/04/20 02:24:08
Line 31 use File::Path;	Line 31 use File::Path;
use File::Basename;	use File::Basename;
use IO::File;	use IO::File;
use Image::Magick;	use Image::Magick;
use Apache::lonhtmlcommon;	use Apache::lonhtmlcommon();
use Apache::lonnet;	use Apache::lonnet;
use Apache::loncommon;	use Apache::loncommon();
use Apache::lonlocal;	use Apache::lonlocal;
use Apache::lonmsg;	use Apache::lonmsg();
use LONCAPA::Enrollment;	use LONCAPA::Enrollment;

use strict;	use strict;
Line 161 END	Line 161 END
}	}
&Apache::lonlocal::get_language_handle();	&Apache::lonlocal::get_language_handle();
&Apache::loncommon::content_type(undef,'text/html');	&Apache::loncommon::content_type(undef,'text/html');
my $bodytag=&Apache::loncommon::bodytag('Creating PDF','','');	print(&Apache::loncommon::start_page('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 607 if ($number_of_files>1) {	Line 606 if ($number_of_files>1) {
print "<br /> A <a href=\"$zipfile\">ZIP file</a> of all the PDFs.";	print "<br /> A <a href=\"$zipfile\">ZIP file</a> of all the PDFs.";
}	}
if ($advanced_role) { &Apache::lonhtmlcommon::Close_PrgWin('',\%prog_state); }	if ($advanced_role) { &Apache::lonhtmlcommon::Close_PrgWin('',\%prog_state); }
	print(&Apache::loncommon::end_page());
my $done;	my $done;
sub REAPER {	sub REAPER {
$done=1;	$done=1;