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

Diff for /loncom/homework/default_homework.lcpm between versions 1.120 and 1.121

version 1.120, 2006/11/10 17:45:52 version 1.121, 2006/12/11 00:42:48
Line 293  sub implicit_multiplication { Line 293  sub implicit_multiplication {
   
 sub caparesponse_check_list {  sub caparesponse_check_list {
     my $responses=$LONCAPA::CAPAresponse_args{'response'};      my $responses=$LONCAPA::CAPAresponse_args{'response'};
     &LONCAPA_INTERNAL_DEBUG(" answer is ".  #    &LONCAPA_INTERNAL_DEBUG(" answer is ".
     &LONCAPA_INTERNAL_Dumper($LONCAPA::CAPAresponse_answer).":\n");  #    &LONCAPA_INTERNAL_Dumper($LONCAPA::CAPAresponse_answer).":\n");
     &LONCAPA_INTERNAL_DEBUG(" respons is ".  #    &LONCAPA_INTERNAL_DEBUG(" respons is ".
     &LONCAPA_INTERNAL_Dumper($responses).":\n");  #    &LONCAPA_INTERNAL_Dumper($responses).":\n");
     &LONCAPA_INTERNAL_DEBUG("args ".join(':',%LONCAPA::CAPAresponse_args));      &LONCAPA_INTERNAL_DEBUG("args ".join(':',%LONCAPA::CAPAresponse_args));
     my $type = $LONCAPA::CAPAresponse_args{'type'};      my $type = $LONCAPA::CAPAresponse_args{'type'};
     &LONCAPA_INTERNAL_DEBUG("Got type :$type:\n");      &LONCAPA_INTERNAL_DEBUG("Got type :$type:\n");
Line 324  sub caparesponse_check_list { Line 324  sub caparesponse_check_list {
     $responses->[$which]=[$responses->[$which]];      $responses->[$which]=[$responses->[$which]];
  }   }
     }      }
     &LONCAPA_INTERNAL_DEBUG(" parsed response is ".  #    &LONCAPA_INTERNAL_DEBUG(" parsed response is ".
     &LONCAPA_INTERNAL_Dumper($responses).":\n");  #    &LONCAPA_INTERNAL_Dumper($responses).":\n");
     foreach my $which (0..($num_input_lines-1)) {      foreach my $which (0..($num_input_lines-1)) {
  my $answer_size =    my $answer_size = 
     scalar(@{$LONCAPA::CAPAresponse_answer->{'answers'}[$which]});      scalar(@{$LONCAPA::CAPAresponse_answer->{'answers'}[$which]});
Line 365  sub caparesponse_check_list { Line 365  sub caparesponse_check_list {
     }      }
   
   
     &LONCAPA_INTERNAL_DEBUG(&LONCAPA_INTERNAL_Dumper($responses));  #    &LONCAPA_INTERNAL_DEBUG(&LONCAPA_INTERNAL_Dumper($responses));
     my %memoized;      my %memoized;
     if ($LONCAPA::CAPAresponse_answer->{'type'}  eq 'ordered') {      if ($LONCAPA::CAPAresponse_answer->{'type'}  eq 'ordered') {
  for (my $i=0; $i<scalar(@$responses);$i++) {   for (my $i=0; $i<scalar(@$responses);$i++) {
Removed from v.1.120  
changed lines
  Added in v.1.121

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