Revision 6798d5bb
Von Jan Büren vor 12 Monaten hinzugefügt
| SL/DB/Warehouse.pm | ||
|---|---|---|
| 2 | 2 |
|
| 3 | 3 |
use strict; |
| 4 | 4 |
|
| 5 |
use Sort::Naturally; |
|
| 6 |
|
|
| 5 | 7 |
use SL::DB::MetaSetup::Warehouse; |
| 6 | 8 |
use SL::DB::Manager::Warehouse; |
| 7 | 9 |
use SL::DB::Helper::ActsAsList; |
| ... | ... | |
| 19 | 21 |
sub bins_sorted {
|
| 20 | 22 |
return [ sort { $a->id <=> $b->id } @{ shift()->bins || [] } ];
|
| 21 | 23 |
} |
| 24 |
sub bins_sorted_naturally {
|
|
| 25 |
return [ sort { ncmp ($a->description, $b->description) } @{ shift()->bins || [] } ];
|
|
| 26 |
} |
|
| 22 | 27 |
|
| 23 | 28 |
sub first_bin {
|
| 24 | 29 |
return shift()->bins_sorted->[0]; |
Auch abrufbar als: Unified diff
Lagerplätze natürlich nach Beschreibung in Listen sortieren
Für alle Lagerfunktionen und für den Standardlagerplatz der Waren