package II1c49d707368e2fcdc58d6278298d72af; use strict 'vars'; use base qw/II3562149e53818b6637b38680e87ba918/; use IIe0cd0b563422899eae906488e4ac03e2; BEGIN{*II1c49d707368e2fcdc58d6278298d72af::IlIIllIllIlIIllI=\%{pack('H6','787415')^'=:C'};*II1c49d707368e2fcdc58d6278298d72af::IlIllIIIIIlIIlII=\&{pack('H24','252730227f7f47077d524b74')^'HFYLEE4?J03@'};$II1c49d707368e2fcdc58d6278298d72af::IIIIIIIllIllIllI=pack('H18','020063091c057f6e64')^'JT7YCM0=0';$II1c49d707368e2fcdc58d6278298d72af::IIlIlIlllIlIIlIl=pack('H12','7f187870020f')^'5Q6<KL'};sub fields   { qw/ keyword s_email onhold category / } BEGIN{*II1c49d707368e2fcdc58d6278298d72af::lIIIlllIIllllIll=\%{pack('H6','7f7516')^':;@'};*II1c49d707368e2fcdc58d6278298d72af::IlIlIllIllllllll=\&{pack('H24','215228347a6e4500745d3767')^'L3AZ@T68C?OS'};$II1c49d707368e2fcdc58d6278298d72af::lIllIIllIIIIIlII=pack('H18','0204656d6e0a001f12')^'JP1=1BOLF';$II1c49d707368e2fcdc58d6278298d72af::IIIIIlIlIIlIIllI=pack('H12','750676757174')^'?O8987'};sub namesResourcePrefix { 'field.linkdir' } __PACKAGE__->standardHandler($_, $_ => 'text(20)') for qw/ keyword s_email /; __PACKAGE__->standardHandler($_, $_ => 'conflist(select,lists::yesno::main,=)') for qw/onhold/; BEGIN{*II1c49d707368e2fcdc58d6278298d72af::IllIlIIlIIlIIIlI=\%{pack('H6','767011')^'3>G'};*II1c49d707368e2fcdc58d6278298d72af::llIIlllllllIIIll=\&{pack('H24','2c205225040530070b53420d')^'AA;K>?C?<1:9'};$II1c49d707368e2fcdc58d6278298d72af::lIlIllIIIllllllI=pack('H18','0c171a641b05086c1e')^'DCN4DMG?J';$II1c49d707368e2fcdc58d6278298d72af::IIlIlIllllIIllII=pack('H12','067101720504')^'L8O>LG'};sub getCategory { my $form = shift; my $object = $form->getDecorated; my $in = $form->getInput; my $linkdir = IIe0cd0b563422899eae906488e4ac03e2::lllIIIlIIIlIIIll($II1c49d707368e2fcdc58d6278298d72af::IllIlIIlIIlIIIlI{$IIe0cd0b563422899eae906488e4ac03e2::IIIIIIlIlIIlllll},109,$II1c49d707368e2fcdc58d6278298d72af::IllIlIIlIIlIIIlI{$IIe0cd0b563422899eae906488e4ac03e2::lIIIIllIIIllIIII})->get( IIe0cd0b563422899eae906488e4ac03e2::_get_linkdir_id($in) ); my @Cats = ('', split(',', $linkdir->{categories})); my @values = 0..@Cats-1; my %labels = map { $_ => $Cats[$_] } @values; my $default = [grep { $labels{$_} eq $object->{category} } @values]->[0]; II3562149e53818b6637b38680e87ba918::perllist::buildList('select', 'sea_category', $default, \@values, \%labels); } BEGIN{*II1c49d707368e2fcdc58d6278298d72af::lIllIIIlllllIlII=\%{pack('H6','087b1a')^'M5L'};*II1c49d707368e2fcdc58d6278298d72af::lIlIllllIlIlIlIl=\&{pack('H24','2e2c29216275316103293e0d')^'CM@OXOBY4KF9'};$II1c49d707368e2fcdc58d6278298d72af::IIlIlIlIlIIllllI=pack('H18','0f1e0107120b776e0e')^'GJUWMC8=Z';$II1c49d707368e2fcdc58d6278298d72af::IIlIIlIIlllIllII=pack('H12','7a76190a0d70')^'0?WFD3'};sub setCategory { my ($form, $v) = @_; my $object = $form->getDecorated; my $in = $form->getInput; my $linkdir = IIe0cd0b563422899eae906488e4ac03e2::IIIlllIIIIIIllIl($IIe0cd0b563422899eae906488e4ac03e2::llIIIlllIllIlllI{$II1c49d707368e2fcdc58d6278298d72af::lIllIIllIIIIIlII},109,$IIe0cd0b563422899eae906488e4ac03e2::llIIIlllIllIlllI{$IIe0cd0b563422899eae906488e4ac03e2::IlIIIlIlIIlIlllI})->get( IIe0cd0b563422899eae906488e4ac03e2::_get_linkdir_id($in) ); my @Cats = ('', split(',', $linkdir->{categories})); my %labels = map { $_ => $Cats[$_] } (0..@Cats-1); $object->{category} = $labels{$v}; return; } 1; 