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

Diff for /loncom/homework/radiobuttonresponse.pm between versions 1.128 and 1.129

version 1.128, 2007/10/08 09:22:50 version 1.129, 2007/10/15 09:47:29
Line 200  sub end_foilgroup { Line 200  sub end_foilgroup {
     my $bubble_lines;      my $bubble_lines;
     my $bubbles_per_line;      my $bubbles_per_line;
     my $answer_count;      my $answer_count;
     my $id = $Apache::inputtags::response['-1'];      my $id   = $Apache::inputtags::response['-1'];
       my $part = $Apache::inputtags::part;
     $bubbles_per_line =       $bubbles_per_line = 
  &Apache::response::get_response_param($Apache::inputtags::part."_$id",   &Apache::response::get_response_param($Apache::inputtags::part."_$id",
       'numbubbles',        'numbubbles',
Line 246  sub end_foilgroup { Line 247  sub end_foilgroup {
       $bubbles_per_line);        $bubbles_per_line);
  &Apache::response::analyze_store_foilgroup(\@shown,   &Apache::response::analyze_store_foilgroup(\@shown,
    ['text','value','location']);     ['text','value','location']);
  my $part_id="$Apache::inputtags::part.$Apache::inputtags::response[-1]";   my $part_id="$part.$id";
  push (@{ $Apache::lonhomework::analyze{"$part_id.options"} },   push (@{ $Apache::lonhomework::analyze{"$part_id.options"} },
       ('true','false'));        ('true','false'));
  push (@{ $Apache::lonhomework::analyze{"$part_id.bubble_lines"} },   push (@{ $Apache::lonhomework::analyze{"$part_id.bubble_lines"} },
Line 262  sub end_foilgroup { Line 263  sub end_foilgroup {
     &Apache::response::poprandomnumber();      &Apache::response::poprandomnumber();
     $bubble_lines = &bubble_line_count($answer_count, $bubbles_per_line);      $bubble_lines = &bubble_line_count($answer_count, $bubbles_per_line);
     &Apache::lonxml::increment_counter($bubble_lines,      &Apache::lonxml::increment_counter($bubble_lines,
        $id);         "$part.$id");
     if ($target eq 'analyze') {      if ($target eq 'analyze') {
  &Apache::lonhomework::set_bubble_lines();   &Apache::lonhomework::set_bubble_lines();
     }      }
Removed from v.1.128  
changed lines
  Added in v.1.129

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