version 1.66, 2002/10/14 20:37:27
|
version 1.67, 2002/11/25 21:36:42
|
Line 320 sub end_parameter {
|
Line 320 sub end_parameter {
|
return $result; |
return $result; |
} |
} |
|
|
|
sub reset_params { |
|
%Apache::inputtags::params=(); |
|
} |
|
|
sub setup_params { |
sub setup_params { |
my ($tag) = @_; |
my ($tag) = @_; |
|
|
if ($ENV{'request.state'} eq 'construct') { return; } |
if ($ENV{'request.state'} eq 'construct') { return; } |
%Apache::inputtags::params=(); |
|
my %paramlist=(); |
my %paramlist=(); |
foreach my $key (keys(%Apache::lonnet::packagetab)) { |
foreach my $key (keys(%Apache::lonnet::packagetab)) { |
if ($key =~ /^$tag/) { |
if ($key =~ /^$tag/) { |