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 ''; |
} |
} |
|
|