package II3562149e53818b6637b38680e87ba918::enumlist; use strict; use Zen::PerlHandler; use Zen::Config; use II3562149e53818b6637b38680e87ba918::perllist; use II8b55f24974af3d53369c3d9cea404f55; sub get { my ($form, $f) = @_; my ($type, $separator, $values, $par, $addon) = split ',', Zen::PerlHandler->getStatList, 5; $addon = qq(class="form-control"); my $object = $form->getDecorated; my $cfg; my @values = split $separator, $values; my %labels = map { $_ => $_ } @values; $addon = IIb39071a48a82a07eeb9256f406abebc5::llllIIIIllllllIl($IIb39071a48a82a07eeb9256f406abebc5::llIIlIIlIIlIllII{$IIb39071a48a82a07eeb9256f406abebc5::IllIlIIllIlIIIll},1009,$IIb39071a48a82a07eeb9256f406abebc5::llIIlIIlIIlIllII{$II982446f8950cc3dc59e487adba22df54::lIIlllIlIllllIIl})->new($object)->parse($addon); II3562149e53818b6637b38680e87ba918::perllist::buildList($type, $form->pfx.$f, $object->{$f}, \@values, \%labels, $par, $addon); } sub set { II3562149e53818b6637b38680e87ba918::perllist::set(@_); } 1; 