Revision 2f6a11fb
Von Bernd Bleßmann vor etwa 10 Jahren hinzugefügt
| SL/WH.pm | ||
|---|---|---|
| 162 | 162 |
Common::check_params(\%params, qw(assembly_id dst_warehouse_id login qty unit dst_bin_id chargenumber bestbefore comment)); |
| 163 | 163 |
|
| 164 | 164 |
|
| 165 |
my $unit = SL::DB::Manager::Unit->find_by(name => $params{unit});
|
|
| 165 |
my $unit = SL::DB::Manager::Unit->find_by(name => $params{unit});
|
|
| 166 | 166 |
if ($unit) {
|
| 167 | 167 |
my $assembly = SL::DB::Manager::Assembly->get_all( |
| 168 | 168 |
query => [ id => $params{assembly_id} ],
|
Auch abrufbar als: Unified diff
trailing whitespaces entfernt