Revision 7174b83e
Von Moritz Bunkus vor mehr als 13 Jahren hinzugefügt
| bin/mozilla/io.pl | ||
|---|---|---|
| 703 | 703 |
$form->{old_callback} = $form->escape($form->{callback}, 1);
|
| 704 | 704 |
$form->{callback} = $form->escape("$form->{script}?action=display_form", 1);
|
| 705 | 705 |
|
| 706 |
# save all form variables except action in a previousform variable
|
|
| 707 |
my $previousform = join '&', map { my $value = $form->{$_}; $value =~ s/&/%26/; "$_=$value" } grep { !/action/ } keys %$form;
|
|
| 706 |
# save all form variables except action in the session and keep the key in the previousform variable
|
|
| 707 |
my $previousform = $::auth->save_form_in_session(skip_keys => [ qw(action) ]);
|
|
| 708 | 708 |
|
| 709 | 709 |
my @HIDDENS; |
| 710 |
push @HIDDENS, { 'name' => 'previousform', 'value' => $form->escape($previousform, 1) };
|
|
| 710 |
push @HIDDENS, { 'name' => 'previousform', 'value' => $previousform };
|
|
| 711 | 711 |
push @HIDDENS, map +{ 'name' => $_, 'value' => $form->{$_} }, qw(rowcount vc);
|
| 712 | 712 |
push @HIDDENS, map +{ 'name' => $_, 'value' => $form->{"${_}_$form->{rowcount}"} }, qw(partnumber description unit);
|
| 713 | 713 |
push @HIDDENS, { 'name' => 'taxaccount2', 'value' => $form->{taxaccounts} };
|
Auch abrufbar als: Unified diff
Beim Neuanlegen von Artikeln aus Beleg heraus $::form in Session speichern