--- loncom/homework/response.pm 2001/01/22 19:58:09 1.20
+++ loncom/homework/response.pm 2001/02/19 20:37:43 1.22
@@ -7,7 +7,7 @@ package Apache::response;
use strict;
sub BEGIN {
- &Apache::lonxml::register('Apache::response',('responseparam','caparesponse','numericalresponse','radiobuttonresponse','optionresponse'));
+ &Apache::lonxml::register('Apache::response',('responseparam','caparesponse','numericalresponse','radiobuttonresponse','optionresponse','imageresponse'));
}
sub start_response {
@@ -96,7 +96,7 @@ sub start_caparesponse {
require Apache::caparesponse;
import Apache::caparesponse;
my ($target,$token,$parstack,$parser,$safeeval,$style)=@_;
-# print "\n
\nsimple caparesponse\n";
+# print "\n
\nsimple caparesponse\n";
Apache::caparesponse::start_caparesponse($target,$token,$parstack,$parser,$safeeval,$style);;
return "";
}
@@ -117,6 +117,14 @@ sub start_optionresponse {
return "";
}
+sub start_imageresponse {
+ require Apache::imageresponse;
+ import Apache::imageresponse;
+ my ($target,$token,$parstack,$parser,$safeeval,$style)=@_;
+ Apache::imageresponse::start_imageresponse($target,$token,$parstack,$parser,$safeeval,$style);;
+ return "";
+}
+
sub start_responseparam {
my ($target,$token,$parstack,$parser,$safeeval)=@_;
if ($target eq 'grade' || $target eq 'web') {