--- loncom/homework/response.pm 2001/07/10 22:06:42 1.30
+++ loncom/homework/response.pm 2001/08/04 19:19:17 1.33
@@ -2,12 +2,14 @@
# various response type definitons response definition
# 11/23,11/24,11/28 Gerd Kortemeyer
+# Guy Albertelli
+# 08/04 Gerd Kortemeyer
package Apache::response;
use strict;
sub BEGIN {
- &Apache::lonxml::register('Apache::response',('responseparam','caparesponse','numericalresponse','radiobuttonresponse','optionresponse','imageresponse','essayresponse'));
+ &Apache::lonxml::register('Apache::response',('responseparam','caparesponse','numericalresponse','stringresponse','radiobuttonresponse','optionresponse','imageresponse','essayresponse'));
}
sub start_response {
@@ -51,6 +53,13 @@ sub meta_parameter_write {
."\n";
}
+sub meta_package_write {
+ my $name=shift;
+ return ''
+ ."\n";
+}
+
sub meta_stores_write {
my ($name,$type,$display)=@_;
return '\nsimple caparesponse\n";
+ return &Apache::caparesponse::start_caparesponse($target,$token,$tagstack,$parstack,$parser,$safeeval,$style);
}
-sub start_caparesponse {
+sub start_stringresponse {
+ require Apache::caparesponse;
+ import Apache::caparesponse;
+ my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
+ return &Apache::caparesponse::start_stringresponse($target,$token,$tagstack,$parstack,$parser,$safeeval,$style);
+}
+
+sub start_numericalresponse {
require Apache::caparesponse;
import Apache::caparesponse;
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
-# print "\n
\nsimple caparesponse\n";
- return &Apache::caparesponse::start_caparesponse($target,$token,$tagstack,$parstack,$parser,$safeeval,$style);
+ return &Apache::caparesponse::start_numericalresponse($target,$token,$tagstack,$parstack,$parser,$safeeval,$style);
}
sub start_radiobuttonresponse {