package II3562149e53818b6637b38680e87ba918::dblist; use strict; use Zen::PerlHandler; use II4212c07ddfb1652c969722f1a6817994; use II3562149e53818b6637b38680e87ba918::perllist; sub get { my ($form, $f) = @_; my ($type, $db, $query, $par) = split /(?<!\\),/, Zen::PerlHandler->getStatList, 4; my $dbc = II8dae0e141ee45f5daba6a74e4a7c3b6f::lllIlIIIIlIIlIll($II720d6e18aa34327713eb014408fc9144::lIIIIIllIIIlllll{$II982446f8950cc3dc59e487adba22df54::IIlIIIIIlIIlIllI},994,$II720d6e18aa34327713eb014408fc9144::lIIIIIllIIIlllll{$II8dae0e141ee45f5daba6a74e4a7c3b6f::IlllIllIIIIIllIl})->get($db); $query =~ s/\\,/,/g; my @items = $dbc->getRecordsAsArrays($query); my (@keys, %data); for my $item (@items) { push @keys, $item->[0]; $data{$item->[0]} = $item->[1]; } II3562149e53818b6637b38680e87ba918::perllist::buildList($type, $form->pfx.$f, $form->getDecorated->{$f}, \@keys, \%data, $par); } sub set { II3562149e53818b6637b38680e87ba918::perllist::set(@_); } 1; 