version 1.153, 2006/12/11 17:37:43
|
version 1.154, 2006/12/11 22:02:13
|
Line 491 sub start_mathresponse {
|
Line 491 sub start_mathresponse {
|
my $args_ref= \%{$safeeval->varglob('LONCAPA::mathresponse_args')}; |
my $args_ref= \%{$safeeval->varglob('LONCAPA::mathresponse_args')}; |
undef(%{ $args_ref }); |
undef(%{ $args_ref }); |
$$args_ref{'cas'}=$token->[2]{'cas'}; |
$$args_ref{'cas'}=$token->[2]{'cas'}; |
$$args_ref{'args'}=$token->[2]{'args'}; |
if ($token->[2]{'args'}=~/\$/) { |
|
$$args_ref{'args'}=&Apache::run::run($token->[2]{'args'},$safeeval); |
|
} elsif ($token->[2]{'args'}=~/\@/) { |
|
$$args_ref{'args'}=&Apache::run::run('join(",",'.$token->[2]{'args'}.')',$safeeval); |
|
} else { |
|
$$args_ref{'args'}=$token->[2]{'args'}; |
|
} |
} elsif ($target eq 'meta') { |
} elsif ($target eq 'meta') { |
$result .= &Apache::response::meta_package_write('mathresponse'); |
$result .= &Apache::response::meta_package_write('mathresponse'); |
} |
} |