<%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.', #);