version 1.30, 2001/07/10 22:06:42
|
version 1.31, 2001/07/13 16:15:01
|
Line 7 package Apache::response;
|
Line 7 package Apache::response;
|
use strict; |
use strict; |
|
|
sub BEGIN { |
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 { |
sub start_response { |
Line 96 sub check_for_previous {
|
Line 96 sub check_for_previous {
|
return '0'; |
return '0'; |
} |
} |
|
|
sub start_numericalresponse { |
sub start_caparesponse { |
require Apache::caparesponse; |
require Apache::caparesponse; |
import Apache::caparesponse; |
import Apache::caparesponse; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
return &Apache::caparesponse::start_numericalresponse($target,$token,$tagstack,$parstack,$parser,$safeeval,$style); |
# print "\n<br />\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; |
require Apache::caparesponse; |
import Apache::caparesponse; |
import Apache::caparesponse; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
# print "\n<br />\nsimple caparesponse\n"; |
return &Apache::caparesponse::start_numericalresponse($target,$token,$tagstack,$parstack,$parser,$safeeval,$style); |
return &Apache::caparesponse::start_caparesponse($target,$token,$tagstack,$parstack,$parser,$safeeval,$style); |
|
} |
} |
|
|
sub start_radiobuttonresponse { |
sub start_radiobuttonresponse { |