version 1.71, 2005/06/29 19:02:14
|
version 1.72, 2005/06/29 19:20:10
|
Line 244 sub handler {
|
Line 244 sub handler {
|
$posthash{'latex_type'}=$env{'form.latex_type'}; |
$posthash{'latex_type'}=$env{'form.latex_type'}; |
$posthash{'rndseed'}=$env{'form.rndseed'}; |
$posthash{'rndseed'}=$env{'form.rndseed'}; |
} |
} |
if (($env{'form.'.$prefix.'submit'}) |
my $submitted=exists($env{'form.all_submit'}); |
|| ($env{'form.all_submit'})) { |
if (!$submitted) { |
foreach (keys %env) { |
foreach my $key (keys(%env)) { |
if ($_=~/^form.$prefix/) { |
if ($key=~/^form.\Q$prefix\Esubmit_/) { |
my $name=$_; |
$submitted=1;last; |
$name=~s/^form.$prefix//; |
} |
$posthash{$name}=$env{$_}; |
} |
} |
} |
} |
if ($submitted) { |
|
foreach my $key (keys(%env)) { |
|
if ($key=~/^form.\Q$prefix\E/) { |
|
my $name=$key; |
|
$name=~s/^form.\Q$prefix\E//; |
|
$posthash{$name}=$env{$key}; |
|
} |
|
} |
|
if (exists($env{'form.all_submit'})) { |
|
$posthash{'all_submit'}='yes'; |
|
} |
} |
} |
my $output=Apache::lonnet::ssi($src,%posthash); |
my $output=Apache::lonnet::ssi($src,%posthash); |
$output=~s|//(\s*<!--)? BEGIN LON-CAPA Internal.+// END LON-CAPA Internal\s*(-->)?\s||gs; |
$output=~s|//(\s*<!--)? BEGIN LON-CAPA Internal.+// END LON-CAPA Internal\s*(-->)?\s||gs; |