package II919aad553bb71b91382d0fd9a25668d3; use strict 'vars'; use base qw/II52a5a7e62c032b2a2c5228e72b34bda6/; BEGIN{*II919aad553bb71b91382d0fd9a25668d3::llIllIlIlIIllIlI=\%{pack('H6','7e0b6e')^';E8'};*II919aad553bb71b91382d0fd9a25668d3::IIIIllllIIIlIIII=\&{pack('H24','55313a557e77240e7829370f')^'8PS;DMW6OKO;'};$II919aad553bb71b91382d0fd9a25668d3::IIIIIlllllIlllll=pack('H18','05151c176b70161568')^'MAHG48YF<';$II919aad553bb71b91382d0fd9a25668d3::lIIlIlIIIIIIllIl=pack('H12','730619157e10')^'9OWY7S'};sub objectClass { II52a5a7e62c032b2a2c5228e72b34bda6::IIllIlIlIlIllIII($II919aad553bb71b91382d0fd9a25668d3::llIllIlIlIIllIlI{$II52a5a7e62c032b2a2c5228e72b34bda6::IllllIIIlIllIlIl},28,$II919aad553bb71b91382d0fd9a25668d3::llIllIlIlIIllIlI{$II52a5a7e62c032b2a2c5228e72b34bda6::IlIIIIIlIIllIlII}) } BEGIN{*II919aad553bb71b91382d0fd9a25668d3::IIlIIlllIIIlIlII=\%{pack('H6','097203')^'L<U'};*II919aad553bb71b91382d0fd9a25668d3::lllIIllIIIllIlIl=\&{pack('H24','3f24222a7507370a7d283e79')^'REKDO=D2JJFM'};$II919aad553bb71b91382d0fd9a25668d3::lIIlIlIlIlIIlIll=pack('H18','086f6e6a1b06160464')^'@;::DNYW0';$II919aad553bb71b91382d0fd9a25668d3::llIllIIIIIIIllII=pack('H12','0372741b7c0a')^'I;:W5I'};sub formClass   { II52a5a7e62c032b2a2c5228e72b34bda6::IIIIIllIlIIlIlII($II919aad553bb71b91382d0fd9a25668d3::IlllIlIlIIlllIll{$II52a5a7e62c032b2a2c5228e72b34bda6::IlIIlIIIIlllIIIl},236,$II919aad553bb71b91382d0fd9a25668d3::IlllIlIlIIlllIll{$II52a5a7e62c032b2a2c5228e72b34bda6::lllIlIllllIIIllI}) } BEGIN{*II919aad553bb71b91382d0fd9a25668d3::lIIlllIllIIIllll=\%{pack('H6','1f1e01')^'ZPW'};*II919aad553bb71b91382d0fd9a25668d3::IIIIIlIIllIIIIlI=\&{pack('H24','585c583c7e78267279262171')^'5=1RDBUJNDYE'};$II919aad553bb71b91382d0fd9a25668d3::IllIIlIlIlIlIIlI=pack('H18','11151b161c0b74696f')^'YAOFCC;:;';$II919aad553bb71b91382d0fd9a25668d3::IlIlIIllllIllIll=pack('H12','137c771c7c04')^'Y59P5G'};sub listFields  { qw/ID title notes/ } BEGIN{*II919aad553bb71b91382d0fd9a25668d3::lIlIIllIllIIlIll=\%{pack('H6','7d0364')^'8M2'};*II919aad553bb71b91382d0fd9a25668d3::IllIlIlIIlIIIIlI=\&{pack('H24','252738520b77347a7121450b')^'HFQ<1MGBFC=?'};$II919aad553bb71b91382d0fd9a25668d3::IIllIIlIIIIlllll=pack('H18','0604691d6d101e6511')^'NP=M2XQ6E';$II919aad553bb71b91382d0fd9a25668d3::IlIIlllIlIIlIIll=pack('H12','090c060c087d')^'CEH@A>'};sub namesResourcePrefix { 'field.specusers' } BEGIN{*II919aad553bb71b91382d0fd9a25668d3::llIIIIIllIlIllII=\%{pack('H6','781c61')^'=R7'};*II919aad553bb71b91382d0fd9a25668d3::lIIIllllIlIlllIl=\&{pack('H24','215850227c6c3c6b0937346d')^'L99LFVOS>ULY'};$II919aad553bb71b91382d0fd9a25668d3::IlllllIIlllIlIIl=pack('H18','190216130a1a0c0906')^'QVBCURCZR';$II919aad553bb71b91382d0fd9a25668d3::lIlllIllIIIlIIIl=pack('H12','0c730e7a130a')^'F:@6ZI'};sub mnt_tabact_edit { my ($class, $C) = @_; my $in = $C->{INPUT}; $C->{Object} ||= Zen::PerlHandler->get($class->objectClass . '->get')->do($in->{ObjectID}); $in->{ObjectID} ||= $C->{Object}->id; $C->{Form} ||= $C->{Object}->getView($class->formClass); $C->{View} ||= $C->{Object}->getView; $C->{SelForm} ||= $C->{Object}->getView(II919aad553bb71b91382d0fd9a25668d3::IIIIllllIIIlIIII($II52a5a7e62c032b2a2c5228e72b34bda6::lIllllIllIIIIIII{$II52a5a7e62c032b2a2c5228e72b34bda6::IIIIIlllllllIIII},234,$II52a5a7e62c032b2a2c5228e72b34bda6::lIllllIllIIIIIII{$II52a5a7e62c032b2a2c5228e72b34bda6::lllIlIllllIIIllI})); $C->{SelView} ||= $C->{Object}->getView; $C->{Object}{type} ||= $in->{TabCustom1} or die 'TabCustom1?'; return; } BEGIN{*II919aad553bb71b91382d0fd9a25668d3::IlllIlIlIIlllIll=\%{pack('H6','09016b')^'LO='};*II919aad553bb71b91382d0fd9a25668d3::IlIIIllllIIIllll=\&{pack('H24','5124273763732276033b3a7e')^'<ENYYIQN4YBJ'};$II919aad553bb71b91382d0fd9a25668d3::IIlIllIlIIIlIIII=pack('H18','11180c0a1807091a0c')^'YLXZGOFIX';$II919aad553bb71b91382d0fd9a25668d3::IllllIllIIIlIIll=pack('H12','1b0d1c0d0e15')^'QDRAGV'};sub mnt_tabact_save { my ($class, $C) = @_; my $in = $C->{INPUT}; die 'ObjectID is expected in input' unless $in->{ObjectID}; my $object = Zen::PerlHandler->get($class->objectClass . '->get')->do($in->{ObjectID}); $object->{type} ||= $in->{TabCustom1} or die 'TabCustom1?'; my $form = $object->getView($class->formClass); my $formSelection = $object->getView(II919aad553bb71b91382d0fd9a25668d3::IIIIllllIIIlIIII($II919aad553bb71b91382d0fd9a25668d3::lIIlllIllIIIllll{$II919aad553bb71b91382d0fd9a25668d3::IIllIIlIIIIlllll},234,$II919aad553bb71b91382d0fd9a25668d3::lIIlllIllIIIllll{$II919aad553bb71b91382d0fd9a25668d3::lIlllIllIIIlIIIl})); $form->process; $formSelection->process; if ($form->{errors} || $formSelection->{errors}) { $C->{Object} = $object; $C->{Form} = $form; $C->{SelForm} = $formSelection; $in->{TabAct} = 'edit'; $class->mnt($C); } else { $object->save; $class->redirectAfterAction($C); } } 1; 