version 1.11, 2000/11/29 00:51:57
|
version 1.12, 2000/12/04 21:16:29
|
Line 73 sub start_caparesponse {
|
Line 73 sub start_caparesponse {
|
|
|
sub start_responseparam { |
sub start_responseparam { |
my ($target,$token,$parstack,$parser,$safeeval)=@_; |
my ($target,$token,$parstack,$parser,$safeeval)=@_; |
if ($target ne 'meta') { |
if ($target eq 'grade') { |
my $args=''; |
my $args=''; |
if ( $#$parstack > -1 ) { $args=$$parstack[$#$parstack]; } |
if ( $#$parstack > -1 ) { $args=$$parstack[$#$parstack]; } |
my $default = &Apache::run::run("{$args;".'return $default}',$safeeval); |
my $default = &Apache::run::run("{$args;".'return $default}',$safeeval); |
Line 89 sub start_responseparam {
|
Line 89 sub start_responseparam {
|
$Apache::inputtags::params{$name}=$value; |
$Apache::inputtags::params{$name}=$value; |
} |
} |
return ''; |
return ''; |
} else { |
} elsif ($target eq 'meta') { |
return &meta_parameter_write($token->[2]->{'name'}, |
return &meta_parameter_write($token->[2]->{'name'}, |
$token->[2]->{'type'}, |
$token->[2]->{'type'}, |
$token->[2]->{'default'}, |
$token->[2]->{'default'}, |
$token->[2]->{'description'}); |
$token->[2]->{'description'}); |
|
} else { |
|
return ''; |
} |
} |
} |
} |
|
|