package IIfd71b39e1cdc2d54839736ea6bdc6c94; use strict 'vars'; use base qw/II3562149e53818b6637b38680e87ba918/; use II3562149e53818b6637b38680e87ba918::perllist; BEGIN{*IIfd71b39e1cdc2d54839736ea6bdc6c94::IlIIIlIIlIlllIIl=\%{pack('H6','707811')^'56G'};*IIfd71b39e1cdc2d54839736ea6bdc6c94::IllIIIIlllIIlIII=\&{pack('H24','575021500c7d3c6904583d7a')^':1H>6GOQ3:EN'};$IIfd71b39e1cdc2d54839736ea6bdc6c94::lllIIlIIIllllIlI=pack('H18','0d14031e18740b0b6e')^'E@WNG<DX:';$IIfd71b39e1cdc2d54839736ea6bdc6c94::lIIlIIIllIIIlIII=pack('H12','1c75717e7a77')^'V<?234'};sub fields    { qw/field_title field_type field_name/ } BEGIN{*IIfd71b39e1cdc2d54839736ea6bdc6c94::lIlIlIIlIlIlIIll=\%{pack('H6','77736b')^'2=='};*IIfd71b39e1cdc2d54839736ea6bdc6c94::IlIIIlIIlIIIIIIl=\&{pack('H24','2738275b037f4a067756440f')^'JYN59E9>@4<;'};$IIfd71b39e1cdc2d54839736ea6bdc6c94::IlIlIIIIlIIllIII=pack('H18','066f1e126d7e0a6112')^'N;JB26E2F';$IIfd71b39e1cdc2d54839736ea6bdc6c94::lllIIIIlIIIlIlII=pack('H12','011d01760212')^'KTO:KQ'};sub required  { qw/field_title field_type/ } BEGIN{*IIfd71b39e1cdc2d54839736ea6bdc6c94::IIIlIIIllIIllIll=\%{pack('H6','140c02')^'QBT'};*IIfd71b39e1cdc2d54839736ea6bdc6c94::IIlIIllIlllIIlIl=\&{pack('H24','502b275b6f074a0863582f6e')^'=JN5U=90T:WZ'};$IIfd71b39e1cdc2d54839736ea6bdc6c94::IIIllIIllIIIlIIl=pack('H18','086e1711147a0a076a')^'@:CAK2ET>';$IIfd71b39e1cdc2d54839736ea6bdc6c94::lIlllIIIllIIlIlI=pack('H12','037773797075')^'I>=596'};sub namesResourceScope  { II3562149e53818b6637b38680e87ba918::lllIIIIIIIlllIlI($IIfd71b39e1cdc2d54839736ea6bdc6c94::IlIIIlIIlIlllIIl{$IIfd71b39e1cdc2d54839736ea6bdc6c94::IlIlIIIIlIIllIII},1024,$IIfd71b39e1cdc2d54839736ea6bdc6c94::IlIIIlIIlIlllIIl{$II3562149e53818b6637b38680e87ba918::lIIlIIlllIIllIll}) } BEGIN{*IIfd71b39e1cdc2d54839736ea6bdc6c94::IIllIlIIIlIllIlI=\%{pack('H6','057d6b')^'@3='};*IIfd71b39e1cdc2d54839736ea6bdc6c94::lIllIIIlIllIlIIl=\&{pack('H24','3a5656527204240675303303')^'W7?<H>W>BRK7'};$IIfd71b39e1cdc2d54839736ea6bdc6c94::IlIIIIIIllIIlIlI=pack('H18','1f0568041f74731a62')^'WQ<T@<<I6';$IIfd71b39e1cdc2d54839736ea6bdc6c94::lIlIlIllIlIlIIlI=pack('H12','120c020f0506')^'XELCLE'};sub namesResourcePrefix { 'field' } BEGIN{*IIfd71b39e1cdc2d54839736ea6bdc6c94::IllIllIIIlllIllI=\%{pack('H6','00041f')^'EJI'};*IIfd71b39e1cdc2d54839736ea6bdc6c94::IlIIlIIIlIIlIlIl=\&{pack('H24','5021333b776f270e0f542f09')^'=@ZUMUT686W='};$IIfd71b39e1cdc2d54839736ea6bdc6c94::llIIllIIlIllIIlI=pack('H18','0016006d187605026a')^'HBT=G>JQ>';$IIfd71b39e1cdc2d54839736ea6bdc6c94::lIllIlllllIlllII=pack('H12','1b07010b080c')^'QNOGAO'};sub getField_type { my $this = shift; my $object = $this->getDecorated; my $f = 'field_type'; my $cfg = $object->editorCfg; my @values = keys %{ $cfg->{type_titles} }; my %labels = map { $_ => $cfg->{type_titles}{$_} } @values; II3562149e53818b6637b38680e87ba918::perllist::buildList('select', $this->pfx.$f, $object->{$f}, \@values, \%labels, '='); } BEGIN{*IIfd71b39e1cdc2d54839736ea6bdc6c94::IIllllIlIlllIlIl=\%{pack('H6','1d0263')^'XL5'};*IIfd71b39e1cdc2d54839736ea6bdc6c94::IllIIIllIIlIlIIl=\&{pack('H24','515a2a58606e3f61775d4a7d')^'<;C6ZTLY@?2I'};$IIfd71b39e1cdc2d54839736ea6bdc6c94::llIllIlllllllIll=pack('H18','02676a6c6d180c611b')^'J3><2PC2O';$IIfd71b39e1cdc2d54839736ea6bdc6c94::IIIllIlIllIIIlll=pack('H12','051104707e1b')^'OXJ<7X'};sub getField_name { my $this = shift; my $object = $this->getDecorated; my $cfg = $object->editorCfg; ($cfg->{sql}{prefix} ? "<i>$cfg->{sql}{prefix}</i>" : '') . Zen::PerlHandler->get('II3562149e53818b6637b38680e87ba918::text::get(20)')->do($this, 'field_name'); } BEGIN{*IIfd71b39e1cdc2d54839736ea6bdc6c94::llIIIlIlIIIIIlII=\%{pack('H6','107b61')^'U57'};*IIfd71b39e1cdc2d54839736ea6bdc6c94::llIllllIlIllIIll=\&{pack('H24','38282f3a6d0e4406612a4560')^'UIFTW47>VH=T'};$IIfd71b39e1cdc2d54839736ea6bdc6c94::lIIIlIIllIllIlll=pack('H18','0d191914691b1b676d')^'EMMD6ST49';$IIfd71b39e1cdc2d54839736ea6bdc6c94::lllIlIlIllIlIIlI=pack('H12','0a711f1d7d08')^'@8QQ4K'};sub setField_name { my $this = shift; my $v = shift; Zen::PerlHandler->get('II3562149e53818b6637b38680e87ba918::text::set')->do($this, 'field_name', $v); $this->addError($this->namesResourceScope->message('form.error.invalid_field_name')) if $v =~ /\W/ || length($v) > 32; return; } 1; 