loncom/homework/imageresponse.pm - diff

Return to imageresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.19, 2002/07/23 14:41:06	version 1.21, 2002/08/24 15:26:43
Line 30	Line 30

package Apache::imageresponse;	package Apache::imageresponse;
use strict;	use strict;
	use Image::Magick;

BEGIN {	BEGIN {
&Apache::lonxml::register('Apache::imageresponse',('imageresponse'));	&Apache::lonxml::register('Apache::imageresponse',('imageresponse'));
Line 55 sub end_imageresponse {	Line 56 sub end_imageresponse {
return '';	return '';
}	}

%Apache::response::foilgroup={};	%Apache::response::foilgroup=();
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::setrandomnumber();
return '';	return '';
Line 114 sub displayfoils {	Line 115 sub displayfoils {

sub gradefoils {	sub gradefoils {
my (@whichopt) = @_;	my (@whichopt) = @_;
my $result='';
my $x;	my $x;
my $y;	my $y;
my $result;	my $result;
Line 174 sub end_foilgroup {	Line 174 sub end_foilgroup {

sub start_conceptgroup {	sub start_conceptgroup {
$Apache::imageresponse::conceptgroup=1;	$Apache::imageresponse::conceptgroup=1;
%Apache::response::conceptgroup={};	%Apache::response::conceptgroup=();
return '';	return '';
}	}