Revision a2546588
Von Sven Schöling vor mehr als 8 Jahren hinzugefügt
| bin/mozilla/do.pl | ||
|---|---|---|
| 46 | 46 |
use Sort::Naturally (); |
| 47 | 47 |
require "bin/mozilla/arap.pl"; |
| 48 | 48 |
require "bin/mozilla/common.pl"; |
| 49 |
require "bin/mozilla/invoice_io.pl"; |
|
| 50 | 49 |
require "bin/mozilla/io.pl"; |
| 51 | 50 |
require "bin/mozilla/reportgenerator.pl"; |
| 52 | 51 |
|
| ... | ... | |
| 1538 | 1537 |
$main::lxdebug->leave_sub(); |
| 1539 | 1538 |
} |
| 1540 | 1539 |
|
| 1540 |
sub display_form {
|
|
| 1541 |
$::lxdebug->enter_sub; |
|
| 1542 |
|
|
| 1543 |
$::auth->assert('purchase_delivery_order_edit | sales_delivery_order_edit');
|
|
| 1544 |
|
|
| 1545 |
relink_accounts(); |
|
| 1546 |
retrieve_partunits(); |
|
| 1547 |
|
|
| 1548 |
my $new_rowcount = $::form->{"rowcount"} * 1 + 1;
|
|
| 1549 |
$::form->{"project_id_${new_rowcount}"} = $::form->{"globalproject_id"};
|
|
| 1550 |
|
|
| 1551 |
$::form->language_payment(\%::myconfig); |
|
| 1552 |
|
|
| 1553 |
Common::webdav_folder($::form); |
|
| 1554 |
|
|
| 1555 |
form_header(); |
|
| 1556 |
display_row(++$::form->{rowcount});
|
|
| 1557 |
form_footer(); |
|
| 1558 |
|
|
| 1559 |
$::lxdebug->leave_sub; |
|
| 1560 |
} |
|
| 1541 | 1561 |
|
| 1542 | 1562 |
sub yes {
|
| 1543 | 1563 |
call_sub($main::form->{yes_nextsub});
|
Auch abrufbar als: Unified diff
invoice_io.pl entfernt
sql_ledger hat versucht ein zentrales display_form zu halten. Das hat
aber in lx nur Probleme gemacht und weil Aufträge mehr und mehr
brauchten ist die invoice_io.pl als alternative reingekommen.
Mittlerweile bestand die aber nur noch aus Weichen für verschiedene
Belege, und war ausserdem by design unsafe (no strict refs).
Gleichzeitig fliegt auch das unsägliche if ($form->{display_form}) {
call_sub($form->{display_form}) } feature raus, was niemals jemand
benutzt hat.
Danke für Deine Dienste invoice_io.pl.