version 1.27, 2001/05/31 22:37:11
|
version 1.28, 2001/06/02 03:59:59
|
Line 99 sub check_for_previous {
|
Line 99 sub check_for_previous {
|
sub start_numericalresponse { |
sub start_numericalresponse { |
require Apache::caparesponse; |
require Apache::caparesponse; |
import Apache::caparesponse; |
import Apache::caparesponse; |
my ($target,$token,$parstack,$parser,$safeeval,$style)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
return &Apache::caparesponse::start_numericalresponse($target,$token,$parstack,$parser,$safeeval,$style); |
return &Apache::caparesponse::start_numericalresponse($target,$token,$tagstack,$parstack,$parser,$safeeval,$style); |
} |
} |
|
|
sub start_caparesponse { |
sub start_caparesponse { |
require Apache::caparesponse; |
require Apache::caparesponse; |
import Apache::caparesponse; |
import Apache::caparesponse; |
my ($target,$token,$parstack,$parser,$safeeval,$style)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
# print "\n<br />\nsimple caparesponse\n"; |
# print "\n<br />\nsimple caparesponse\n"; |
return &Apache::caparesponse::start_caparesponse($target,$token,$parstack,$parser,$safeeval,$style); |
return &Apache::caparesponse::start_caparesponse($target,$token,$tagstack,$parstack,$parser,$safeeval,$style); |
} |
} |
|
|
sub start_radiobuttonresponse { |
sub start_radiobuttonresponse { |
require Apache::radiobuttonresponse; |
require Apache::radiobuttonresponse; |
import Apache::radiobuttonresponse; |
import Apache::radiobuttonresponse; |
my ($target,$token,$parstack,$parser,$safeeval,$style)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
return &Apache::radiobuttonresponse::start_radiobuttonresponse($target,$token,$parstack,$parser,$safeeval,$style); |
return &Apache::radiobuttonresponse::start_radiobuttonresponse($target,$token,$tagstack,$parstack,$parser,$safeeval,$style); |
} |
} |
|
|
sub start_optionresponse { |
sub start_optionresponse { |
require Apache::optionresponse; |
require Apache::optionresponse; |
import Apache::optionresponse; |
import Apache::optionresponse; |
my ($target,$token,$parstack,$parser,$safeeval,$style)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
return &Apache::optionresponse::start_optionresponse($target,$token,$parstack,$parser,$safeeval,$style); |
return &Apache::optionresponse::start_optionresponse($target,$token,$tagstack,$parstack,$parser,$safeeval,$style); |
} |
} |
|
|
sub start_imageresponse { |
sub start_imageresponse { |
require Apache::imageresponse; |
require Apache::imageresponse; |
import Apache::imageresponse; |
import Apache::imageresponse; |
my ($target,$token,$parstack,$parser,$safeeval,$style)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
return &Apache::imageresponse::start_imageresponse($target,$token,$parstack,$parser,$safeeval,$style); |
return &Apache::imageresponse::start_imageresponse($target,$token,$tagstack,$parstack,$parser,$safeeval,$style); |
} |
} |
|
|
sub start_essayresponse { |
sub start_essayresponse { |
require Apache::essayresponse; |
require Apache::essayresponse; |
import Apache::essayresponse; |
import Apache::essayresponse; |
my ($target,$token,$parstack,$parser,$safeeval,$style)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
return &Apache::essayresponse::start_essayresponse($target,$token,$parstack,$parser,$safeeval,$style); |
return &Apache::essayresponse::start_essayresponse($target,$token,$tagstack,$parstack,$parser,$safeeval,$style); |
} |
} |
|
|
sub start_responseparam { |
sub start_responseparam { |
my ($target,$token,$parstack,$parser,$safeeval)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; |
if ($target eq 'grade' || $target eq 'web') { |
if ($target eq 'grade' || $target eq 'web') { |
my $default= &Apache::lonxml::get_param('default',$parstack,$safeeval); |
my $default= &Apache::lonxml::get_param('default',$parstack,$safeeval); |
my $name= &Apache::lonxml::get_param('name',$parstack,$safeeval); |
my $name= &Apache::lonxml::get_param('name',$parstack,$safeeval); |