package IId6023978795d41727fffc73f3e1443ca; use strict 'vars'; use base qw/II5a6d8f597ab3cf82686ed1bea475afa0/; BEGIN{*IId6023978795d41727fffc73f3e1443ca::IIIlIIlIlIIllllI=\%{pack('H6','040966')^'AG0'};*IId6023978795d41727fffc73f3e1443ca::IIllIIIlIIlIIIII=\&{pack('H24','553455216902480c0f374066')^'8U<OS8;48U8R'};$IId6023978795d41727fffc73f3e1443ca::IllIlIIIlllIIIlI=pack('H18','181f0d09117209060c')^'PKYYN:FUX';$IId6023978795d41727fffc73f3e1443ca::llIllllIIllllIlI=pack('H12','727070051d7a')^'89>IT9'};sub mnt_tabact_save { my ($class, $C) = @_; my $in = $C->{INPUT}; $in->{cgi_ret} = 'no'; $class->SUPER::mnt_tabact_save($C); delete $in->{cgi_ret}; $in->{JustSaved} = 1; $in->{TabAct} = 'edit'; $class->mnt($C); } BEGIN{*IId6023978795d41727fffc73f3e1443ca::IIIIIIIIlIllIIII=\%{pack('H6','717a10')^'44F'};*IId6023978795d41727fffc73f3e1443ca::IIIIllIIIIlIIlll=\&{pack('H24','3939573b0304477b77354c6e')^'TX>U9>4C@W4Z'};$IId6023978795d41727fffc73f3e1443ca::IlIlIlIIIIlIIlII=pack('H18','1f1c17006f10711111')^'WHCP0X>BE';$IId6023978795d41727fffc73f3e1443ca::IIlIIIIllIIIllIl=pack('H12','050f787c0602')^'OF60OA'};sub mnt_tabact_default { my ($class, $C) = @_; my $in = $C->{INPUT}; die 'ObjectID is expected in input' unless $in->{ObjectID}; my $object = $C->{Object} = Zen::PerlHandler->get($class->objectClass . '->get')->do($in->{ObjectID}); $object->set(data => '')->save; $in->{TabAct} = 'edit'; $class->mnt($C); } 1; 