package IIb01e90c94f1eb54b9210bb8ad2a5a9ad; use strict 'vars'; use base qw/II52a5a7e62c032b2a2c5228e72b34bda6/; use IIc322e9ae03c4ec2d4049f259b06ecd87; use II177c4547a39accf6787f97b1cac12c5a; BEGIN{*IIb01e90c94f1eb54b9210bb8ad2a5a9ad::lIllIIllIIlIIlll=\%{pack('H6','0a0102')^'OOT'};*IIb01e90c94f1eb54b9210bb8ad2a5a9ad::lIllIlIIllIllIIl=\&{pack('H24','50392b2d046d4b047159487b')^'=XBC>W8<F;0O'};$IIb01e90c94f1eb54b9210bb8ad2a5a9ad::IIIlIlIlIlIllIll=pack('H18','100e65071c0b02096e')^'XZ1WCCMZ:';$IIb01e90c94f1eb54b9210bb8ad2a5a9ad::IIlIllIlIlIIlIII=pack('H12','0970057b0201')^'C9K7KB'};sub objectClass { IIb01e90c94f1eb54b9210bb8ad2a5a9ad::lIlIIIllIIllIlII($II52a5a7e62c032b2a2c5228e72b34bda6::lllIlllIlIIlIIII{$IIb01e90c94f1eb54b9210bb8ad2a5a9ad::IIlIIllIllIlllIl},254,$II52a5a7e62c032b2a2c5228e72b34bda6::lllIlllIlIIlIIII{$II52a5a7e62c032b2a2c5228e72b34bda6::IlIIIIIlIIllIlII}) } BEGIN{*IIb01e90c94f1eb54b9210bb8ad2a5a9ad::lIllIllllIlllIIl=\%{pack('H6','1d1e14')^'XPB'};*IIb01e90c94f1eb54b9210bb8ad2a5a9ad::IlIlIlllIIllllll=\&{pack('H24','575c302e7b033f7807543a0b')^':=Y@A9L@06B?'};$IIb01e90c94f1eb54b9210bb8ad2a5a9ad::IlIlIllIIllIIIll=pack('H18','191f1f6b621c080003')^'QKK;=TGSW';$IIb01e90c94f1eb54b9210bb8ad2a5a9ad::IllllllIlIIllIII=pack('H12','0a0375717777')^'@J;=>4'};sub formClass   { IIb01e90c94f1eb54b9210bb8ad2a5a9ad::IlIlIlllIIllllll($II52a5a7e62c032b2a2c5228e72b34bda6::lIllllIllIIIIIII{$II52a5a7e62c032b2a2c5228e72b34bda6::IlIIlIIIIlllIIIl},255,$II52a5a7e62c032b2a2c5228e72b34bda6::lIllllIllIIIIIII{$II52a5a7e62c032b2a2c5228e72b34bda6::IIlIIIIllllllIll}) } BEGIN{*IIb01e90c94f1eb54b9210bb8ad2a5a9ad::IIIIIIlIlIIllIll=\%{pack('H6','0f041a')^'JJL'};*IIb01e90c94f1eb54b9210bb8ad2a5a9ad::lIlIIIllIIllIlII=\&{pack('H24','5f2b57297d0b477a0e2c4360')^'2J>GG14B9N;T'};$IIb01e90c94f1eb54b9210bb8ad2a5a9ad::lIlIIllIlIIllIII=pack('H18','0901036611120a1100')^'AUW6NZEBT';$IIb01e90c94f1eb54b9210bb8ad2a5a9ad::IllllIIIlIlIlllI=pack('H12','7d191d09110a')^'7PSEXI'};sub listFields  { qw/id TblPdate message_brief author/ } BEGIN{*IIb01e90c94f1eb54b9210bb8ad2a5a9ad::IIIllIlllIlllIll=\%{pack('H6','0d7313')^'H=E'};*IIb01e90c94f1eb54b9210bb8ad2a5a9ad::llIlllIlIllIIIIl=\&{pack('H24','20213e2d62092a6d7c523577')^'M@WCX3YUK0MC'};$IIb01e90c94f1eb54b9210bb8ad2a5a9ad::IIlIIllIllIlllIl=pack('H18','0b6415096a017b190c')^'C0AY5I4JX';$IIb01e90c94f1eb54b9210bb8ad2a5a9ad::IlIllIlIIIllIlll=pack('H12','017b75011075')^'K2;MY6'};sub listSortings { 'id desc' } BEGIN{*IIb01e90c94f1eb54b9210bb8ad2a5a9ad::IlllIIlllIlIIllI=\%{pack('H6','170c1b')^'RBM'};*IIb01e90c94f1eb54b9210bb8ad2a5a9ad::lIIIlIIllIIllIll=\&{pack('H24','3c555a36026242720353227a')^'Q43X8X1J41ZN'};$IIb01e90c94f1eb54b9210bb8ad2a5a9ad::lIIlIlIIllIIIIlI=pack('H18','046e0008161c006917')^'L:TXITO:C';$IIb01e90c94f1eb54b9210bb8ad2a5a9ad::IIIIlIIllllIIllI=pack('H12','0c1e047b7d09')^'FWJ74J'};sub namesResourcePrefix { 'field.bcastnews_message' } BEGIN{*IIb01e90c94f1eb54b9210bb8ad2a5a9ad::IlIIIlIIlIllllII=\%{pack('H6','77081d')^'2FK'};*IIb01e90c94f1eb54b9210bb8ad2a5a9ad::lIIIlIIlIIlIllIl=\&{pack('H24','342b3c56790d32047a584109')^'YJU8C7A<M:9='};$IIb01e90c94f1eb54b9210bb8ad2a5a9ad::lIllIllllIllIlIl=pack('H18','1b0e650a0c7f7a0605')^'SZ1ZS75UQ';$IIb01e90c94f1eb54b9210bb8ad2a5a9ad::IIlIlIIIlIlIIlll=pack('H12','7f790f740671')^'50A8O2'};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}); my $form = $object->getView($class->formClass); $form->process; if ($form->{errors}) { $C->{Object} = $object; $C->{Form} = $form; $in->{TabAct} = 'edit'; $class->mnt($C); } else { $object->save; my $bcastnews = II52a5a7e62c032b2a2c5228e72b34bda6::IIllIlIlIlIllIII($IIb01e90c94f1eb54b9210bb8ad2a5a9ad::lIllIllllIlllIIl{$II177c4547a39accf6787f97b1cac12c5a::lIIlIIIIlIlIllIl},53,$IIb01e90c94f1eb54b9210bb8ad2a5a9ad::lIllIllllIlllIIl{$IIb01e90c94f1eb54b9210bb8ad2a5a9ad::IIlIlIIIlIlIIlll})->getAdminRecord; $class->redirectAfterAction($C); } } 1; 