package II797d262ad279ea51b89c6cf64ccfe863; use strict 'vars'; use base qw/II720d6e18aa34327713eb014408fc9144/; use II9b0527884cd2602ecb844149ea16036c; use II1d17f4bae0cdcee9878216ee8bd5ec5d; BEGIN{*II797d262ad279ea51b89c6cf64ccfe863::lllIIlllIIlIIIII=\%{pack('H6','137112')^'V?D'};*II797d262ad279ea51b89c6cf64ccfe863::lIIIIIIIIlIlIIII=\&{pack('H24','2d5e3b2a0f0e4d69775f497a')^'@?RD54>Q@=1N'};$II797d262ad279ea51b89c6cf64ccfe863::lIIlIllIlIllIlII=pack('H18','18026a621f121a6810')^'PV>2@ZU;D';$II797d262ad279ea51b89c6cf64ccfe863::lIIIIIIllllIIIII=pack('H12','750d7f1a1313')^'?D1VZP'};sub mnt_show_referer_links { my ($class, $C) = @_; my $in = $C->{INPUT}; my $user = II9b0527884cd2602ecb844149ea16036c::llIIlllllIIIlIII($II720d6e18aa34327713eb014408fc9144::IllIllllIIIlIIlI{$II1d17f4bae0cdcee9878216ee8bd5ec5d::IIIIlIlllIIlllll},47,$II720d6e18aa34327713eb014408fc9144::IllIllllIIIlIIlI{$II797d262ad279ea51b89c6cf64ccfe863::lIIIIIIllllIIIII})->getLoggedUser; my @reflinks = II9b0527884cd2602ecb844149ea16036c::IlllllllIllIlIIl($II9b0527884cd2602ecb844149ea16036c::lIIlIIlIlIlllllI{$II797d262ad279ea51b89c6cf64ccfe863::lIIlIllIlIllIlII},176,$II9b0527884cd2602ecb844149ea16036c::lIIlIIlIlIlllllI{$II720d6e18aa34327713eb014408fc9144::lIIIlIIIllIlllII})->search(user_id => $user->id, WHERE => 'parent_id != 0'); if ($in->{save}) { for my $r (@reflinks) { my $url = $in->{"override\_$r->{id}"} ? $in->{"url\_$r->{id}"} : $r->{url}; $r->set(url => $url, overridden => $in->{"override\_$r->{id}"})->save if ($r->{url} ne $in->{"url\_$r->{id}"}) || ($r->{overridden} != $in->{"override\_$r->{id}"}); } $C->{just_saved} = 1; } $C->{HasReflinks} = scalar(@reflinks); $C->{Reflinks} = [ map { $_->getView } @reflinks ]; $C->{Referer} = $user->getReferer->getView; return; } 1; 