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"};
|
| bin/mozilla/is.pl | ||
|---|---|---|
| 1621 | 1621 |
sub e_mail {
|
| 1622 | 1622 |
$lxdebug->enter_sub(); |
| 1623 | 1623 |
|
| 1624 |
$print_post = 1; |
|
| 1624 |
if (!$form->{id}) {
|
|
| 1625 |
$print_post = 1; |
|
| 1625 | 1626 |
|
| 1626 |
&post;
|
|
| 1627 |
my $saved_form = save_form();
|
|
| 1627 | 1628 |
|
| 1628 |
&edit_e_mail; |
|
| 1629 |
post(); |
|
| 1630 |
|
|
| 1631 |
my %saved_vars; |
|
| 1632 |
map({ $saved_vars{$_} = $form->{$_}; } qw(id invnumber));
|
|
| 1633 |
restore_form($saved_form); |
|
| 1634 |
map({ $form->{$_} = $saved_vars{$_}; } qw(id invnumber));
|
|
| 1635 |
} |
|
| 1636 |
|
|
| 1637 |
edit_e_mail(); |
|
| 1629 | 1638 |
|
| 1630 | 1639 |
$lxdebug->leave_sub(); |
| 1631 | 1640 |
} |
| bin/mozilla/oe.pl | ||
|---|---|---|
| 2545 | 2545 |
|
| 2546 | 2546 |
$form->{print_and_save} = 1;
|
| 2547 | 2547 |
|
| 2548 |
&save; |
|
| 2548 |
if (!$form->{id}) {
|
|
| 2549 |
$print_post = 1; |
|
| 2550 |
|
|
| 2551 |
my $saved_form = save_form(); |
|
| 2552 |
|
|
| 2553 |
save(); |
|
| 2554 |
|
|
| 2555 |
my %saved_vars; |
|
| 2556 |
map({ $saved_vars{$_} = $form->{$_}; } qw(id ordnumber quonumber));
|
|
| 2557 |
restore_form($saved_form); |
|
| 2558 |
map({ $form->{$_} = $saved_vars{$_}; } qw(id ordnumber quonumber));
|
|
| 2559 |
} |
|
| 2549 | 2560 |
|
| 2550 |
&edit_e_mail;
|
|
| 2561 |
edit_e_mail();
|
|
| 2551 | 2562 |
|
| 2552 | 2563 |
$lxdebug->leave_sub(); |
| 2553 | 2564 |
} |
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.