package II621ba4edbddebbf51b342ec2f72d7905; use strict 'vars'; use base qw/II3562149e53818b6637b38680e87ba918/; use II71d5361f031728b83783b8be49ba7974; BEGIN{*II621ba4edbddebbf51b342ec2f72d7905::lllllIIIIIIIIIlI=\%{pack('H6','717712')^'49D'};*II621ba4edbddebbf51b342ec2f72d7905::llllIllIIlIlIlII=\&{pack('H24','595d25296f764f7a7b583a62')^'4<LGUL<BL:BV'};$II621ba4edbddebbf51b342ec2f72d7905::lIIllllIlIIllllI=pack('H18','781700060d78081769')^'0CTVR0GD=';$II621ba4edbddebbf51b342ec2f72d7905::IIlllIllIIIIIlIl=pack('H12','1a1b78190f71')^'PR6UF2'};sub fields    { qw/ tagname comment def_value / } BEGIN{*II621ba4edbddebbf51b342ec2f72d7905::IlIlIIlllIlIlIlI=\%{pack('H6','127f6b')^'W1='};*II621ba4edbddebbf51b342ec2f72d7905::IIIIlIlIlllIIIll=\&{pack('H24','25355d5b03764c6d652c3174')^'HT459L?URNI@'};$II621ba4edbddebbf51b342ec2f72d7905::IIIlIIlIlIIlIIll=pack('H18','10151b6f091d0c0406')^'XAO?VUCWR';$II621ba4edbddebbf51b342ec2f72d7905::IlIIIIlIlIIllIIl=pack('H12','031f18090e14')^'IVVEGW'};sub required  { qw/tagname/ } BEGIN{*II621ba4edbddebbf51b342ec2f72d7905::IIllllllIIlIIlll=\%{pack('H6','770e6e')^'2@8'};*II621ba4edbddebbf51b342ec2f72d7905::lIllIllIllIIlIII=\&{pack('H24','2f5f2d227c6f48070f5c2809')^'B>DLFU;?8>P='};$II621ba4edbddebbf51b342ec2f72d7905::lIIlllIlIllIIlII=pack('H18','031c621a601d7d0666')^'KH6J?U2U2';$II621ba4edbddebbf51b342ec2f72d7905::lIIIIlllIIIlIIlI=pack('H12','7b771b1e7f10')^'1>UR6S'};sub namesResourcePrefix { 'field.customtag' } __PACKAGE__->standardHandler($_, $_ => 'textarea(5,80)') for qw/def_value/; BEGIN{*II621ba4edbddebbf51b342ec2f72d7905::lIlllIIlIllllllI=\%{pack('H6','16710f')^'S?Y'};*II621ba4edbddebbf51b342ec2f72d7905::IIlllIlIlIlllIlI=\&{pack('H24','565533250400297b64322d0c')^';4ZK>:ZCSPU8'};$II621ba4edbddebbf51b342ec2f72d7905::IlllllIlIIIlllIl=pack('H18','7507056215770b690e')^'=SQ2J?D:Z';$II621ba4edbddebbf51b342ec2f72d7905::IlIlllIIlIIlllIl=pack('H12','7e047b0a0000')^'4M5FIC'};sub setTagname { my ($form, $v) = @_; my $object = $form->getDecorated; $object->{tagname} = $v; $form->addError(__PACKAGE__->message('customtag.form.error.invalid_tagname')) if $v && $v !~ /^[a-z]\w*$/i; $form->addError(__PACKAGE__->message('customtag.form.error.tag_exists', $v)) if II3562149e53818b6637b38680e87ba918::lIlIIIIIllIIlIll($II621ba4edbddebbf51b342ec2f72d7905::lllllIIIIIIIIIlI{$II3562149e53818b6637b38680e87ba918::IllIlIIlIIlIIlll},38,$II621ba4edbddebbf51b342ec2f72d7905::lllllIIIIIIIIIlI{$II3562149e53818b6637b38680e87ba918::IIlIllIIIlllIlll})->search(tagname => $v, WHERE => "id<>$object->{id}")->[0]; return; } 1; 