version 1.75, 2005/03/23 22:37:46
|
version 1.76, 2005/04/07 06:56:23
|
Line 27
|
Line 27
|
# |
# |
|
|
use lib '/home/httpd/lib/perl'; |
use lib '/home/httpd/lib/perl'; |
use LONCAPA::loncgi(); |
use LONCAPA::loncgi; |
use File::Path; |
use File::Path; |
use IO::File; |
use IO::File; |
use Image::Magick; |
use Image::Magick; |
Line 38 use Apache::lonlocal;
|
Line 38 use Apache::lonlocal;
|
|
|
use strict; |
use strict; |
$|=1; |
$|=1; |
my %origENV=%ENV; |
|
if (! &LONCAPA::loncgi::check_cookie_and_load_env()) { |
if (! &LONCAPA::loncgi::check_cookie_and_load_env()) { |
print <<END; |
print <<END; |
Content-type: text/html |
Content-type: text/html |
Line 58 END
|
Line 57 END
|
print $bodytag; |
print $bodytag; |
|
|
my $identifier = $ENV{'QUERY_STRING'}; |
my $identifier = $ENV{'QUERY_STRING'}; |
my $texfile = $ENV{'cgi.'.$identifier.'.file'}; |
my $texfile = $env{'cgi.'.$identifier.'.file'}; |
my $laystyle = $ENV{'cgi.'.$identifier.'.layout'}; |
my $laystyle = $env{'cgi.'.$identifier.'.layout'}; |
my $numberofcolumns = $ENV{'cgi.'.$identifier.'.numcol'}; |
my $numberofcolumns = $env{'cgi.'.$identifier.'.numcol'}; |
my $paper = $ENV{'cgi.'.$identifier.'.paper'}; |
my $paper = $env{'cgi.'.$identifier.'.paper'}; |
my $selectionmade = $ENV{'cgi.'.$identifier.'.selection'}; |
my $selectionmade = $env{'cgi.'.$identifier.'.selection'}; |
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 $advanced_role = $ENV{'cgi.'.$identifier.'role'}; |
my $advanced_role = $env{'cgi.'.$identifier.'role'}; |
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 = &Apache::lonnet::unescape($ENV{'cgi.'.$identifier.'backref'}); |
my $backref = &Apache::lonnet::unescape($env{'cgi.'.$identifier.'backref'}); |
|
|
|
|
my $adv = $ENV{'request.role.adv'}; |
my $adv = $env{'request.role.adv'}; |
|
|
my @names_pack=(); |
my @names_pack=(); |
if ($student_names=~/_END_/) { |
if ($student_names=~/_END_/) { |
@names_pack=split(/_ENDPERSON_/,$student_names); |
@names_pack=split(/_ENDPERSON_/,$student_names); |
} |
} |
#got what we needed reset ENV in case it is to big for system |
|
%ENV=%origENV; |
|
|
|
my $figfile = $texfile; |
my $figfile = $texfile; |
$figfile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.dat/; |
$figfile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.dat/; |