Revision da4b17d1
Von Moritz Bunkus vor mehr als 13 Jahren hinzugefügt
| bin/mozilla/ic.pl | ||
|---|---|---|
| 1612 | 1612 |
map { delete $form->{$_} } qw(action header);
|
| 1613 | 1613 |
|
| 1614 | 1614 |
# save form variables in a previousform variable |
| 1615 |
$previousform = $form->escape($form->escape(join '&', map {
|
|
| 1616 |
sprintf "%s=%s", Q($_), /^listprice|lastcost|sellprice$/ ? $form->format_amount(\%myconfig, $form->{$_}) : $form->{$_}
|
|
| 1617 |
} grep { ref $form->{$_} eq '' && $form->{$_} } grep { !/^select/ } sort keys %$form ));
|
|
| 1615 |
my %form_to_save = map { ($_ => m/^ (?: listprice | sellprice | lastcost ) $/x ? $form->format_amount(\%myconfig, $form->{$_}) : $form->{$_}) }
|
|
| 1616 |
keys %{ $form };
|
|
| 1617 |
$previousform = $::auth->save_form_in_session(form => \%form_to_save);
|
|
| 1618 | 1618 |
|
| 1619 | 1619 |
$form->{callback} = $callback;
|
| 1620 | 1620 |
$form->{assemblytotal} = 0;
|
Auch abrufbar als: Unified diff
previousform in Session speichern Teil 2 (bei Erzeugnis-Einzelteilliste)