[LON-CAPA-cvs] cvs: loncom /homework/caparesponse caparesponse.pm

[foxr]

foxr		Wed Aug 29 06:09:56 2007 EDT

  Modified files:              
    /loncom/homework/caparesponse	caparesponse.pm 
  Log:
  BZ4074  - Make analyze target produce a bubble_lines hash entry that
  describes the number of lines on a bubble sheet that are needed to 
  express all possible answers.
  
  
Index: loncom/homework/caparesponse/caparesponse.pm
diff -u loncom/homework/caparesponse/caparesponse.pm:1.216 loncom/homework/caparesponse/caparesponse.pm:1.217
--- loncom/homework/caparesponse/caparesponse.pm:1.216	Wed Jun  6 13:03:54 2007
+++ loncom/homework/caparesponse/caparesponse.pm	Wed Aug 29 06:09:56 2007
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # caparesponse definition
 #
-# $Id: caparesponse.pm,v 1.216 2007/06/06 17:03:54 albertel Exp $
+# $Id: caparesponse.pm,v 1.217 2007/08/29 10:09:56 foxr Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -605,6 +605,7 @@
 	my $part_id="$partid.$id";
 	if ($target eq 'analyze') {
 	    push (@{ $Apache::lonhomework::analyze{"parts"} },$part_id);
+	    push (@{ $Apache::lonhomework::analyze{"$part_id.bubble_lines"} }, 1);
 	    $Apache::lonhomework::analyze{"$part_id.type"} = $tag;
 	    my (@incorrect)=&Apache::lonxml::get_param_var('incorrect',$parstack,$safeeval);
 	    if ($#incorrect eq 0) { @incorrect=(split(/,/,$incorrect[0])); }