package II3562149e53818b6637b38680e87ba918::conflist; use strict; use Zen::PerlHandler; use Zen::Config; use II3562149e53818b6637b38680e87ba918::perllist; use II8b55f24974af3d53369c3d9cea404f55; sub get { my ($form, $f) = @_; my ($type, $list, $par, $addon) = split ',', Zen::PerlHandler->getStatList, 4; $addon .= qq( class="custom-select"); my $object = $form->getDecorated; my $cfg; if ($list =~ /^(.+?)(?:\:\:|\->)(\w+)$/) { $cfg = Zen::Config->get($1); $list = $2; } else { $cfg = $form->cfg; } die "list not found [$list]" unless defined $cfg->{$list}; my $values = [keys %{ $cfg->{$list} }]; my $labels = {%{$cfg->{$list}}}; $addon = IIb39071a48a82a07eeb9256f406abebc5::lIIlIIIlllllllII($II720d6e18aa34327713eb014408fc9144::lIIIlIlIlllIIIll{$II720d6e18aa34327713eb014408fc9144::llIlIlIIIIIlIIlI},1009,$II720d6e18aa34327713eb014408fc9144::lIIIlIlIlllIIIll{$IIb39071a48a82a07eeb9256f406abebc5::IlIIllllllIIIlll})->new($object)->parse($addon); II3562149e53818b6637b38680e87ba918::perllist::buildList($type, $form->pfx.$f, $object->{$f}, $values, $labels, $par, $addon); } sub set { II3562149e53818b6637b38680e87ba918::perllist::set(@_); } 1; 