Revision 893bff3a
Von Moritz Bunkus vor fast 16 Jahren hinzugefügt
bin/mozilla/common.pl | ||
---|---|---|
91 | 91 |
|
92 | 92 |
my ($new_item, $callback_sub); |
93 | 93 |
|
94 |
my $re = "^new_.*_" . $form->{selection};
|
|
94 |
my $re = "^new_.*_$form->{selection}\$";
|
|
95 | 95 |
|
96 | 96 |
foreach (grep /$re/, keys %{ $form }) { |
97 | 97 |
my $new_key = $_; |
Auch abrufbar als: Unified diff
Bei der Auswahl von Artikeln auch wirklich den Ausgewählten weiterverarbeiten. Bei mehr als zehn angezeigten Artikeln wird ansonsten ein falscher genommen, weil der reguläre Ausdruck nicht zwangsweise bis zum Stringende gematcht hat.