loncom/homework/imageresponse.pm - diff

Return to imageresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.52, 2004/03/15 22:09:52	version 1.54, 2004/07/02 08:11:10
Line 75 sub end_imageresponse {	Line 75 sub end_imageresponse {
sub start_foilgroup {	sub start_foilgroup {
%Apache::response::foilgroup=();	%Apache::response::foilgroup=();
$Apache::imageresponse::conceptgroup=0;	$Apache::imageresponse::conceptgroup=0;
&Apache::response::setrandomnumber();	&Apache::response::pushrandomnumber();
return '';	return '';
}	}

Line 296 sub end_foilgroup {	Line 296 sub end_foilgroup {
} elsif ($target eq 'edit') {	} elsif ($target eq 'edit') {
$result=&Apache::edit::end_table();	$result=&Apache::edit::end_table();
}	}
	&Apache::response::poprandomnumber();
return $result;	return $result;
}	}

Line 551 sub end_rectangle {	Line 552 sub end_rectangle {
$target eq 'analyze') {	$target eq 'analyze') {
my $name = $Apache::imageresponse::curname;	my $name = $Apache::imageresponse::curname;
my $area = &Apache::lonxml::endredirection;	my $area = &Apache::lonxml::endredirection;
	$area=~s/\s//g;
&Apache::lonxml::debug("out is $area for $name");	&Apache::lonxml::debug("out is $area for $name");
if ( $Apache::imageresponse::conceptgroup	if ( $Apache::imageresponse::conceptgroup
&& !&Apache::response::showallfoils()) {	&& !&Apache::response::showallfoils()) {