--- loncom/interface/printout.pl 2006/04/08 07:06:35 1.96 +++ loncom/interface/printout.pl 2006/04/20 02:24:08 1.97 @@ -31,11 +31,11 @@ use File::Path; use File::Basename; use IO::File; use Image::Magick; -use Apache::lonhtmlcommon; +use Apache::lonhtmlcommon(); use Apache::lonnet; -use Apache::loncommon; +use Apache::loncommon(); use Apache::lonlocal; -use Apache::lonmsg; +use Apache::lonmsg(); use LONCAPA::Enrollment; use strict; @@ -161,8 +161,7 @@ END } &Apache::lonlocal::get_language_handle(); &Apache::loncommon::content_type(undef,'text/html'); - my $bodytag=&Apache::loncommon::bodytag('Creating PDF','',''); - print $bodytag; + print(&Apache::loncommon::start_page('Creating PDF')); my $identifier = $ENV{'QUERY_STRING'}; my $texfile = $env{'cgi.'.$identifier.'.file'}; @@ -607,7 +606,7 @@ if ($number_of_files>1) { print "
A ZIP file of all the PDFs."; } if ($advanced_role) { &Apache::lonhtmlcommon::Close_PrgWin('',\%prog_state); } - +print(&Apache::loncommon::end_page()); my $done; sub REAPER { $done=1;