loncom/homework/imageresponse.pm - diff

Return to imageresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.89, 2007/10/08 09:22:50	version 1.90, 2007/10/15 09:47:29
Line 79 sub start_imageresponse {	Line 79 sub start_imageresponse {
sub end_imageresponse {	sub end_imageresponse {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;

my $part_id = $Apache::inputtags::part;	my $part_id = $Apache::inputtags::part;
	my $response_id = $Apache::inputtags::response[-1];

pop(@Apache::lonxml::namespace);	pop(@Apache::lonxml::namespace);
&Apache::lonxml::deregister('Apache::imageresponse',('foilgroup','foil','text','image','rectangle','conceptgroup'));	&Apache::lonxml::deregister('Apache::imageresponse',('foilgroup','foil','text','image','rectangle','conceptgroup'));
Line 97 sub end_imageresponse {	Line 98 sub end_imageresponse {
if ($target eq 'grade' \|\| $target eq 'web' \|\| $target eq 'answer' \|\|	if ($target eq 'grade' \|\| $target eq 'web' \|\| $target eq 'answer' \|\|
$target eq 'tex' \|\| $target eq 'analyze') {	$target eq 'tex' \|\| $target eq 'analyze') {
&Apache::lonxml::increment_counter(&Apache::response::repetition(),	&Apache::lonxml::increment_counter(&Apache::response::repetition(),
$part_id);	"$part_id.$response_id");
if ($target eq 'analyze') {	if ($target eq 'analyze') {
&Apache::lonhomework::set_bubble_lines();	&Apache::lonhomework::set_bubble_lines();
}	}