version 1.41, 2001/08/09 15:35:47
|
version 1.43, 2001/09/18 02:21:13
|
Line 165 sub end_numericalresponse {
|
Line 165 sub end_numericalresponse {
|
} |
} |
} elsif ($target eq 'edit') { |
} elsif ($target eq 'edit') { |
$result.='</td></tr>'.&Apache::edit::end_table; |
$result.='</td></tr>'.&Apache::edit::end_table; |
|
} elsif ($target eq 'answer') { |
|
my $answer= &Apache::run::run('eval \''.$$parstack[-1].';return $answer\'', |
|
$safeeval); |
|
my (@answers) = &Apache::run::run("eval ".$answer,$safeeval); |
|
# if the eval fails just use what is in the answer exactly |
|
if (!defined(@answers) || !defined($answers[0])) { |
|
$result.="list zero is undefined<br />"; |
|
$answers[0]=$answer; |
|
} |
|
$result.="<br /> An answers: $answer"; |
|
foreach my $ans (@answers) { |
|
$result.="<br /> An answer: $ans"; |
|
} |
|
$result .= "<br />".&Apache::run::run('return $result',$safeeval); |
} |
} |
&Apache::response::end_response; |
&Apache::response::end_response; |
return $result; |
return $result; |
} |
} |
|
|
sub start_stringresponse { |
sub start_stringresponse { |
return start_numericalresponse(@_); |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
|
my $result; |
|
if ($target eq 'meta') { |
|
$result=&Apache::response::meta_package_write('stringresponse'); |
|
} else { |
|
$result.=&start_numericalresponse(@_); |
|
} |
|
return $result; |
} |
} |
|
|
sub end_stringresponse { |
sub end_stringresponse { |