package II3562149e53818b6637b38680e87ba918::linklist; use strict; use Zen::PerlHandler; use II3562149e53818b6637b38680e87ba918::perllist; sub get { my ($form, $f) = @_; my ($type, $class, $showfield, $par, $addon) = split ',', Zen::PerlHandler->getStatList, 5; my ($show, $sort) = split '/', $showfield, 2; $addon .= qq(class="custom-select"); my @sea = $sort ? (ORDER => $sort) : (); my @data = Zen::PerlHandler->get("$class\->search")->do(@sea); my (@keys, %data); foreach my $item (@data) { push @keys, $item->id; $data{$item->id} = $item->{$show}; } II3562149e53818b6637b38680e87ba918::perllist::buildList($type, $form->pfx.$f, $form->getDecorated->{$f}, \@keys, \%data, $par, $addon); } sub set { II3562149e53818b6637b38680e87ba918::perllist::set(@_); } 1; 