version 1.43, 2003/06/20 04:16:00
|
version 1.45, 2003/06/24 20:41:56
|
Line 102 sub start_numericalhint {
|
Line 102 sub start_numericalhint {
|
$result.=&Apache::edit::text_arg('Format:','format',$token,4). |
$result.=&Apache::edit::text_arg('Format:','format',$token,4). |
&Apache::loncommon::help_open_topic('Numerical_Response_Format'); |
&Apache::loncommon::help_open_topic('Numerical_Response_Format'); |
} elsif ($token->[1] eq 'stringhint') { |
} elsif ($token->[1] eq 'stringhint') { |
$result.=&Apache::edit::select_arg('Type:','type',['cs','ci','mc'],$token); |
$result.=&Apache::edit::select_arg('Type:','type', |
|
[['cs','Case Sensitive'],['ci','Case Insensitive'], |
|
['mc','Case Insensitive, Any Order']],$token); |
} elsif ($token->[1] eq 'formulahint') { |
} elsif ($token->[1] eq 'formulahint') { |
$result.=&Apache::edit::text_arg('Sample Points:','samples',$token,40); |
$result.=&Apache::edit::text_arg('Sample Points:','samples',$token,40); |
} |
} |
Line 164 sub end_numericalhint {
|
Line 166 sub end_numericalhint {
|
$expression.=';my $type="float";'; |
$expression.=';my $type="float";'; |
} |
} |
$expression.="');"; |
$expression.="');"; |
|
my @answer=&Apache::lonxml::get_param_var('answer',$parstack,$safeeval); |
|
&Apache::lonxml::debug('answer is'.join(':',@answer)); |
|
@{$safeeval->varglob('CAPARESPONSE_CHECK_LIST_answer')}=@answer; |
|
|
$result = &Apache::run::run($expression,$safeeval); |
$result = &Apache::run::run($expression,$safeeval); |
&Apache::lonxml::debug("$expression:result:$result:$Apache::lonxml::curdepth"); |
&Apache::lonxml::debug("$expression:result:$result:$Apache::lonxml::curdepth"); |
my ($awards) = split /:/ , $result; |
my ($awards) = split /:/ , $result; |