Revision dfe28d97
Von Werner Hahn vor mehr als 1 Jahr hinzugefügt
| SL/DB/Part.pm | ||
|---|---|---|
| 12 | 12 |
use SL::DB::MetaSetup::Part; |
| 13 | 13 |
use SL::DB::Manager::Part; |
| 14 | 14 |
use SL::DB::Chart; |
| 15 |
use SL::DB::Vendor; |
|
| 15 | 16 |
use SL::DB::Helper::AttrHTML; |
| 16 | 17 |
use SL::DB::Helper::AttrSorted; |
| 17 | 18 |
use SL::DB::Helper::TransNumberGenerator; |
| ... | ... | |
| 578 | 579 |
return 1; |
| 579 | 580 |
} |
| 580 | 581 |
|
| 582 |
sub vendor_dropdown {
|
|
| 583 |
my ( $self ) = @_; |
|
| 584 |
|
|
| 585 |
my @vendor_dd; |
|
| 586 |
# $main::lxdebug->dump(0, 'WH:MakeModels ', $_[0]->makemodels); |
|
| 587 |
|
|
| 588 |
foreach my $mm ( @{$_[0]->makemodels} ){
|
|
| 589 |
my $vendor = SL::DB::Manager::Vendor->get_first( where => [ id => $mm->make ] ); |
|
| 590 |
my @tmp = ({ title => $vendor->name, value => $vendor->{id} });
|
|
| 591 |
push @vendor_dd, @tmp; |
|
| 592 |
} |
|
| 593 |
return \@vendor_dd; |
|
| 594 |
} |
|
| 595 |
|
|
| 581 | 596 |
1; |
| 582 | 597 |
|
| 583 | 598 |
__END__ |
Auch abrufbar als: Unified diff
DispositionsManager: Prototyp ohne Auftrag erstellen