[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.131

version 1.128, 2007/10/08 09:22:50 version 1.131, 2008/02/01 22:05:45
Line 18 Line 18
 # GNU General Public License for more details.  # GNU General Public License for more details.
 #  #
 # You should have received a copy of the GNU General Public License  # You should have received a copy of the GNU General Public License
 # along with LON-CAPA; if not, write to the Free Software  # along with LON-CAPA; if not, write to the Free Software# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA  
 #  #
 # /home/httpd/html/adm/gpl.txt  # /home/httpd/html/adm/gpl.txt
 #  #
Line 104  sub start_radiobuttonresponse { Line 103  sub start_radiobuttonresponse {
  $result .= '\begin{enumerate}';   $result .= '\begin{enumerate}';
     } elsif ($target eq 'analyze') {      } elsif ($target eq 'analyze') {
  my $part_id="$Apache::inputtags::part.$id";   my $part_id="$Apache::inputtags::part.$id";
           $Apache::lonhomework::analyze{"$part_id.type"} = 'radiobuttonresponse';
  push (@{ $Apache::lonhomework::analyze{"parts"} },$part_id);   push (@{ $Apache::lonhomework::analyze{"parts"} },$part_id);
     }      }
     return $result;      return $result;
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"} },  
       $bubble_lines);  
     }      }
  }   }
  $Apache::lonxml::post_evaluate=0;   $Apache::lonxml::post_evaluate=0;
Line 262  sub end_foilgroup { Line 262  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.131

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