--- loncom/homework/rankresponse.pm 2003/10/27 19:27:09 1.25 +++ loncom/homework/rankresponse.pm 2003/10/27 20:04:34 1.26 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # rank style response # -# $Id: rankresponse.pm,v 1.25 2003/10/27 19:27:09 albertel Exp $ +# $Id: rankresponse.pm,v 1.26 2003/10/27 20:04:34 albertel Exp $ # Copyright Michigan State University Board of Trustees # # This file is part of the LearningOnline Network with CAPA (LON-CAPA). @@ -93,7 +93,8 @@ sub start_foilgroup { sub end_foilgroup { my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; my $result; - if ($target eq 'grade' || $target eq 'web' || $target eq 'answer' || $target eq 'tex') { + 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, $safeeval,'-2'); @@ -108,7 +109,7 @@ sub end_foilgroup { } elsif ( $target eq 'analyze') { my @shown = &whichfoils($max,$randomize); &Apache::response::analyze_store_foilgroup(\@shown, - ['text','value']); + ['text','value','location']); } &Apache::lonxml::increment_counter(&getfoilcounts($max)); } elsif ($target eq 'edit') {