html/Callbacks/FollowUp/Elements/Tabs/Privileged

   1 <%INIT>
   2 my $request_path = $HTML::Mason::Commands::r->path_info;
   3
   4 my $query_string = sub {
   5     my %args = @_;
   6     my $u    = URI->new();
   7     $u->query_form(%args);
   8     return $u->query;
   9 };
  10
  11
  12 # Static menu entries
  13 if ( $request_path =~ qr{^/Ticket/.*\.html} && $m->request_args->{'id'} &&  $m->request_args->{'id'} =~ /^\d+$/ ) {
  14     my $Ticket = RT::Ticket->new( $session{'CurrentUser'} );
  15     $Ticket->Load( $m->request_args->{'id'} );
  16     my $CcRight = $session{'CurrentUser'}->HasRight( Right => 'Watch', Object => $Ticket )
  17                   || $session{'CurrentUser'}->HasRight( Right => 'ModifyTicket', Object => $Ticket );
  18     my $AdminCcRight = $session{'CurrentUser'}->HasRight( Right => 'WatchAsAdminCc', Object => $Ticket )
  19                        || $session{'CurrentUser'}->HasRight( Right => 'ModifyTicket', Object => $Ticket );
  20     my $tabs = PageMenu;
  21     my $actions = $tabs->child( 'actions' );
  22     if ( $CcRight  && ! $Ticket->IsWatcher( Type => 'Cc', PrincipalId => $session{'CurrentUser'}->id ) ) {
  23         $actions->child(
  24             'followupcc' => title => loc('Follow Up as Cc'), path => '/Ticket/Display.html?id='.$Ticket->Id.'&Ticket-AddWatcher-Principal-'.$session{'CurrentUser'}->Id.'=Cc'
  25         );
  26     }
  27     if ( $AdminCcRight && ! $Ticket->IsWatcher( Type => 'AdminCc', PrincipalId => $session{'CurrentUser'}->id ) ) {
  28         $actions->child(
  29             'followupadmincc' => title => loc('Follow Up as AdminCc'), path => '/Ticket/Display.html?id='.$Ticket->Id.'&Ticket-AddWatcher-Principal-'.$session{'CurrentUser'}->Id.'=AdminCc'
  30         );
  31     }
  32 }
  33
  34
  35 </%INIT>