|
version 1.39, 2001/08/05 16:26:28
|
version 1.42, 2001/08/13 21:44:24
|
|
Line 81 sub start_numericalresponse {
|
Line 81 sub start_numericalresponse {
|
| $result.=&Apache::edit::handle_insert(); |
$result.=&Apache::edit::handle_insert(); |
| } |
} |
| } elsif ($target eq 'meta') { |
} elsif ($target eq 'meta') { |
| $result=&meta_package_write('numericalresponse'); |
$result=&Apache::response::meta_package_write('numericalresponse'); |
| } |
} |
| return $result; |
return $result; |
| } |
} |
|
Line 91 sub end_numericalresponse {
|
Line 91 sub end_numericalresponse {
|
| my $result = ''; |
my $result = ''; |
| if ( $target eq 'grade' ) { |
if ( $target eq 'grade' ) { |
| if ( defined $ENV{'form.submitted'}) { |
if ( defined $ENV{'form.submitted'}) { |
| |
&Apache::response::setup_params('numericalresponse'); |
| $safeeval->share_from('capa',['&caparesponse_capa_check_answer']); |
$safeeval->share_from('capa',['&caparesponse_capa_check_answer']); |
| my $partid = $Apache::inputtags::part; |
my $partid = $Apache::inputtags::part; |
| my $id = $Apache::inputtags::response['-1']; |
my $id = $Apache::inputtags::response['-1']; |
|
Line 104 sub end_numericalresponse {
|
Line 105 sub end_numericalresponse {
|
| $response =~ s/\'/\\\'/g; |
$response =~ s/\'/\\\'/g; |
| &Apache::lonxml::debug("current $response"); |
&Apache::lonxml::debug("current $response"); |
| my $expression="&caparesponse_check_list('".$response."','". |
my $expression="&caparesponse_check_list('".$response."','". |
| $$parstack[$#$parstack]. |
$$parstack[$#$parstack]; |
| ';my $tol="'.$Apache::inputtags::params{'tol'}.'"'. |
foreach my $key (keys(%Apache::inputtags::params)) { |
| ';my $sig="'.$Apache::inputtags::params{'sig'}.'"'. |
$expression.= ';my $'. #' |
| "');"; |
$key.'="'.$Apache::inputtags::params{$key}.'"'; |
| |
} |
| |
$expression.="');"; |
| $result = &Apache::run::run($expression,$safeeval); |
$result = &Apache::run::run($expression,$safeeval); |
| my ($awards) = split /:/ , $result; |
my ($awards) = split /:/ , $result; |
| my ($ad) = &Apache::inputtags::finalizeawards(split /,/ , $awards); |
my ($ad) = &Apache::inputtags::finalizeawards(split /,/ , $awards); |
|
Line 168 sub end_numericalresponse {
|
Line 171 sub end_numericalresponse {
|
| } |
} |
| |
|
| 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 { |
![[BACK]](/icons/back.gif){kind=icon}
Return to caparesponse.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework / caparesponse