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

Diff for /loncom/homework/caparesponse/caparesponse.pm between versions 1.25 and 1.26

version 1.25, 2001/01/04 22:52:29 version 1.26, 2001/01/12 01:07:38
Line 28  sub end_caparesponse { Line 28  sub end_caparesponse {
  if ( $previous ) {    if ( $previous ) { 
   $result = 'PREVIOUSLY_USED';    $result = 'PREVIOUSLY_USED';
  } else {   } else {
   $Apache::lonhomework::results{"resource.$Apache::inputtags::part.$Apache::inputtags::response['-1'].submission"}=$response;    $Apache::lonhomework::results{"resource.$Apache::inputtags::part.$id.submission"}=$response;
   &Apache::lonxml::debug("submitted a $response<br>\n");    &Apache::lonxml::debug("submitted a $response<br>\n");
   &Apache::lonxml::debug($$parstack[$#$parstack] . "\n<br>");    &Apache::lonxml::debug($$parstack[$#$parstack] . "\n<br>");
   my $expression="&caparesponse_check('".$response."','".    my $expression="&caparesponse_check('".$response."','".
Line 38  sub end_caparesponse { Line 38  sub end_caparesponse {
   "');";    "');";
   $result = &Apache::run::run($expression,$safeeval);    $result = &Apache::run::run($expression,$safeeval);
   my ($ad) = split /:/ , $result;    my ($ad) = split /:/ , $result;
   $Apache::lonhomework::results{"resource.$Apache::inputtags::part.$Apache::inputtags::response['-1'].awarddetail"}=$ad;    $Apache::lonhomework::results{"resource.$Apache::inputtags::part.$id.awarddetail"}=$ad;
   &Apache::lonxml::debug("$expression");    &Apache::lonxml::debug("$expression");
   &Apache::lonxml::debug("\n<br>result:$result:$Apache::lonxml::curdepth<br>\n");    &Apache::lonxml::debug("\n<br>result:$result:$Apache::lonxml::curdepth<br>\n");
  }   }
Line 71  sub end_numericalresponse { Line 71  sub end_numericalresponse {
  if ( $previous ) {    if ( $previous ) { 
   $result = 'PREVIOUSLY_USED';    $result = 'PREVIOUSLY_USED';
  } else {   } else {
   $Apache::lonhomework::results{"resource.$Apache::inputtags::part.$Apache::inputtags::response['-1'].submission"}=$response;    $Apache::lonhomework::results{"resource.$Apache::inputtags::part.$id.submission"}=$response;
   &Apache::lonxml::debug("submitted a $response<br>\n");    &Apache::lonxml::debug("submitted a $response<br>\n");
   &Apache::lonxml::debug($$parstack[$#$parstack] . "\n<br>");    &Apache::lonxml::debug($$parstack[$#$parstack] . "\n<br>");
   my $expression="&caparesponse_check_list('".$response."','".    my $expression="&caparesponse_check_list('".$response."','".
Line 82  sub end_numericalresponse { Line 82  sub end_numericalresponse {
   $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);
   $Apache::lonhomework::results{"resource.$Apache::inputtags::part.$Apache::inputtags::response['-1'].awarddetail"}=$ad;    $Apache::lonhomework::results{"resource.$Apache::inputtags::part.$id.awarddetail"}=$ad;
   &Apache::lonxml::debug("$expression");    &Apache::lonxml::debug("$expression");
   &Apache::lonxml::debug("\n<br>result:$result:$Apache::lonxml::curdepth<br>\n");    &Apache::lonxml::debug("\n<br>result:$result:$Apache::lonxml::curdepth<br>\n");
   $result='';    $result='';
Removed from v.1.25  
changed lines
  Added in v.1.26

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