[BACK]Return to hint.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/hint.pm between versions 1.17 and 1.18

version 1.17, 2001/08/11 17:06:52 version 1.18, 2001/08/17 21:42:19
Line 67  sub end_numericalhint { Line 67  sub end_numericalhint {
   if ($target eq 'web') {    if ($target eq 'web') {
     $safeeval->share_from('capa',['&caparesponse_capa_check_answer']);      $safeeval->share_from('capa',['&caparesponse_capa_check_answer']);
     my $name= &Apache::lonxml::get_param('name',$parstack,$safeeval);      my $name= &Apache::lonxml::get_param('name',$parstack,$safeeval);
     my $response = $Apache::lonhomework::history{"resource.$Apache::inputtags::part.$Apache::inputtags::response['-1'].submission"};      &Apache::response::setup_params('numericalhint');
       my $partid=$Apache::inputtags::part;
       my $id=$Apache::inputtags::response['-1'];
       #id submissions occured under
       my $submitid=$Apache::inputtags::response['-2'];
       my $response = $Apache::lonhomework::history{
       "resource.$partid.$submitid.submission"};
     &Apache::lonxml::debug("hintgroup is using $response<br />\n");      &Apache::lonxml::debug("hintgroup is using $response<br />\n");
       #build safe space expression
     my $expression="&caparesponse_check_list('".$response."','".      my $expression="&caparesponse_check_list('".$response."','".
       $$parstack[$#$parstack].        $$parstack[$#$parstack];
  ';my $tol="'.$Apache::inputtags::params{'tol'}.'"'.      #need to get all possible parms
  ';my $sig="'.$Apache::inputtags::params{'sig'}.'"'.      foreach my $key (keys(%Apache::inputtags::params)) {
   "');";        $expression.= ';my $'. #'
    $key.'="'.$Apache::inputtags::params{$key}.'"';
       }
       $expression.="');";
     $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;
Removed from v.1.17  
changed lines
  Added in v.1.18

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>