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

Diff for /loncom/homework/hint.pm between versions 1.78 and 1.79

version 1.78, 2011/06/08 20:38:47 version 1.79, 2024/09/29 01:58:43
Line 185  sub end_numericalhint { Line 185  sub end_numericalhint {
  my $hideunit=&Apache::response::get_response_param($partid.'_'.$submitid,'turnoffunit');   my $hideunit=&Apache::response::get_response_param($partid.'_'.$submitid,'turnoffunit');
  if (lc($hideunit) eq "yes") { delete($$args_ref{'unit'}); }   if (lc($hideunit) eq "yes") { delete($$args_ref{'unit'}); }
   
           my $stringify;
  if ($$tagstack[-1] eq 'formulahint') {   if ($$tagstack[-1] eq 'formulahint') {
             if ($$args_ref{'samples'}) {              if ($$args_ref{'samples'}) {
                 $$args_ref{'type'}='fml';                  $$args_ref{'type'}='fml';
                   $stringify = 1;
             } else {              } else {
                 $$args_ref{'type'}='math';                  $$args_ref{'type'}='math';
             }              }
  } elsif ($$tagstack[-1] eq 'numericalhint') {   } elsif ($$tagstack[-1] eq 'numericalhint') {
     $$args_ref{'type'}='float';      $$args_ref{'type'}='float';
               $stringify = 1;
  }   }
  &Apache::caparesponse::add_in_tag_answer($parstack,$safeeval);   &Apache::caparesponse::add_in_tag_answer($parstack,$safeeval,$stringify);
  my %answer = &Apache::caparesponse::get_answer();   my %answer = &Apache::caparesponse::get_answer();
  my (@final_awards,@final_msgs,@ans_names);   my (@final_awards,@final_msgs,@ans_names);
  foreach my $ans_name (keys(%answer)) {   foreach my $ans_name (keys(%answer)) {
Line 441  sub end_stringhint { Line 444  sub end_stringhint {
             if ($$args_ref{'type'} eq '') {              if ($$args_ref{'type'} eq '') {
                 $$args_ref{'type'} = 'ci';                  $$args_ref{'type'} = 'ci';
             }              }
     &Apache::caparesponse::add_in_tag_answer($parstack,$safeeval);              my $stringify;
               if ($$args_ref{'type'} ne 're') {
                   $stringify = 1;
               }
       &Apache::caparesponse::add_in_tag_answer($parstack,$safeeval,$stringify);
     my (@final_awards,@final_msgs,@ans_names);      my (@final_awards,@final_msgs,@ans_names);
     my %answer = &Apache::caparesponse::get_answer();      my %answer = &Apache::caparesponse::get_answer();
     foreach my $ans_name (keys(%answer)) {      foreach my $ans_name (keys(%answer)) {
Removed from v.1.78  
changed lines
  Added in v.1.79

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