Revision ffea1346
Von Moritz Bunkus vor fast 18 Jahren hinzugefügt
| bin/mozilla/io.pl | ||
|---|---|---|
| 1430 | 1430 |
sub send_email {
|
| 1431 | 1431 |
$lxdebug->enter_sub(); |
| 1432 | 1432 |
|
| 1433 |
$old_form = new Form; |
|
| 1433 |
my $callback = $form->{script} . "?action=edit";
|
|
| 1434 |
map({ $callback .= "\&${_}=" . E($form->{$_}); }
|
|
| 1435 |
qw(login password path type id)); |
|
| 1434 | 1436 |
|
| 1435 |
map { $old_form->{$_} = $form->{$_} } keys %$form;
|
|
| 1436 |
$old_form->{media} = $form->{oldmedia};
|
|
| 1437 |
print_form("return");
|
|
| 1437 | 1438 |
|
| 1438 |
&print_form($old_form); |
|
| 1439 |
$form->{callback} = $callback;
|
|
| 1440 |
$form->redirect(); |
|
| 1439 | 1441 |
|
| 1440 | 1442 |
$lxdebug->leave_sub(); |
| 1441 | 1443 |
} |
| ... | ... | |
| 1944 | 1946 |
$form->update_status(\%myconfig) |
| 1945 | 1947 |
if ($form->{media} eq 'queue' && $form->{id});
|
| 1946 | 1948 |
|
| 1949 |
return $lxdebug->leave_sub() if ($old_form eq "return"); |
|
| 1950 |
|
|
| 1947 | 1951 |
if ($old_form) {
|
| 1948 | 1952 |
|
| 1949 | 1953 |
$old_form->{"${inv}number"} = $form->{"${inv}number"};
|
Auch abrufbar als: Unified diff
Beim Verschicken von Einkaufs- und Verkaufsbelegen per Email nur dann speichern, wenn der Beleg noch gar nicht gespeichert war. Dann auch auf geparste/nicht geparste Zahlen achten. Fix für Bug 619.