loncom/homework/imageresponse.pm - diff

Return to imageresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.88, 2007/09/25 23:58:32	version 1.89, 2007/10/08 09:22:50
Line 1	Line 1
	#
# The LearningOnline Network with CAPA	# The LearningOnline Network with CAPA
# image click response style	# image click response style
#	#
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;

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 94 sub end_imageresponse {	Line 96 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);
	if ($target eq 'analyze') {
	&Apache::lonhomework::set_bubble_lines();
	}

}	}
&Apache::response::end_response();	&Apache::response::end_response();