loncom/homework/matchresponse.pm - diff

Return to matchresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.66, 2007/10/08 09:22:50	version 1.67, 2007/10/15 09:47:29
Line 261 sub start_foilgroup {	Line 261 sub start_foilgroup {
sub end_foilgroup {	sub end_foilgroup {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
my $result;	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') {	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 $max = &Apache::lonxml::get_param('max',$parstack,$safeeval,'-2');
my $randomize = &Apache::lonxml::get_param('randomize',$parstack,	my $randomize = &Apache::lonxml::get_param('randomize',$parstack,
Line 279 sub end_foilgroup {	Line 282 sub end_foilgroup {
#FIXME need to store options in some way	#FIXME need to store options in some way
}	}
&Apache::lonxml::increment_counter(&getfoilcounts($max),	&Apache::lonxml::increment_counter(&getfoilcounts($max),
$Apache::inputtags::part);	"$part.$response_id");
if ($target eq 'analyze') {	if ($target eq 'analyze') {
&Apache::lonhomework::set_bubble_lines();	&Apache::lonhomework::set_bubble_lines();
}	}