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; |