Revision 65b2387a
Von Moritz Bunkus vor mehr als 5 Jahren hinzugefügt
| bin/mozilla/do.pl | ||
|---|---|---|
| 35 | 35 |
use List::MoreUtils qw(uniq); |
| 36 | 36 |
use List::Util qw(max sum); |
| 37 | 37 |
use POSIX qw(strftime); |
| 38 |
use YAML; |
|
| 39 | 38 |
|
| 40 | 39 |
use SL::DB::DeliveryOrder; |
| 41 | 40 |
use SL::DO; |
| ... | ... | |
| 44 | 43 |
use SL::MoreCommon qw(ary_diff restore_form save_form); |
| 45 | 44 |
use SL::ReportGenerator; |
| 46 | 45 |
use SL::WH; |
| 46 |
use SL::YAML; |
|
| 47 | 47 |
use Sort::Naturally (); |
| 48 | 48 |
require "bin/mozilla/common.pl"; |
| 49 | 49 |
require "bin/mozilla/io.pl"; |
| ... | ... | |
| 1390 | 1390 |
push @{ $stock_info }, { map { $_ => $form->{"${_}_${i}"} } qw(delivery_order_items_stock_id warehouse_id bin_id chargenumber bestbefore qty unit) };
|
| 1391 | 1391 |
} |
| 1392 | 1392 |
|
| 1393 |
$form->{stock} = YAML::Dump($stock_info);
|
|
| 1393 |
$form->{stock} = SL::YAML::Dump($stock_info);
|
|
| 1394 | 1394 |
|
| 1395 | 1395 |
_stock_in_out_set_qty_display($stock_info); |
| 1396 | 1396 |
|
| ... | ... | |
| 1485 | 1485 |
my @errors = DO->check_stock_availability('requests' => $stock_info,
|
| 1486 | 1486 |
'parts_id' => $form->{parts_id});
|
| 1487 | 1487 |
|
| 1488 |
$form->{stock} = YAML::Dump($stock_info);
|
|
| 1488 |
$form->{stock} = SL::YAML::Dump($stock_info);
|
|
| 1489 | 1489 |
|
| 1490 | 1490 |
if (@errors) {
|
| 1491 | 1491 |
$form->{ERRORS} = [];
|
| ... | ... | |
| 1917 | 1917 |
foreach (@all_requests){
|
| 1918 | 1918 |
$i++; |
| 1919 | 1919 |
next unless scalar(%{ $_ });
|
| 1920 |
$form->{"stock_${prefix}_$i"} = YAML::Dump([$_]);
|
|
| 1920 |
$form->{"stock_${prefix}_$i"} = SL::YAML::Dump([$_]);
|
|
| 1921 | 1921 |
} |
| 1922 | 1922 |
|
| 1923 | 1923 |
save(no_redirect => 1); # Wir können auslagern, deshalb beleg speichern |
Auch abrufbar als: Unified diff
Module: gebundletes YAML durch dünnen Wrapper über YAML::XS & YAML ersetzt