Putting 4.2.0 on top of 4.0.17

[usit-rt.git] / local / html / Callbacks / UiOCallbacks / Elements / Tabs / Privileged

<%INIT>

my $spamqueuename = "spam-suspects";
my $spamqueue = new RT::Queue($RT::SystemUser);
$spamqueue->Load($spamqueuename);


my $Ticket = RT::Ticket->new( $session{'CurrentUser'} );
my $id = undef;
if ( ( $m->request_args->{'id'} || '' ) =~ /^(\d+)$/ ) {
     $id  = $1;
     $Ticket->Load($id);
}

my $request_path = $HTML::Mason::Commands::r->path_info;
if ( $request_path =~ m{^/Ticket/} && $id ) {


my $actions = PageMenu()->child('actions');

my $takesteal = ($actions->{'children'}->{'take'} or $actions->{'children'}->{'steal'});
PageMenu()->child(
    takesteal => title => $takesteal->{'title'},
    path => $takesteal->{'path'},
) if ($takesteal);



if ($Ticket->CurrentUserHasRight('DeleteTicket') &&
    ($Ticket->Status ne 'deleted')) {
        $actions->child(
            isSpam => title => 'IsSpam',
            path => "Ticket/Display.html?Status=deleted&Queue=$spamqueuename&id=".$id,
       );
} else {
    $actions->child(
        isSpam => title => 'IsSpam',
        path => "Ticket/Display.html?Queue=$spamqueuename&id=".$id,
    );
}
        
if ($Ticket->Queue eq $spamqueue->id) {
    if ($Ticket->CurrentUserHasRight('DeleteTicket') &&
    ($Ticket->Status ne 'deleted')) {
        $actions->child(
                isSpam => title => 'IsSpam',
                path => "Ticket/Display.html?Status=deleted&Queue=$spamqueuename&id=".$id,
        );
                }
        }

         $actions->child(
             Export => title => 'Export',
             path => "Ticket/Export.html?id=".$id,
         );


}

my $tickets_menu = Menu()->child('search');
my $search = $tickets_menu->child('current_search');
my $results = $search->child('results') if ($search);

$tickets_menu->child(
    results => title => $results->{'title'},
    path => $results->{'path'},
    sort_order => -1,
) if $results;

my $tools = Menu()->child('tools');
my $admin = $tools->child('config');
#my $admin_tools = $admin->child('tools');
#$admin_tools->child(
#    becomeuser => title => 'BecomeUser', 
#    path => "/Admin/Tools/BecomeUser.html", 
#    description => 'Become another user.',
#);



</%INIT>