sub gen {
my ($self, @except) = @_;
my %except = map { $_, 1 } @except;
my $html = "";
foreach my $name (keys %{$self->{params}}) {
next if defined $except{$name};
$html .= $self->{cgi}->hidden(
-name => $name,
-default => $self->{params}->{$name},
-override => 1,
);
}
return $html;
}
sub url {
my ($self, %parameters) = @_;
%parameters = (%{$self->{params}}, %parameters);
my $cgi = $self->{cgi};
return $cgi->url . "?" .
join("&",
map {
$cgi->escape($_) . "=" .
$cgi->escape($parameters{$_})
} keys %parameters
);
}
|