version 1.55, 2004/02/24 19:14:42
|
version 1.56, 2004/03/22 20:37:06
|
Line 234 sub handler {
|
Line 234 sub handler {
|
# --------------------------------------------------------- This is an SSI cell |
# --------------------------------------------------------- This is an SSI cell |
my $prefix=$_.'_'; |
my $prefix=$_.'_'; |
my %posthash=('request.prefix' => $prefix); |
my %posthash=('request.prefix' => $prefix); |
|
if ($ENV{'form.grade_target'} eq 'tex') { |
|
$posthash{'grade_target'}=$ENV{'form.grade_target'}; |
|
$posthash{'textwidth'}=$ENV{'form.textwidth'}; |
|
$posthash{'problem_split'}=$ENV{'form.problem_split'}; |
|
$posthash{'latex_type'}=$ENV{'form.latex_type'}; |
|
$posthash{'rndseed'}=$ENV{'form.rndseed'}; |
|
} |
if (($ENV{'form.'.$prefix.'submit'}) |
if (($ENV{'form.'.$prefix.'submit'}) |
|| ($ENV{'form.all_submit'})) { |
|| ($ENV{'form.all_submit'})) { |
foreach (keys %ENV) { |
foreach (keys %ENV) { |
Line 377 sub handler {
|
Line 384 sub handler {
|
$r->print('<form method="post" action="'. |
$r->print('<form method="post" action="'. |
$requrl.'">'); |
$requrl.'">'); |
} |
} |
} else { |
} elsif ($target eq 'tex') { |
$r->print('\documentclass{article} |
$r->print('\documentclass{article} |
\newcommand{\keephidden}[1]{} |
\newcommand{\keephidden}[1]{} |
\usepackage[dvips]{graphicx} |
\usepackage[dvips]{graphicx} |