Revision fec397bf
Von Moritz Bunkus vor mehr als 10 Jahren hinzugefügt
SL/DB/Manager/Unit.pm | ||
---|---|---|
8 | 8 |
use SL::DB::Helper::Sorted; |
9 | 9 |
use SL::DB::Helper::Filtered; |
10 | 10 |
|
11 |
use List::Util qw(first); |
|
12 |
|
|
11 | 13 |
sub object_class { 'SL::DB::Unit' } |
12 | 14 |
|
13 | 15 |
__PACKAGE__->make_manager_methods; |
... | ... | |
46 | 48 |
$::request->cache('all_units')->{sorted} //= $class->get_all_sorted; |
47 | 49 |
} |
48 | 50 |
|
51 |
sub find_h_unit { |
|
52 |
my ($class) = @_; |
|
53 |
|
|
54 |
return $::request->cache('unit_manager')->{h_unit} //= first { $_->name =~ m{^(?: Std | h | Stunde )$}x } @{ $class->all_units }; |
|
55 |
} |
|
56 |
|
|
57 |
sub time_based_units { |
|
58 |
my ($class) = @_; |
|
59 |
|
|
60 |
my $h_unit = $class->find_h_unit; |
|
61 |
return [] if !$h_unit; |
|
62 |
return $::request->cache('unit_manager')->{units} //= $h_unit->convertible_units; |
|
63 |
} |
|
64 |
|
|
49 | 65 |
1; |
Auch abrufbar als: Unified diff
Pflichtenheftaufträge: beliebige Artikel auswählen können
Zusätzlich werden dann Spalten angezeigt, die die Einheit und den im
Angebot/Auftrag verwendeten Positionstypen (Pauschalposition/
Auwandsposition) angeben.