version 1.49, 2004/02/17 00:26:20
|
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 61 END
|
Line 64 END
|
my $tableofcontents = $ENV{'cgi.'.$identifier.'tableofcontents'}; |
my $tableofcontents = $ENV{'cgi.'.$identifier.'tableofcontents'}; |
my $tableofindex = $ENV{'cgi.'.$identifier.'tableofindex'}; |
my $tableofindex = $ENV{'cgi.'.$identifier.'tableofindex'}; |
my $advans_role = $ENV{'cgi.'.$identifier.'role'}; |
my $advans_role = $ENV{'cgi.'.$identifier.'role'}; |
my $back_ref = $ENV{'cgi.'.$identifier.'backref'}; |
|
my $number_of_files = $ENV{'cgi.'.$identifier.'numberoffiles'}+1; |
my $number_of_files = $ENV{'cgi.'.$identifier.'numberoffiles'}+1; |
my $student_names = $ENV{'cgi.'.$identifier.'studentnames'}; |
my $student_names = $ENV{'cgi.'.$identifier.'studentnames'}; |
my $backref = $ENV{'cgi.'.$identifier.'backref'}; |
my $backref = $ENV{'cgi.'.$identifier.'backref'}; |
Line 134 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); |