Revision 1465da30
Von Sven Schöling vor fast 15 Jahren hinzugefügt
| bin/mozilla/is.pl | ||
|---|---|---|
| 34 | 34 |
use SL::FU; |
| 35 | 35 |
use SL::IS; |
| 36 | 36 |
use SL::PE; |
| 37 |
use SL::OE; |
|
| 37 | 38 |
use Data::Dumper; |
| 38 | 39 |
use List::Util qw(max sum); |
| 39 | 40 |
|
| ... | ... | |
| 156 | 157 |
} |
| 157 | 158 |
|
| 158 | 159 |
# Load data for a specific order and update form fields |
| 159 |
my $order_data = IS->get_order_data();
|
|
| 160 |
my $order_data = OE->get_order_data_by_ordnumber(%$form);
|
|
| 160 | 161 |
|
| 161 | 162 |
# Copy the fields we need to %form |
| 162 | 163 |
for my $key (qw(payment_id salesman_id orddate taxzone_id quonumber)) {
|
Auch abrufbar als: Unified diff
Änderungen zum vorherigen Commit, um die Funktionen rouster zu machen.