Revision 7174b83e
Von Moritz Bunkus vor mehr als 13 Jahren hinzugefügt
| bin/mozilla/ic.pl | ||
|---|---|---|
| 1759 | 1759 |
|
| 1760 | 1760 |
$auth->assert('part_service_assembly_edit');
|
| 1761 | 1761 |
|
| 1762 |
my ($parts_id, %newform, $previousform, $amount, $callback);
|
|
| 1762 |
my ($parts_id, %newform, $amount, $callback); |
|
| 1763 | 1763 |
|
| 1764 | 1764 |
# check if there is a part number - commented out, cause there is an automatic allocation of numbers |
| 1765 | 1765 |
# $form->isblank("partnumber", $locale->text(ucfirst $form->{item}." Part Number missing!"));
|
| ... | ... | |
| 1800 | 1800 |
# save the new form variables before splitting previousform |
| 1801 | 1801 |
map { $newform{$_} = $form->{$_} } keys %$form;
|
| 1802 | 1802 |
|
| 1803 |
$previousform = $form->unescape($form->{previousform});
|
|
| 1804 |
|
|
| 1805 | 1803 |
# don't trample on previous variables |
| 1806 | 1804 |
map { delete $form->{$_} } keys %newform;
|
| 1807 | 1805 |
|
| 1808 | 1806 |
my $ic_cvar_configs = CVar->get_configs(module => 'IC'); |
| 1809 | 1807 |
my @ic_cvar_fields = map { "cvar_$_->{name}" } @{ $ic_cvar_configs };
|
| 1810 | 1808 |
|
| 1811 |
# now take it apart and restore original values |
|
| 1812 |
foreach my $item (split /&/, $previousform) {
|
|
| 1813 |
my ($key, $value) = split m/=/, $item, 2; |
|
| 1814 |
$value =~ s/%26/&/g; |
|
| 1815 |
$form->{$key} = $value;
|
|
| 1816 |
} |
|
| 1809 |
# restore original values |
|
| 1810 |
$::auth->restore_form_from_session($newform{previousform}, form => $form);
|
|
| 1817 | 1811 |
$form->{taxaccounts} = $newform{taxaccount2};
|
| 1818 | 1812 |
|
| 1819 | 1813 |
if ($form->{item} eq 'assembly') {
|
Auch abrufbar als: Unified diff
Beim Neuanlegen von Artikeln aus Beleg heraus $::form in Session speichern