view release on metacpan or  search on metacpan

html/Callbacks/RT-Authen-Token/Elements/Tabs/Privileged  view on Meta::CPAN

<%INIT>
return unless $session{'CurrentUser'}->HasRight( Right => 'ManageAuthTokens', Object => RT->System );

if (my $prefs = Menu->child('preferences')) {
    if (my $settings = $prefs->child('settings')) {
        $settings->child('about_me')->add_after(auth_tokens => title => loc('Auth Tokens'), path => '/Prefs/AuthTokens.html');
    }
}

my $admin = Menu->child('admin')
    or return;

my $request_path = $HTML::Mason::Commands::r->path_info;
$request_path =~ s!/{2,}!/!g;
if ( $request_path =~ m{^(/Admin/Users|/User/(Summary|History)\.html)} and $admin->child("users") ) {