package II52a5a7e62c032b2a2c5228e72b34bda6; use strict 'vars'; use base qw/II5a6d8f597ab3cf82686ed1bea475afa0/; BEGIN{*II52a5a7e62c032b2a2c5228e72b34bda6::lllIlllIlIIlIIII=\%{pack('H6','777465')^'2:3'};*II52a5a7e62c032b2a2c5228e72b34bda6::IIllIlIlIlIllIII=\&{pack('H24','22215d596f0b256900262e73')^'O@47U1VQ7DVG'};$II52a5a7e62c032b2a2c5228e72b34bda6::IlIIlIIIIlllIIIl=pack('H18','72186f650f0b0d636e')^':L;5PCB0:';$II52a5a7e62c032b2a2c5228e72b34bda6::IIlIIIIllllllIll=pack('H12','010219731d73')^'KKW?T0'};sub mnt { my ($class, $C) = @_; my $privOptions = II5a6d8f597ab3cf82686ed1bea475afa0::IIIIllIllIIllIIl($II52a5a7e62c032b2a2c5228e72b34bda6::lIllllIllIIIIIII{$II5a6d8f597ab3cf82686ed1bea475afa0::IlIIIIIlIllIllll},47,$II52a5a7e62c032b2a2c5228e72b34bda6::lIllllIllIIIIIII{$II5a6d8f597ab3cf82686ed1bea475afa0::IIIllIlIIIIlllIl})->getLoggedUser->getPrivs->{$C->{LoggedUserPriv}}; $C->{TabActs}{ListerNoAdd} = 1 unless $privOptions->{add}; $C->{TabActs}{LimitResults} = $privOptions->{limit} if $privOptions->{limit}; $C->{TabActs}{RestrictToSearch} = $privOptions->{seaonly} if $privOptions->{seaonly}; $class->SUPER::mnt($C); return; } BEGIN{*II52a5a7e62c032b2a2c5228e72b34bda6::lllIllIIIlIIllll=\%{pack('H6','7e0a65')^';D3'};*II52a5a7e62c032b2a2c5228e72b34bda6::IIIIIllIlIIlIlII=\&{pack('H24','2d26273a75084d0877574563')^'@GNTO2>0@5=W'};$II52a5a7e62c032b2a2c5228e72b34bda6::IIIIIlllllllIIII=pack('H18','0f0c18650e1c7f6c06')^'GXL5QT0?R';$II52a5a7e62c032b2a2c5228e72b34bda6::IlIIIIIlIIllIlII=pack('H12','721d1b73717d')^'8TU?8>'};sub mnt_tabact_list { my ($class, $C) = @_; my $privOptions = II52a5a7e62c032b2a2c5228e72b34bda6::IIllIlIlIlIllIII($II5a6d8f597ab3cf82686ed1bea475afa0::lIIIllIIIlIIlIll{$II5a6d8f597ab3cf82686ed1bea475afa0::lIIIlIlllIIlIIII},47,$II5a6d8f597ab3cf82686ed1bea475afa0::lIIIllIIIlIIlIll{$II52a5a7e62c032b2a2c5228e72b34bda6::IlIIIIIlIIllIlII})->getLoggedUser->getPrivs->{$C->{LoggedUserPriv}}; unless ($privOptions->{delete}) { $C->{TabActs}{ListerPerRecord} = [ grep { $_->{tabact} ne 'delete' } @{ $C->{TabActs}{ListerPerRecord} } ]; $C->{TabActs}{Lister} = [ grep { $_->{tabact} ne 'delete' } @{ $C->{TabActs}{Lister} } ]; } unless ($privOptions->{edit}) { my $save = $class->cfg->{main}{"TabActsSave"}; $C->{TabActs}{ListerPerRecord} = [ grep { index(",$save,", ",$_->{tabact},") < 0 && $_->{tabact} ne 'movedown' && $_->{tabact} ne 'moveup' } @{ $C->{TabActs}{ListerPerRecord} } ]; $C->{TabActs}{Lister} = []; } my $seaData = II5a6d8f597ab3cf82686ed1bea475afa0::llIlIlIIllIlIIll($II52a5a7e62c032b2a2c5228e72b34bda6::lllIlllIlIIlIIII{$II5a6d8f597ab3cf82686ed1bea475afa0::IIllIllIIlllIIll},999,$II52a5a7e62c032b2a2c5228e72b34bda6::lllIlllIlIIlIIII{$II5a6d8f597ab3cf82686ed1bea475afa0::llIlllIlIIlIllIl})->get("$class.SearchData"); my $user = II52a5a7e62c032b2a2c5228e72b34bda6::IIIlIllIIIIIIlll($II5a6d8f597ab3cf82686ed1bea475afa0::IIIlIIlIIIllIlIl{$II52a5a7e62c032b2a2c5228e72b34bda6::IlIIlIIIIlllIIIl},47,$II5a6d8f597ab3cf82686ed1bea475afa0::IIIlIIlIIIllIlIl{$II5a6d8f597ab3cf82686ed1bea475afa0::IllllIIIIIlllIlI})->getLoggedUser; my $superuser = $user->isAdmin || $user->isSupervisor; $seaData->{owner_id} = $user->{id} if $user->isHosted && !$superuser; $class->SUPER::mnt_tabact_list($C); return; } BEGIN{*II52a5a7e62c032b2a2c5228e72b34bda6::lIllllIllIIIIIII=\%{pack('H6','0c050f')^'IKY'};*II52a5a7e62c032b2a2c5228e72b34bda6::IIIlIllIIIIIIlll=\&{pack('H24','345652550f633c0400303101')^'Y7;;5YO<7RI5'};$II52a5a7e62c032b2a2c5228e72b34bda6::IllllIIIlIllIlIl=pack('H18','02000614141c07051a')^'JTRDKTHVN';$II52a5a7e62c032b2a2c5228e72b34bda6::lllIlIllllIIIllI=pack('H12','04060d007413')^'NOCL=P'};sub mnt_tabact_edit { my ($class, $C) = @_; my $privOptions = II5a6d8f597ab3cf82686ed1bea475afa0::lIllllIIllllIIll($II52a5a7e62c032b2a2c5228e72b34bda6::lIllllIllIIIIIII{$II5a6d8f597ab3cf82686ed1bea475afa0::lllllllIIIllIIIl},47,$II52a5a7e62c032b2a2c5228e72b34bda6::lIllllIllIIIIIII{$II5a6d8f597ab3cf82686ed1bea475afa0::llIlllIlIIlIllIl})->getLoggedUser->getPrivs->{$C->{LoggedUserPriv}}; $C->{TabActs}{Editor} = [ grep { $_->{tabact} ne 'delete' } @{ $C->{TabActs}{Editor} } ] unless $privOptions->{delete}; unless ($privOptions->{edit}) { my $save = $class->cfg->{main}{"TabActsSave"}; $C->{TabActs}{Editor} = [ grep { index(",$save,", ",$_->{tabact},") < 0 && $_->{tabact} ne 'save' } @{ $C->{TabActs}{Editor} } ]; } $class->SUPER::mnt_tabact_edit($C); return; } 1; 