version 1.71, 2005/06/29 19:02:14
|
version 1.73, 2006/01/11 09:13:15
|
Line 180 sub handler {
|
Line 180 sub handler {
|
for ($i=0;$i<=$#rows;$i++) { |
for ($i=0;$i<=$#rows;$i++) { |
if ($rows[$i]) { |
if ($rows[$i]) { |
my @colcont=split(/\&/,$rows[$i]); |
my @colcont=split(/\&/,$rows[$i]); |
foreach (@colcont) { |
foreach my $rid (@colcont) { |
$symbhash{$hash{'src_'.$_}}=['page','notasymb']; |
my ($mapid,$resid)=split(/\./,$rid); |
|
$symbhash{$hash{'src_'.$rid}}= |
|
[$hash{'src_'.$rid},$resid]; |
} |
} |
} |
} |
} |
} |
Line 244 sub handler {
|
Line 246 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; |