summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
02475b7)
Das ist allerdings auch mit das Äusserste was man aus der Methode rausholen kann.
Bei mir ist der Link beim Laden jetzt auf ~2,4kB runter.
# save form variables in a previousform variable
foreach my $key (sort keys %$form) {
next unless ref $form->{$key} eq '' && $form->{$key};
# save form variables in a previousform variable
foreach my $key (sort keys %$form) {
next unless ref $form->{$key} eq '' && $form->{$key};
+ next if $key =~ /^select/; # get rid of these stupid select things
# escape ampersands
$form->{$key} =~ s/&/%26/g;
# escape ampersands
$form->{$key} =~ s/&/%26/g;