loncom/homework/optionresponse.pm - diff

Return to optionresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.143, 2007/04/17 23:25:09	version 1.145, 2007/08/29 10:07:42
Line 71 sub start_optionresponse {	Line 71 sub start_optionresponse {
} elsif ($target eq 'analyze') {	} elsif ($target eq 'analyze') {
my $part_id="$Apache::inputtags::part.$id";	my $part_id="$Apache::inputtags::part.$id";
push (@{ $Apache::lonhomework::analyze{"parts"} },$part_id);	push (@{ $Apache::lonhomework::analyze{"parts"} },$part_id);
	push (@{ $Apache::lonhomeowrk::analyze{"$part_id.bubble_lines"} }, 1);

}	}
return $result;	return $result;
}	}
Line 705 sub end_foil {	Line 707 sub end_foil {

sub start_drawoptionlist {	sub start_drawoptionlist {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
if (($target ne 'meta') && ($target ne 'answer')) {	if ($target !~ /^(?:meta\|answer\|modified\|edit)$/) {
return $token->[4];	return $token->[4];
}	}
}	}

sub end_drawoptionlist {	sub end_drawoptionlist {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
if (($target ne 'meta') && ($target ne 'answer')) {	if ($target !~ /^(?:meta\|answer\|modified\|edit)$/) {
return $token->[2];	return $token->[2];
}	}
}	}

sub insert_foil {	sub insert_foil {
return '	return '
<foil name="" value="unused">	<foil name="" value="unused">
<startouttext />	<startouttext />
<endouttext />	<endouttext />
</foil>';	</foil>';
}	}

	sub insert_drawoptionlist {
	return '<drawoptionlist />';
	}
1;	1;
__END__	__END__