version 1.26, 2001/05/04 21:19:37
|
version 1.28, 2001/06/02 03:59:59
|
Line 12 sub BEGIN {
|
Line 12 sub BEGIN {
|
|
|
sub start_response { |
sub start_response { |
my ($parstack,$safeeval)=@_; |
my ($parstack,$safeeval)=@_; |
my $args =''; |
my $id= &Apache::lonxml::get_param('id',$parstack,$safeeval); |
if ( $#$parstack > -1 ) { $args=$$parstack[$#$parstack]; } |
|
my $id = &Apache::run::run("{$args;".'return $id}',$safeeval); |
|
if ($id eq '') { $id = $Apache::lonxml::curdepth; } |
if ($id eq '') { $id = $Apache::lonxml::curdepth; } |
push (@Apache::inputtags::response,$id); |
push (@Apache::inputtags::response,$id); |
push (@Apache::inputtags::responselist,$id); |
push (@Apache::inputtags::responselist,$id); |
Line 101 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 $args=''; |
my $default= &Apache::lonxml::get_param('default',$parstack,$safeeval); |
if ( $#$parstack > -1 ) { $args=$$parstack[$#$parstack]; } |
my $name= &Apache::lonxml::get_param('name',$parstack,$safeeval); |
my $default = &Apache::run::run("{$args;".'return $default}',$safeeval); |
|
my $name = &Apache::run::run("{$args;".'return $name}',$safeeval); |
|
&Apache::lonxml::debug("looking for resource.$Apache::inputtags::part.$name"); |
&Apache::lonxml::debug("looking for resource.$Apache::inputtags::part.$name"); |
my $value = &Apache::lonnet::EXT("resource.$Apache::inputtags::part.$name"); |
my $value = &Apache::lonnet::EXT("resource.$Apache::inputtags::part.$name"); |
&Apache::lonxml::debug("$name has value :$value: and default :$default:"); |
&Apache::lonxml::debug("$name has value :$value: and default :$default:"); |