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

Diff for /loncom/homework/hint.pm between versions 1.68 and 1.70

version 1.68, 2007/05/23 22:36:21 version 1.70, 2008/09/12 09:56:09
Line 160  sub end_numericalhint { Line 160  sub end_numericalhint {
   
  my $partid=$Apache::inputtags::part;   my $partid=$Apache::inputtags::part;
  my $id=$Apache::inputtags::hint[-1];   my $id=$Apache::inputtags::hint[-1];
  #id submissions occured under   #id submissions occurred under
  my $submitid=$Apache::inputtags::response[-1];   my $submitid=$Apache::inputtags::response[-1];
   
  my $response = $Apache::lonhomework::history{   my $response = $Apache::lonhomework::history{
Line 194  sub end_numericalhint { Line 194  sub end_numericalhint {
  dclone($answer{$ans_name});   dclone($answer{$ans_name});
     &Apache::caparesponse::setup_capa_response($args_ref,$response);      &Apache::caparesponse::setup_capa_response($args_ref,$response);
     my ($result,@msgs) =       my ($result,@msgs) = 
  &Apache::run::run("&caparesponse_check_list()",$safeeval);   &Apache::run::run("&caparesponse_check_list($$tagstack[-1])",$safeeval);
     &Apache::lonxml::debug("checking $ans_name $result with $response");      &Apache::lonxml::debug("checking $ans_name $result with $response");
     &Apache::lonxml::debug('msgs are '.join(':',@msgs));      &Apache::lonxml::debug('msgs are '.join(':',@msgs));
     my ($awards)=split(/:/,$result);      my ($awards)=split(/:/,$result);
Line 395  sub end_stringhint { Line 395  sub end_stringhint {
  &Apache::response::setup_params('stringhint',$safeeval);   &Apache::response::setup_params('stringhint',$safeeval);
  my $partid=$Apache::inputtags::part;   my $partid=$Apache::inputtags::part;
  my $id=$Apache::inputtags::hint[-1];   my $id=$Apache::inputtags::hint[-1];
  #id submissions occured under   #id submissions occurred under
  my $submitid=$Apache::inputtags::response[-1];   my $submitid=$Apache::inputtags::response[-1];
  my $response = $Apache::lonhomework::history{   my $response = $Apache::lonhomework::history{
     "resource.$partid.$submitid.submission"};      "resource.$partid.$submitid.submission"};
Line 428  sub end_stringhint { Line 428  sub end_stringhint {
     foreach my $ans_name (keys(%answer)) {      foreach my $ans_name (keys(%answer)) {
  &Apache::lonxml::debug(" doing $ans_name with ".join(':',@{ $answer{$ans_name}{'answers'} }));   &Apache::lonxml::debug(" doing $ans_name with ".join(':',@{ $answer{$ans_name}{'answers'} }));
  ${$safeeval->varglob('LONCAPA::CAPAresponse_answer')}=dclone($answer{$ans_name});   ${$safeeval->varglob('LONCAPA::CAPAresponse_answer')}=dclone($answer{$ans_name});
  my ($result, @msgs)=&Apache::run::run("&caparesponse_check_list()",$safeeval);   my ($result, @msgs)=&Apache::run::run("&caparesponse_check_list($$tagstack[-1])",$safeeval);
  &Apache::lonxml::debug('msgs are'.join(':',@msgs));   &Apache::lonxml::debug('msgs are'.join(':',@msgs));
  my ($awards) = split(/:/,$result);   my ($awards) = split(/:/,$result);
  my (@awards) = split(/,/,$awards);   my (@awards) = split(/,/,$awards);
Line 530  sub end_optionhint { Line 530  sub end_optionhint {
  my ($foilmatch,$conceptmatch)=(-1,-1);   my ($foilmatch,$conceptmatch)=(-1,-1);
  my $name= &Apache::lonxml::get_param('name',$parstack,$safeeval);   my $name= &Apache::lonxml::get_param('name',$parstack,$safeeval);
  my $partid=$Apache::inputtags::part;   my $partid=$Apache::inputtags::part;
  #id submissions occured under   #id submissions occurred under
  my $submitid=$Apache::inputtags::response[-1];   my $submitid=$Apache::inputtags::response[-1];
  my $part_id="$partid.$submitid";   my $part_id="$partid.$submitid";
  my %answer;   my %answer;
Line 610  sub end_radiobuttonhint { Line 610  sub end_radiobuttonhint {
  my $answer=&Apache::lonxml::get_param('answer',$parstack,$safeeval);   my $answer=&Apache::lonxml::get_param('answer',$parstack,$safeeval);
  eval('@answer ='.$answer);   eval('@answer ='.$answer);
  my $partid=$Apache::inputtags::part;   my $partid=$Apache::inputtags::part;
  #id submissions occured under   #id submissions occurred under
  my $submitid=$Apache::inputtags::response[-1];   my $submitid=$Apache::inputtags::response[-1];
  my $part_id="$partid.$submitid";   my $part_id="$partid.$submitid";
  my $response = $Apache::lonhomework::history{   my $response = $Apache::lonhomework::history{
Removed from v.1.68  
changed lines
  Added in v.1.70

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