--- loncom/homework/matchresponse.pm 2007/10/08 09:22:50 1.66 +++ loncom/homework/matchresponse.pm 2007/10/15 09:47:29 1.67 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Full matching style response # -# $Id: matchresponse.pm,v 1.66 2007/10/08 09:22:50 foxr Exp $ +# $Id: matchresponse.pm,v 1.67 2007/10/15 09:47:29 foxr Exp $ # # Copyright Michigan State University Board of Trustees # @@ -261,6 +261,9 @@ sub start_foilgroup { sub end_foilgroup { my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; my $result; + my $part = $Apache::inputtags::part; + my $response_id = $Apache::inputtages::response[-1]; + if ($target eq 'grade' || $target eq 'web' || $target eq 'answer' || $target eq 'tex' || $target eq 'analyze') { my $max = &Apache::lonxml::get_param('max',$parstack,$safeeval,'-2'); my $randomize = &Apache::lonxml::get_param('randomize',$parstack, @@ -279,7 +282,7 @@ sub end_foilgroup { #FIXME need to store options in some way } &Apache::lonxml::increment_counter(&getfoilcounts($max), - $Apache::inputtags::part); + "$part.$response_id"); if ($target eq 'analyze') { &Apache::lonhomework::set_bubble_lines(); }