package IIf5cf6ff22a9858ed1d10c14d2291f460; use strict 'vars'; use base qw/II52a5a7e62c032b2a2c5228e72b34bda6/; BEGIN{*IIf5cf6ff22a9858ed1d10c14d2291f460::IIlIlllIIIIllIIl=\%{pack('H6','1f0303')^'ZMU'};*IIf5cf6ff22a9858ed1d10c14d2291f460::lllIIlllIlIlIlll=\&{pack('H24','2557513b637b4c6b053a2f09')^'H68UYA?S2XW='};$IIf5cf6ff22a9858ed1d10c14d2291f460::lllIIIlIlIIIIlII=pack('H18','0368006e15077e1710')^'K<T>JO1DD';$IIf5cf6ff22a9858ed1d10c14d2291f460::IlIIIlIIlIllllIl=pack('H12','037d1c1e1a0a')^'I4RRSI'};sub objectClass { IIf5cf6ff22a9858ed1d10c14d2291f460::lllIlIllIIlIIlII($II52a5a7e62c032b2a2c5228e72b34bda6::lIllllIllIIIIIII{$II52a5a7e62c032b2a2c5228e72b34bda6::IllllIIIlIllIlIl},830,$II52a5a7e62c032b2a2c5228e72b34bda6::lIllllIllIIIIIII{$II52a5a7e62c032b2a2c5228e72b34bda6::lllIlIllllIIIllI}) } BEGIN{*IIf5cf6ff22a9858ed1d10c14d2291f460::IlllIIllllIIlIII=\%{pack('H6','0d7003')^'H>U'};*IIf5cf6ff22a9858ed1d10c14d2291f460::IllIIIIIlIlIIlIl=\&{pack('H24','53543a520c06420c08283373')^'>5S<6<14?JKG'};$IIf5cf6ff22a9858ed1d10c14d2291f460::IIllIIIlIIIIIlII=pack('H18','056d06051b04746b0d')^'M9RUDL;8Y';$IIf5cf6ff22a9858ed1d10c14d2291f460::IlllIIIIIllIIlII=pack('H12','017203047177')^'K;MH84'};sub formClass   { II52a5a7e62c032b2a2c5228e72b34bda6::IIllIlIlIlIllIII($II52a5a7e62c032b2a2c5228e72b34bda6::lllIlllIlIIlIIII{$IIf5cf6ff22a9858ed1d10c14d2291f460::lIIlIlIIIllllIIl},831,$II52a5a7e62c032b2a2c5228e72b34bda6::lllIlllIlIIlIIII{$IIf5cf6ff22a9858ed1d10c14d2291f460::IlIIIlIIlIllllIl}) } BEGIN{*IIf5cf6ff22a9858ed1d10c14d2291f460::llllIIIIllIllllI=\%{pack('H6','727711')^'79G'};*IIf5cf6ff22a9858ed1d10c14d2291f460::IlllIIlIIIllIlIl=\&{pack('H24','29252f347c0a387077322f72')^'DDFZF0KH@PWF'};$IIf5cf6ff22a9858ed1d10c14d2291f460::llIIIIIlIlIIlIlI=pack('H18','02051002170d740661')^'JQDRHE;U5';$IIf5cf6ff22a9858ed1d10c14d2291f460::IlllllIIlIlIlllI=pack('H12','0c1a0c1a0815')^'FSBVAV'};sub listFields  { qw/TblDate affprog_title TblUser comment/ } BEGIN{*IIf5cf6ff22a9858ed1d10c14d2291f460::lllIllIIllIIIlll=\%{pack('H6','771e1a')^'2PL'};*IIf5cf6ff22a9858ed1d10c14d2291f460::IIIIIIIlIllIIIIl=\&{pack('H24','5b2a265b0b633a0f71234077')^'6KO51YI7FA8C'};$IIf5cf6ff22a9858ed1d10c14d2291f460::IIIIIlIllllIIIlI=pack('H18','0664131e62021b6c15')^'N0GN=JT?A';$IIf5cf6ff22a9858ed1d10c14d2291f460::IlIIIIlIIlIllIlI=pack('H12','191a7c087f76')^'SS2D65'};sub listSortings { 'id desc' } BEGIN{*IIf5cf6ff22a9858ed1d10c14d2291f460::lIIlllllIIIIlIII=\%{pack('H6','791b1a')^'<UL'};*IIf5cf6ff22a9858ed1d10c14d2291f460::IlllIlIlIllIIIII=\&{pack('H24','502b3f510d064c0c6e2d4300')^'=JV?7<?4YO;4'};$IIf5cf6ff22a9858ed1d10c14d2291f460::lIIlIlIIIllllIIl=pack('H18','1a1b02071478096b19')^'ROVWK0F8M';$IIf5cf6ff22a9858ed1d10c14d2291f460::IllIlIIIllIIlIIl=pack('H12','7978091c1978')^'31GPP;'};sub namesResourcePrefix { 'field.user_affprog' } BEGIN{*IIf5cf6ff22a9858ed1d10c14d2291f460::llIIIlllllllllll=\%{pack('H6','017001')^'D>W'};*IIf5cf6ff22a9858ed1d10c14d2291f460::lIlIIlIIlIIlIIII=\&{pack('H24','3a5a56346d7d337c6621360f')^'W;?ZWG@DQCN;'};$IIf5cf6ff22a9858ed1d10c14d2291f460::IllIllIIIlIIlllI=pack('H18','7010690019777d1712')^'8D=PF?2DF';$IIf5cf6ff22a9858ed1d10c14d2291f460::llIlllllIIIIIIll=pack('H12','0579067e7072')^'O0H291'};sub mnt_tabact_list { my ($class, $C) = @_; my $in = $C->{INPUT}; my $seaData = II52a5a7e62c032b2a2c5228e72b34bda6::IIllIlIlIlIllIII($IIf5cf6ff22a9858ed1d10c14d2291f460::llIIIlllllllllll{$II52a5a7e62c032b2a2c5228e72b34bda6::IllllIIIlIllIlIl},999,$IIf5cf6ff22a9858ed1d10c14d2291f460::llIIIlllllllllll{$II52a5a7e62c032b2a2c5228e72b34bda6::IIlIIIIllllllIll})->get("$class.SearchData"); $seaData->{notapproved} = 1; return $class->SUPER::mnt_tabact_list($C); } BEGIN{*IIf5cf6ff22a9858ed1d10c14d2291f460::lllIIIlllIlIlIll=\%{pack('H6','021d03')^'GSU'};*IIf5cf6ff22a9858ed1d10c14d2291f460::lllIlIllIIlIIlII=\&{pack('H24','5c512c367303497c61582a06')^'10EXI9:DV:R2'};$IIf5cf6ff22a9858ed1d10c14d2291f460::IlIlIIlllllIIIII=pack('H18','016f60631e05180b06')^'I;43AMWXR';$IIf5cf6ff22a9858ed1d10c14d2291f460::llIIllIIlIIllllI=pack('H12','077d03047a17')^'M4MH3T'};sub mnt_tabact_approve { my ($class, $C) = @_; my $in = $C->{INPUT}; my $hnd = Zen::PerlHandler->get($class->objectClass . '->get'); for my $id (grep {length} split(',', $in->{ObjectID})) { my $o = $hnd->do($id)->set(notapproved => 0)->save; } $class->redirectAfterAction($C); return; } 1; 