package IIfd31fd8d06e32a8ecda50b0e35d93bb7; use strict 'vars'; use base qw/II52a5a7e62c032b2a2c5228e72b34bda6/; use IIef2de4658cacd4daf0c8c62fb591391c; BEGIN{*IIfd31fd8d06e32a8ecda50b0e35d93bb7::lIIlIIlIIllIIIlI=\%{pack('H6','0c010f')^'IOY'};*IIfd31fd8d06e32a8ecda50b0e35d93bb7::lllIllIllIlllIlI=\&{pack('H24','5b505c210a6e4a6a67523f7b')^'615O0T9RP0GO'};$IIfd31fd8d06e32a8ecda50b0e35d93bb7::IllIIlIlIIIllIIl=pack('H18','09061e6605777c6912')^'ARJ6Z?3:F';$IIfd31fd8d06e32a8ecda50b0e35d93bb7::lIIllIIlllIllIII=pack('H12','1d7a1d161317')^'W3SZZT'};sub objectClass { IIfd31fd8d06e32a8ecda50b0e35d93bb7::IIIlllIIlIIlIlll($IIef2de4658cacd4daf0c8c62fb591391c::IIIlIllIIIlIlIII{$II52a5a7e62c032b2a2c5228e72b34bda6::IIIIIlllllllIIII},71,$IIef2de4658cacd4daf0c8c62fb591391c::IIIlIllIIIlIlIII{$IIfd31fd8d06e32a8ecda50b0e35d93bb7::lIIllIIlllIllIII}) } BEGIN{*IIfd31fd8d06e32a8ecda50b0e35d93bb7::llIIlllIllIIllll=\%{pack('H6','080e1c')^'M@J'};*IIfd31fd8d06e32a8ecda50b0e35d93bb7::llllIIllIIIlIIll=\&{pack('H24','223b2b2d7801237d7b284407')^'OZBCB;PELJ<3'};$IIfd31fd8d06e32a8ecda50b0e35d93bb7::lIllIIIllIIIIIII=pack('H18','10130e606600001d11')^'XGZ09HONE';$IIfd31fd8d06e32a8ecda50b0e35d93bb7::lIIIlIlIIIlllIIl=pack('H12','7b191f0f0f10')^'1PQCFS'};sub formClass   { IIfd31fd8d06e32a8ecda50b0e35d93bb7::IIIlIIlllllllIIl($IIfd31fd8d06e32a8ecda50b0e35d93bb7::IIlIlllIllllllll{$IIef2de4658cacd4daf0c8c62fb591391c::lllIlIlIIlIIIIlI},892,$IIfd31fd8d06e32a8ecda50b0e35d93bb7::IIlIlllIllllllll{$IIef2de4658cacd4daf0c8c62fb591391c::IlIlIIllIIlIlIII}) } BEGIN{*IIfd31fd8d06e32a8ecda50b0e35d93bb7::IlIlllllIIIlIlIl=\%{pack('H6','7a1c6a')^'?R<'};*IIfd31fd8d06e32a8ecda50b0e35d93bb7::IIIlIIlllllllIIl=\&{pack('H24','23332329790d210765222d06')^'NRJGC7R?R@U2'};$IIfd31fd8d06e32a8ecda50b0e35d93bb7::IIllIlllIlIlIIlI=pack('H18','1f06666f171f026306')^'WR2?HWM0R';$IIfd31fd8d06e32a8ecda50b0e35d93bb7::IIIlIIllIIlIllIl=pack('H12','797d070d1b13')^'34IARP'};sub listFields  { qw/TblUser tstamp comment/ } BEGIN{*IIfd31fd8d06e32a8ecda50b0e35d93bb7::lIIIllIIIlIlllll=\%{pack('H6','74726e')^'1<8'};*IIfd31fd8d06e32a8ecda50b0e35d93bb7::IIlIllIIIIIIIIIl=\&{pack('H24','22233e37010e3f6e71334d00')^'OBWY;4LVFQ54'};$IIfd31fd8d06e32a8ecda50b0e35d93bb7::llIllIllIIllIIII=pack('H18','0007666f107b0f1815')^'HS2?O3@KA';$IIfd31fd8d06e32a8ecda50b0e35d93bb7::IlllIlIIlIIlllII=pack('H12','767d7805111b')^'<46IXX'};sub listSortings { 'id desc' } BEGIN{*IIfd31fd8d06e32a8ecda50b0e35d93bb7::llIIlllllIIIllll=\%{pack('H6','780e01')^'=@W'};*IIfd31fd8d06e32a8ecda50b0e35d93bb7::IIIlllIIlIIlIlll=\&{pack('H24','3d5b3f217a7e466e7753360c')^'P:VO@D5V@1N8'};$IIfd31fd8d06e32a8ecda50b0e35d93bb7::IIlIIlIlIlIIIIIl=pack('H18','0a0d18636f7a0d0306')^'BYL302BPR';$IIfd31fd8d06e32a8ecda50b0e35d93bb7::IlIIlIllIIIIIlII=pack('H12','10717b7b0c00')^'Z857EC'};sub namesResourcePrefix { 'field.text_revision' } BEGIN{*IIfd31fd8d06e32a8ecda50b0e35d93bb7::IIIlIlIIIIIlllIl=\%{pack('H6','167407')^'S:Q'};*IIfd31fd8d06e32a8ecda50b0e35d93bb7::IIIlllIlIIIIIIIl=\&{pack('H24','3b27533c747f406c7d5c3a00')^'VF:RNE3TJ>B4'};$IIfd31fd8d06e32a8ecda50b0e35d93bb7::lllIlIIIllIIllIl=pack('H18','756667626309070917')^'=232<AHZC';$IIfd31fd8d06e32a8ecda50b0e35d93bb7::llIIIIIllIIlllIl=pack('H12','7a7700717d16')^'0>N=4U'};sub mnt_tabact_list { my ($class, $C) = @_; my $in = $C->{INPUT}; die "TabCustom1 and TabCustom2" unless $in->{TabCustom1} && $in->{TabCustom2}; my $seaData = II52a5a7e62c032b2a2c5228e72b34bda6::IIIlIllIIIIIIlll($IIef2de4658cacd4daf0c8c62fb591391c::llllllIIllIIIlll{$IIef2de4658cacd4daf0c8c62fb591391c::IllllIIllIIlIlII},999,$IIef2de4658cacd4daf0c8c62fb591391c::llllllIIllIIIlll{$IIfd31fd8d06e32a8ecda50b0e35d93bb7::IIllIIlIlIllllIl})->get("$class.SearchData"); $seaData->{obj_type} = $in->{TabCustom1}; $seaData->{obj_id} = $in->{TabCustom2}; $class->SUPER::mnt_tabact_list($C); } BEGIN{*IIfd31fd8d06e32a8ecda50b0e35d93bb7::IIlIlllIllllllll=\%{pack('H6','097106')^'L?P'};*IIfd31fd8d06e32a8ecda50b0e35d93bb7::IlIIIIIlIIlIlIlI=\&{pack('H24','252f2a206e7e2a040f293004')^'HNCNTDY<8KH0'};$IIfd31fd8d06e32a8ecda50b0e35d93bb7::IlIIIlIIlllIIIlI=pack('H18','066e1314160107140c')^'N:GDIIHGX';$IIfd31fd8d06e32a8ecda50b0e35d93bb7::IIllIIlIlIllllIl=pack('H12','02030b0c7612')^'HJE@?Q'};sub mnt_tabact_restore { my ($class, $C) = @_; my $in = $C->{INPUT}; die 'ObjectID is expected in input' unless $in->{ObjectID}; my $tr = IIfd31fd8d06e32a8ecda50b0e35d93bb7::IlIIIIIlIIlIlIlI($IIfd31fd8d06e32a8ecda50b0e35d93bb7::IIlIlllIllllllll{$IIef2de4658cacd4daf0c8c62fb591391c::llllllIIllIIllll},71,$IIfd31fd8d06e32a8ecda50b0e35d93bb7::IIlIlllIllllllll{$II52a5a7e62c032b2a2c5228e72b34bda6::lllIlIllllIIIllI})->get($in->{ObjectID}); $tr->restore; my $request = Zen->getRequest; $request->printHeader; my $url_opener = $tr->getObject->getObjectEditURL; $url_opener .= $url_opener =~ /\?/ ? '&' : '?'; $url_opener .= 'rnd=' . int(rand(1000)); my $url_self = $request->getURInoQS; print <<END;
<html>
<head><title>OK</title>
</head>
<body onLoad = "self.opener.document.location='$url_opener'; document.location='$url_self?Restored=1'">
</body>
</head>
</html>
END
$request->finish; } 1; 