- $callback = "";
- foreach (
- ("db", "path", "login", "password",
- "partnumber", "description", "customer_name", "all",
- "expiring_in", "show_expired")
- ) {
- $callback .= "\&${_}=" . $form->escape($form->{$_}, 1);
- }
- $details = $form->{"script"} . "?action=details" . $callback . "\&id=";
- $invdetails = "is.pl?action=edit" . $callback . "\&id=";
+ my $callback = "";
+ map { $callback .= "\&${_}=" . $form->escape($form->{$_}, 1) }
+ qw(db partnumber description customer_name all expiring_in show_expired);
+ my $details = $form->{"script"} . "?action=details" . $callback . "\&id=";
+ my $invdetails = "is.pl?action=edit" . $callback . "\&id=";