Zustandsverwaltung II

lib/VShop/State.pm

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 ); }