Revision 893bff3a
Von Moritz Bunkus vor etwa 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.