Revision eb518737
Von Bernd Blessmann vor mehr als 12 Jahren hinzugefügt
| SL/Template/Plugin/L.pm | ||
|---|---|---|
| 342 | 342 |
JS |
| 343 | 343 |
} |
| 344 | 344 |
|
| 345 |
# simple version with select_tag |
|
| 346 |
sub vendor_selector {
|
|
| 347 |
my ($self, $name, $value, %params) = @_; |
|
| 348 |
|
|
| 349 |
my $actual_vendor_id = (defined $::form->{"$name"})? ((ref $::form->{"$name"}) ? $::form->{"$name"}->id : $::form->{"$name"}) :
|
|
| 350 |
(ref $value && $value->can('id')) ? $value->id : '';
|
|
| 351 |
my $options_str = $self->options_for_select(SL::DB::Manager::Vendor->get_all(), |
|
| 352 |
default => $actual_vendor_id, |
|
| 353 |
title_sub => sub { $_[0]->vendornumber . " : " . $_[0]->name },
|
|
| 354 |
'with_empty' => 1); |
|
| 355 |
|
|
| 356 |
return $self->select_tag($name, $options_str, %params); |
|
| 357 |
} |
|
| 358 |
|
|
| 359 |
|
|
| 360 |
# simple version with select_tag |
|
| 361 |
sub part_selector {
|
|
| 362 |
my ($self, $name, $value, %params) = @_; |
|
| 363 |
|
|
| 364 |
my $actual_part_id = (defined $::form->{"$name"})? ((ref $::form->{"$name"})? $::form->{"$name"}->id : $::form->{"$name"}) :
|
|
| 365 |
(ref $value && $value->can('id')) ? $value->id : '';
|
|
| 366 |
my $options_str = $self->options_for_select(SL::DB::Manager::Part->get_all(), |
|
| 367 |
default => $actual_part_id, |
|
| 368 |
title_sub => sub { $_[0]->partnumber . " : " . $_[0]->description },
|
|
| 369 |
'with_empty' => 1); |
|
| 370 |
|
|
| 371 |
return $self->select_tag($name, $options_str, %params); |
|
| 372 |
} |
|
| 373 |
|
|
| 374 |
|
|
| 345 | 375 |
sub javascript_tag {
|
| 346 | 376 |
my $self = shift; |
| 347 | 377 |
my $code = ''; |
Auch abrufbar als: Unified diff
Waren und Lieferanten als benutzerdefinierte Variablen hinzugefügt.
Mit einfachen vendor_ und part_selectoren im L-Plugin, die das
select_tag verwenden. vc_limit wird nicht berücksichtigt und das
ganze ist nur rudimentär getestet.