version 1.51, 2001/11/12 20:27:28
|
version 1.52, 2001/12/04 14:53:18
|
Line 314 sub start_responseparam {
|
Line 314 sub start_responseparam {
|
$result = &Apache::edit::rebuild_tag($token); |
$result = &Apache::edit::rebuild_tag($token); |
$result.=&Apache::edit::handle_insert(); |
$result.=&Apache::edit::handle_insert(); |
} |
} |
|
} elsif ($target eq 'grade') { |
|
if ($ENV{'request.state'} eq 'construct') { |
|
my $name = &Apache::lonxml::get_param('name',$parstack,$safeeval); |
|
my $default = &Apache::lonxml::get_param('default',$parstack,$safeeval); |
|
$Apache::inputtags::params{$name}=$default; |
|
} |
} |
} |
return $result; |
return $result; |
} |
} |
Line 327 sub end_responseparam {
|
Line 333 sub end_responseparam {
|
sub setup_params { |
sub setup_params { |
my ($tag) = @_; |
my ($tag) = @_; |
|
|
|
if ($ENV{'request.state'} eq 'construct') { return; } |
@Apache::inputtags::params=(); |
@Apache::inputtags::params=(); |
my %paramlist=(); |
my %paramlist=(); |
foreach my $key (keys(%Apache::lonnet::packagetab)) { |
foreach my $key (keys(%Apache::lonnet::packagetab)) { |