version 1.38, 2003/10/16 15:30:43
|
version 1.39, 2003/10/20 17:39:30
|
Line 26
|
Line 26
|
# http://www.lon-capa.org/ |
# http://www.lon-capa.org/ |
# |
# |
|
|
|
use lib '/home/httpd/lib/perl'; |
|
use LONCAPA::loncgi(); |
use File::Path; |
use File::Path; |
use IO::File; |
use IO::File; |
use Image::Magick; |
use Image::Magick; |
|
|
|
if (! &LONCAPA::loncgi::check_cookie_and_load_env()) { |
|
print <<END; |
|
Content-type: text/html |
|
|
|
<html> |
|
<head><title>Bad Cookie</title></head> |
|
<body> |
|
Your cookie information is incorrect. What\'s up with that? |
|
</body> |
|
</html> |
|
END |
|
return; |
|
} |
|
|
print "Content-type: text/html\n\n"; |
print "Content-type: text/html\n\n"; |
print "<body bgcolor=\"#FFFFFF\">\n"; |
print "<body bgcolor=\"#FFFFFF\">\n"; |
my ($texfile,$laystyle,$numberofcolumns,$selectionmade) = split(/&/,$ENV{'QUERY_STRING'}); |
#### my ($texfile,$laystyle,$numberofcolumns,$selectionmade) = split(/&/,$ENV{'QUERY_STRING'}); |
|
|
|
my $identifier = $ENV{'QUERY_STRING'}; |
|
my $texfile = $ENV{$identifier.'.file'}; |
|
my $laystyle = $ENV{$identifier.'.layout'}; |
|
my $numberofcolumns = $ENV{$identifier.'.numcol'}; |
|
my $selectionmade = $ENV{$identifier.'.selection'}; |
|
|
my $advans_role=0; |
my $advans_role=0; |
if ($selectionmade>=10000) {$selectionmade=$selectionmade/10000; $advans_role=1;} |
if ($selectionmade>=10000) {$selectionmade=$selectionmade/10000; $advans_role=1;} |
my $figfile = $texfile; |
my $figfile = $texfile; |