loncom/homework/imageresponse.pm - diff

Return to imageresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.51, 2004/03/08 23:23:04	version 1.53, 2004/05/27 04:32:19
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 341 sub start_foil {	Line 342 sub start_foil {
if (defined($Apache::response::foilnames{$name})) {	if (defined($Apache::response::foilnames{$name})) {
&Apache::lonxml::error(&mt("Foil name <b><tt>[_1]</tt></b> appears more than once. Foil names need to be unique.",$name));	&Apache::lonxml::error(&mt("Foil name <b><tt>[_1]</tt></b> appears more than once. Foil names need to be unique.",$name));
}	}
	$Apache::response::foilnames{$name}++;
if ( $Apache::imageresponse::conceptgroup	if ( $Apache::imageresponse::conceptgroup
&& !&Apache::response::showallfoils()) {	&& !&Apache::response::showallfoils()) {
push(@{ $Apache::response::conceptgroup{'names'} }, $name);	push(@{ $Apache::response::conceptgroup{'names'} }, $name);