rt/share/html/Elements/Tabs

   1 %# BEGIN BPS TAGGED BLOCK {{{
   2 %#
   3 %# COPYRIGHT:
   4 %#
   5 %# This software is Copyright (c) 1996-2012 Best Practical Solutions, LLC
   6 %#                                          <sales@bestpractical.com>
   7 %#
   8 %# (Except where explicitly superseded by other copyright notices)
   9 %#
  10 %#
  11 %# LICENSE:
  12 %#
  13 %# This work is made available to you under the terms of Version 2 of
  14 %# the GNU General Public License. A copy of that license should have
  15 %# been provided with this software, but in any event can be snarfed
  16 %# from www.gnu.org.
  17 %#
  18 %# This work is distributed in the hope that it will be useful, but
  19 %# WITHOUT ANY WARRANTY; without even the implied warranty of
  20 %# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  21 %# General Public License for more details.
  22 %#
  23 %# You should have received a copy of the GNU General Public License
  24 %# along with this program; if not, write to the Free Software
  25 %# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
  26 %# 02110-1301 or visit their web page on the internet at
  27 %# http://www.gnu.org/licenses/old-licenses/gpl-2.0.html.
  28 %#
  29 %#
  30 %# CONTRIBUTION SUBMISSION POLICY:
  31 %#
  32 %# (The following paragraph is not intended to limit the rights granted
  33 %# to you to modify and distribute this software under the terms of
  34 %# the GNU General Public License and is only of importance to you if
  35 %# you choose to contribute your changes and enhancements to the
  36 %# community by submitting them to Best Practical Solutions, LLC.)
  37 %#
  38 %# By intentionally submitting any modifications, corrections or
  39 %# derivatives to this work, or any other work intended for use with
  40 %# Request Tracker, to Best Practical Solutions, LLC, you confirm that
  41 %# you are the copyright holder for those contributions and you grant
  42 %# Best Practical Solutions,  LLC a nonexclusive, worldwide, irrevocable,
  43 %# royalty-free, perpetual, license to use, copy, create derivative
  44 %# works based on those contributions, and sublicense and distribute
  45 %# those contributions and any derivatives thereof.
  46 %#
  47 %# END BPS TAGGED BLOCK }}}
  48 <& /Elements/PageLayout, show_menu => $show_menu &>
  49 <a name="skipnav" id="skipnav" accesskey="8"></a>
  50 <%INIT>
  51
  52 #my $request_path = $HTML::Mason::Commands::r->path_info;
  53 my $request_path = $m->request_comp->path;
  54
  55 my $query_string = sub {
  56     my %args = @_;
  57     my $u    = URI->new();
  58     $u->query_form(%args);
  59     return $u->query;
  60 };
  61
  62 my $build_admin_menu = sub {
  63     my $top = shift;
  64     my $admin = $top->child( config => title => loc('Configuration'), path => '/Admin/', sort_order => 99 );
  65     if ( $session{'CurrentUser'}->HasRight( Object => RT->System, Right => 'AdminUsers' ) ) {
  66         my $users = $admin->child( users =>
  67             title       => loc('Users'),
  68             description => loc('Manage users and passwords'),
  69             path        => '/Admin/Users/',
  70         );
  71         $users->child( select => title => loc('Select'), path => "/Admin/Users/" );
  72         $users->child( create => title => loc('Create'), path => "/Admin/Users/Modify.html?Create=1" );
  73     }
  74     my $groups = $admin->child( groups =>
  75         title       => loc('Groups'),
  76         description => loc('Manage groups and group membership'),
  77         path        => '/Admin/Groups/',
  78     );
  79     $groups->child( select => title => loc('Select'), path => "/Admin/Groups/" );
  80     $groups->child( create => title => loc('Create'), path => "/Admin/Groups/Modify.html?Create=1" );
  81
  82     my $queues = $admin->child( queues =>
  83         title       => loc('Queues'),
  84         description => loc('Manage queues and queue-specific properties'),
  85         path        => '/Admin/Queues/',
  86     );
  87     $queues->child( select => title => loc('Select'), path => "/Admin/Queues/" );
  88     $queues->child( create => title => loc('Create'), path => "/Admin/Queues/Modify.html?Create=1" );
  89
  90     if ( $session{'CurrentUser'}->HasRight( Object => RT->System, Right => 'AdminCustomField' ) ) {
  91         my $cfs = $admin->child( 'custom-fields' =>
  92             title       => loc('Custom Fields'),
  93             description => loc('Manage custom fields and custom field values'),
  94             path        => '/Admin/CustomFields/',
  95         );
  96         $cfs->child( select => title => loc('Select'), path => "/Admin/CustomFields/" );
  97         $cfs->child( create => title => loc('Create'), path => "/Admin/CustomFields/Modify.html?Create=1" );
  98     }
  99
 100     my $admin_global = $admin->child( global =>
 101         title       => loc('Global'),
 102         description => loc('Manage properties and configuration which apply to all queues'),
 103         path        => '/Admin/Global/',
 104     );
 105
 106     my $scrips = $admin_global->child( scrips =>
 107         title       => loc('Scrips'),
 108         description => loc('Modify scrips which apply to all queues'),
 109         path        => '/Admin/Global/Scrips.html',
 110     );
 111     $scrips->child( select => title => loc('Select'), path => "/Admin/Global/Scrips.html" );
 112     $scrips->child( create => title => loc('Create'), path => "/Admin/Global/Scrip.html?Create=1" );
 113
 114     my $templates = $admin_global->child( templates =>
 115         title       => loc('Templates'),
 116         description => loc('Edit system templates'),
 117         path        => '/Admin/Global/Templates.html',
 118     );
 119     $templates->child( select => title => loc('Select'), path => "/Admin/Global/Templates.html" );
 120     $templates->child( create => title => loc('Create'), path => "/Admin/Global/Template.html?Create=1" );
 121
 122     my $cfadmin = $admin_global->child( 'custom-fields' =>
 123         title       => loc('Custom Fields'),
 124         description => loc('Modify global custom fields'),
 125         path        => '/Admin/Global/CustomFields/index.html',
 126     );
 127     $cfadmin->child( users =>
 128         title       => loc('Users'),
 129         description => loc('Select custom fields for all users'),
 130         path        => '/Admin/Global/CustomFields/Users.html',
 131     );
 132     $cfadmin->child( groups =>
 133         title       => loc('Groups'),
 134         description => loc('Select custom fields for all user groups'),
 135         path        => '/Admin/Global/CustomFields/Groups.html',
 136     );
 137     $cfadmin->child( queues =>
 138         title       => loc('Queues'),
 139         description => loc('Select custom fields for all queues'),
 140         path        => '/Admin/Global/CustomFields/Queues.html',
 141     );
 142     $cfadmin->child( tickets =>
 143         title       => loc('Tickets'),
 144         description => loc('Select custom fields for tickets in all queues'),
 145         path        => '/Admin/Global/CustomFields/Queue-Tickets.html',
 146     );
 147     $cfadmin->child( transactions =>
 148         title       => loc('Ticket Transactions'),
 149         description => loc('Select custom fields for transactions on tickets in all queues'),
 150         path        => '/Admin/Global/CustomFields/Queue-Transactions.html',
 151     );
 152     $cfadmin->child( 'custom-fields' =>
 153         title       => loc('Articles'),
 154         description => loc('Select Custom Fields for Articles in all Classes'),
 155         path        => '/Admin/Global/CustomFields/Class-Article.html',
 156     );
 157
 158     my $article_admin = $admin->child( articles => title => loc('Articles'), path => "/Admin/Articles/index.html" );
 159     my $class_admin = $article_admin->child(classes => title => loc('Classes'), path => '/Admin/Articles/Classes/' );
 160     $class_admin->child( select =>
 161         title       => loc('Select'),
 162         description => loc('Modify and Create Classes'),
 163         path        => '/Admin/Articles/Classes/',
 164     );
 165     $class_admin->child( create =>
 166         title       => loc('Create'),
 167         description => loc('Modify and Create Custom Fields for Articles'),
 168         path        => '/Admin/Articles/Classes/Modify.html?Create=1',
 169     );
 170
 171
 172     my $cfs = $article_admin->child( 'custom-fields' =>
 173         title => loc('Custom Fields'),
 174         path  => '/Admin/CustomFields/index.html?'.$m->comp('/Elements/QueryString', type => 'RT::Class-RT::Article'),
 175     );
 176     $cfs->child( select =>
 177         title => loc('Select'),
 178         path => '/Admin/CustomFields/index.html?'.$m->comp('/Elements/QueryString', type => 'RT::Class-RT::Article'),
 179     );
 180     $cfs->child( create =>
 181         title => loc('Create'),
 182         path => '/Admin/CustomFields/Modify.html?'.$m->comp("/Elements/QueryString", Create=>1, LookupType=> "RT::Class-RT::Article" ),
 183     );
 184
 185     $admin_global->child( 'group-rights' =>
 186         title       => loc('Group Rights'),
 187         description => loc('Modify global group rights'),
 188         path        => '/Admin/Global/GroupRights.html',
 189     );
 190     $admin_global->child( 'user-rights' =>
 191         title       => loc('User Rights'),
 192         description => loc('Modify global user rights'),
 193         path        => '/Admin/Global/UserRights.html',
 194     );
 195     $admin_global->child( 'my-rt' =>
 196         title       => loc('RT at a glance'),
 197         description => loc('Modify the default "RT at a glance" view'),
 198         path        => '/Admin/Global/MyRT.html',
 199     );
 200     $admin_global->child( 'topics' =>
 201         title       => loc('Topics'),
 202         description => loc('Modify global article topics'),
 203         path        => '/Admin/Global/Topics.html',
 204     );
 205
 206     my $admin_tools = $admin->child( tools =>
 207         title       => loc('Tools'),
 208         description => loc('Use other RT administrative tools'),
 209         path        => '/Admin/Tools/',
 210     );
 211     $admin_tools->child( configuration =>
 212         title       => loc('System Configuration'),
 213         description => loc('Detailed information about your RT setup'),
 214         path        => '/Admin/Tools/Configuration.html',
 215     );
 216     $admin_tools->child( theme =>
 217         title       => loc('Theme'),
 218         description => loc('Customize the look of your RT'),
 219         path        => '/Admin/Tools/Theme.html',
 220     );
 221     if (RT->Config->Get('StatementLog')
 222         && $session{'CurrentUser'}->HasRight( Right => 'SuperUser', Object => RT->System )) {
 223        $admin_tools->child( 'sql-queries' =>
 224            title       => loc('SQL Queries'),
 225            description => loc('Browse the SQL queries made in this process'),
 226            path        => '/Admin/Tools/Queries.html',
 227        );
 228     }
 229     $admin_tools->child( shredder =>
 230         title       => loc('Shredder'),
 231         description => loc('Permanently wipeout data from RT'),
 232         path        => '/Admin/Tools/Shredder',
 233     );
 234
 235     if ( $request_path =~ m{^/Admin/(Queues|Users|Groups|CustomFields)} ) {
 236         my $type = $1;
 237         my $tabs = PageMenu();
 238
 239         my %labels = (
 240             Queues       => loc("Queues"),
 241             Users        => loc("Users"),
 242             Groups       => loc("Groups"),
 243             CustomFields => loc("Custom Fields"),
 244         );
 245
 246         my $section;
 247         if ( $request_path =~ m|^/Admin/$type/?(?:index.html)?$|
 248              || (    $request_path =~ m|^/Admin/$type/(?:Modify.html)$|
 249                   && $m->request_args->{'Create'} )
 250            )
 251         {
 252             $section = $tabs;
 253
 254         } else {
 255             $section = $tabs->child( select => title => $labels{$type},
 256                                      path => "/Admin/$type/" );
 257         }
 258
 259         $section->child( select => title => loc('Select'), path => "/Admin/$type/" );
 260         $section->child( create => title => loc('Create'), path => "/Admin/$type/Modify.html?Create=1" );
 261     }
 262
 263     if ( $request_path =~ m{^/Admin/Queues} ) {
 264         if ( $m->request_args->{'id'} && $m->request_args->{'id'} =~ /^\d+$/
 265                 ||
 266               $m->request_args->{'Queue'} && $m->request_args->{'Queue'} =~ /^\d+$/
 267                 ) {
 268             my $id = $m->request_args->{'Queue'} || $m->request_args->{'id'};
 269             my $queue_obj = RT::Queue->new( $session{'CurrentUser'} );
 270             $queue_obj->Load($id);
 271
 272             my $queue = PageMenu();
 273             $queue->child( basics => title => loc('Basics'),   path => "/Admin/Queues/Modify.html?id=" . $id );
 274             $queue->child( people => title => loc('Watchers'), path => "/Admin/Queues/People.html?id=" . $id );
 275
 276             my $templates = $queue->child(templates => title => loc('Templates'), path => "/Admin/Queues/Templates.html?id=" . $id);
 277             $templates->child( select => title => loc('Select'), path => "/Admin/Queues/Templates.html?id=".$id);
 278             $templates->child( create => title => loc('Create'), path => "/Admin/Queues/Template.html?Create=1;Queue=".$id);
 279
 280             my $scrips = $queue->child( scrips => title => loc('Scrips'), path => "/Admin/Queues/Scrips.html?id=" . $id);
 281             $scrips->child( select => title => loc('Select'), path => "/Admin/Queues/Scrips.html?id=" . $id );
 282             $scrips->child( create => title => loc('Create'), path => "/Admin/Queues/Scrip.html?Create=1;Queue=" . $id);
 283
 284             my $ticket_cfs = $queue->child( 'ticket-custom-fields' => title => loc('Ticket Custom Fields'),
 285                 path => '/Admin/Queues/CustomFields.html?SubType=RT::Ticket&id=' . $id );
 286
 287             my $txn_cfs = $queue->child( 'transaction-custom-fields' => title => loc('Transaction Custom Fields'),
 288                 path => '/Admin/Queues/CustomFields.html?SubType=RT::Ticket-RT::Transaction&id='.$id );
 289
 290             $queue->child( 'group-rights' => title => loc('Group Rights'), path => "/Admin/Queues/GroupRights.html?id=".$id );
 291             $queue->child( 'user-rights' => title => loc('User Rights'), path => "/Admin/Queues/UserRights.html?id=" . $id );
 292
 293
 294             $m->callback( CallbackName => 'PrivilegedQueue', queue_id => $id, page_menu => $queue);
 295         }
 296     }
 297     if ( $request_path =~ m{^/Admin/Users} ) {
 298         if ( $m->request_args->{'id'} && $m->request_args->{'id'} =~ /^\d+$/ ) {
 299             my $id = $m->request_args->{'id'};
 300             my $obj = RT::User->new( $session{'CurrentUser'} );
 301             $obj->Load($id);
 302
 303             my $tabs = PageMenu();
 304             $tabs->child( basics      => title => loc('Basics'),         path => "/Admin/Users/Modify.html?id=" . $id );
 305             $tabs->child( memberships => title => loc('Memberships'),    path => "/Admin/Users/Memberships.html?id=" . $id );
 306             $tabs->child( history     => title => loc('History'),        path => "/Admin/Users/History.html?id=" . $id );
 307             $tabs->child( 'my-rt'     => title => loc('RT at a glance'), path => "/Admin/Users/MyRT.html?id=" . $id );
 308             if ( RT->Config->Get('GnuPG')->{'Enable'} ) {
 309                 $tabs->child( pgp     => title => loc('GnuPG'),          path => "/Admin/Users/GnuPG.html?id=" . $id );
 310             }
 311         }
 312
 313     }
 314
 315     if ( $request_path =~ m{^/Admin/Groups} ) {
 316         if ( $m->request_args->{'id'} && $m->request_args->{'id'} =~ /^\d+$/ ) {
 317             my $id = $m->request_args->{'id'};
 318             my $obj = RT::Group->new( $session{'CurrentUser'} );
 319             $obj->Load($id);
 320
 321             my $tabs = PageMenu();
 322             $tabs->child( basics         => title => loc('Basics'),       path => "/Admin/Groups/Modify.html?id=" . $obj->id );
 323             $tabs->child( members        => title => loc('Members'),      path => "/Admin/Groups/Members.html?id=" . $obj->id );
 324             $tabs->child( 'group-rights' => title => loc('Group Rights'), path => "/Admin/Groups/GroupRights.html?id=" . $obj->id );
 325             $tabs->child( 'user-rights'  => title => loc('User Rights'),  path => "/Admin/Groups/UserRights.html?id=" . $obj->id );
 326             $tabs->child( history        => title => loc('History'),      path => "/Admin/Groups/History.html?id=" . $obj->id );
 327         }
 328     }
 329
 330     if ( $request_path =~ m{^/Admin/CustomFields/} ) {
 331         if ( $m->request_args->{'id'} && $m->request_args->{'id'} =~ /^\d+$/ ) {
 332             my $id = $m->request_args->{'id'};
 333             my $obj = RT::CustomField->new( $session{'CurrentUser'} );
 334             $obj->Load($id);
 335
 336             my $tabs = PageMenu();
 337             $tabs->child( basics         => title => loc('Basics'),       path => "/Admin/CustomFields/Modify.html?id=".$id );
 338             $tabs->child( 'group-rights' => title => loc('Group Rights'), path => "/Admin/CustomFields/GroupRights.html?id=" . $id );
 339             $tabs->child( 'user-rights'  => title => loc('User Rights'),  path => "/Admin/CustomFields/UserRights.html?id=" . $id );
 340             $tabs->child( 'applies-to'   => title => loc('Applies to'),   path => "/Admin/CustomFields/Objects.html?id=" . $id );
 341         }
 342     }
 343
 344     if ( $request_path =~ m{^/Admin/Global/(Scrip|Template)s?\.html} ) {
 345         my $type = $1;
 346         my $tabs = PageMenu();
 347
 348         # With only two elements, swapping between dropdown and menu is kinda dumb
 349         # In the glorious future this should be cleaner.
 350
 351         $tabs->child( select => title => loc('Select'), path => "/Admin/Global/${type}s.html" );
 352         $tabs->child( create => title => loc('Create'), path => "/Admin/Global/${type}.html?Create=1" );
 353     }
 354
 355     if ( $request_path =~ m{^/Admin/Articles/Classes/} ) {
 356         my $tabs = PageMenu();
 357         if ( my $id = $m->request_args->{'id'} ) {
 358             my $obj = RT::CustomField->new( $session{'CurrentUser'} );
 359             $obj->Load($id);
 360
 361             my $section = $tabs->child( select => title => loc("Classes"), path => "/Admin/Articles/Classes/" );
 362             $section->child( select => title => loc('Select'), path => "/Admin/Articles/Classes/" );
 363             $section->child( create => title => loc('Create'), path => "/Admin/Articles/Classes/Modify.html?Create=1" );
 364
 365             $tabs->child( basics          => title => loc('Basics'),        path => "/Admin/Articles/Classes/Modify.html?id=".$id );
 366             $tabs->child( topics          => title => loc('Topics'),        path => "/Admin/Articles/Classes/Topics.html?id=".$id );
 367             $tabs->child( 'custom-fields' => title => loc('Custom Fields'), path => "/Admin/Articles/Classes/CustomFields.html?id=".$id );
 368             $tabs->child( 'group-rights'  => title => loc('Group Rights'),  path => "/Admin/Articles/Classes/GroupRights.html?id=".$id );
 369             $tabs->child( 'user-rights'   => title => loc('User Rights'),   path => "/Admin/Articles/Classes/UserRights.html?id=".$id );
 370             $tabs->child( 'applies-to'    => title => loc('Applies to'),    path => "/Admin/Articles/Classes/Objects.html?id=$id" );
 371         } else {
 372             $tabs->child( select => title => loc('Select'), path => "/Admin/Articles/Classes/" );
 373             $tabs->child( create => title => loc('Create'), path => "/Admin/Articles/Classes/Modify.html?Create=1" );
 374         }
 375     }
 376 };
 377
 378
 379 my $build_main_nav = sub {
 380
 381     my $home = Menu->child( home => title => loc('Homepage'), path => '/' );
 382     # We explicitly exclude superusers; otherwise the dashboards for
 383     # groups you're not in (but can see the dashboards of by dint of
 384     # being a superuser) would push the useful ones from the groups
 385     # you're actually in off of the stack.
 386     my @dashboards = $m->comp("/Dashboards/Elements/ListOfDashboards", IncludeSuperuserGroups => 0);
 387     my $limit      = 7;
 388
 389     my $more = 0;
 390     if ( @dashboards > $limit ) {
 391         $more = 1;
 392         splice @dashboards, $limit;
 393     }
 394
 395     my $dashes = Menu()->child('home');
 396     if (@dashboards) {
 397         for my $dash (@dashboards) {
 398             $home->child( 'dashboard-' . $dash->id,
 399                 title => $dash->Name,
 400                 path  => '/Dashboards/' . $dash->id . '/' . $dash->Name
 401             );
 402         }
 403
 404         $dashes->child( more => title => loc('All Dashboards'), path => 'Dashboards/index.html' );
 405     }
 406     my $dashboard = RT::Dashboard->new( $session{CurrentUser} );
 407     if ( $dashboard->CurrentUserCanCreateAny ) {
 408         $dashes->child('dashboard_create' => title => loc('New Dashboard'), path => "/Dashboards/Modify.html?Create=1" );
 409     }
 410
 411     my $tickets = Menu->child( search => title => loc('Tickets'), path => '/Search/Build.html' );
 412     $tickets->child( simple => title => loc('Simple Search'), path => "/Search/Simple.html" );
 413     $tickets->child( new    => title => loc('New Search'),    path => "/Search/Build.html?NewQuery=1" );
 414
 415
 416     my $tools = Menu->child( tools => title => loc('Tools'), path => '/Tools/index.html' );
 417     my $articles = $tools->child( articles => title => loc('Articles'), path => "/Articles/index.html");
 418     $articles->child( articles => title => loc('Overview'), path => "/Articles/index.html" );
 419     $articles->child( search   => title => loc('Search'),   path => "/Articles/Article/Search.html" );
 420     $articles->child( topics   => title => loc('Topics'),   path => "/Articles/Topics.html" );
 421
 422     $tools->child( my_day =>
 423         title       => loc('My Day'),
 424         description => loc('Easy updating of your open tickets'),
 425         path        => '/Tools/MyDay.html',
 426     );
 427
 428     if ( RT->Config->Get('EnableReminders') ) {
 429         $tools->child( my_reminders =>
 430             title       => loc('My Reminders'),
 431             description => loc('Easy viewing of your reminders'),
 432             path        => '/Tools/MyReminders.html',
 433         );
 434     }
 435
 436     $tools->child( offline =>
 437         title       => loc('Offline'),
 438         description => loc('Create tickets offline'),
 439         path        => '/Tools/Offline.html',
 440     );
 441
 442     if ( $session{'CurrentUser'}->HasRight( Right => 'ShowApprovalsTab', Object => RT->System ) ) {
 443         $tools->child( approval =>
 444             title       => loc('Approval'),
 445             description => loc('My Approvals'),
 446             path        => '/Approvals/',
 447         );
 448     }
 449
 450     if ( $session{'CurrentUser'}->HasRight( Right => 'ShowConfigTab', Object => RT->System ) )
 451     {
 452         $build_admin_menu->($tools);
 453     }
 454
 455     my $username = '<span class="current-user">'
 456                  . $m->interp->apply_escapes($session{'CurrentUser'}->Name, 'h')
 457                  . '</span>';
 458     my $about_me = Menu->child( 'preferences' =>
 459         title        => loc('Logged in as [_1]', $username),
 460         escape_title => 0,
 461         sort_order   => 99,
 462     );
 463
 464
 465     if ( $session{'CurrentUser'}->UserObj
 466          && $session{'CurrentUser'}->HasRight( Right => 'ModifySelf', Object => RT->System )) {
 467         my $settings = $about_me->child( settings => title => loc('Settings'), path => '/Prefs/Other.html' );
 468         $settings->child( options        => title => loc('Options'),        path => '/Prefs/Other.html' );
 469         $settings->child( about_me       => title => loc('About me'),       path => '/User/Prefs.html' );
 470         $settings->child( search_options => title => loc('Search options'), path => '/Prefs/SearchOptions.html' );
 471         $settings->child( myrt           => title => loc('RT at a glance'), path => '/Prefs/MyRT.html' );
 472         $settings->child( quicksearch    => title => loc('Quick search'),   path => '/Prefs/Quicksearch.html' );
 473
 474         my $search_menu = $settings->child( 'saved-searches' => title => loc('Saved Searches') );
 475         my $searches = [ $m->comp( "/Search/Elements/SearchesForObject",
 476                           Object => RT::System->new( $session{'CurrentUser'} )) ];
 477         my $i = 0;
 478
 479         for my $search (@$searches) {
 480             $search_menu->child( "search-" . $i++ =>
 481                 title => $search->[0],
 482                 path  => "/Prefs/Search.html?"
 483                        . $query_string->( name => ref( $search->[1] ) . '-' . $search->[1]->Id ),
 484             );
 485
 486         }
 487     }
 488     if ( $session{'CurrentUser'}->Name
 489          && (   !RT->Config->Get('WebExternalAuth')
 490               || RT->Config->Get('WebFallbackToInternalAuth') )) {
 491         $about_me->child( logout => title => loc('Logout'), path => '/NoAuth/Logout.html' );
 492     }
 493     if ( $request_path =~ m{^/Dashboards/(\d+)?}) {
 494         if ( my $id = ( $1 || $m->request_args->{'id'} ) ) {
 495             my $obj = RT::Dashboard->new( $session{'CurrentUser'} );
 496             $obj->LoadById($id);
 497             if ( $obj and $obj->id ) {
 498                 my $tabs = PageMenu;
 499                 $tabs->child( basics       => title => loc('Basics'),       path => "/Dashboards/Modify.html?id=" . $obj->id);
 500                 $tabs->child( content      => title => loc('Content'),      path => "/Dashboards/Queries.html?id=" . $obj->id);
 501                 $tabs->child( subscription => title => loc('Subscription'), path => "/Dashboards/Subscription.html?id=" . $obj->id)
 502                     if $obj->CurrentUserCanSubscribe;
 503                 $tabs->child( show         => title => loc('Show'),         path => "/Dashboards/" . $obj->id . "/" . $obj->Name)
 504             }
 505         }
 506     }
 507
 508
 509     if ( $request_path =~ m{^/Ticket/} ) {
 510         if ( ( $m->request_args->{'id'} || '' ) =~ /^(\d+)$/ ) {
 511             my $id  = $1;
 512             my $obj = RT::Ticket->new( $session{'CurrentUser'} );
 513             $obj->Load($id);
 514
 515             my $actions = PageMenu()->child( actions => title => loc('Actions'), sort_order  => 95 );
 516             my $tabs = PageMenu();
 517             $tabs->child( bookmark => raw_html => $m->scomp( '/Ticket/Elements/Bookmark', id => $id ), sort_order => 99 );
 518             $tabs->child( display => title => loc('Display'), path => "/Ticket/Display.html?id=" . $id );
 519             $tabs->child( history => title => loc('History'), path => "/Ticket/History.html?id=" . $id );
 520
 521             my %can = %{ $obj->CurrentUser->PrincipalObj->HasRights( Object => $obj ) };
 522             $can{'_ModifyOwner'} = $can{'OwnTicket'} || $can{'TakeTicket'} || $can{'StealTicket'};
 523             my $can = sub {
 524                 unless ($_[0] eq 'ExecuteCode') {
 525                     return $can{$_[0]} || $can{'SuperUser'};
 526                 } else {
 527                     return !RT->Config->Get('DisallowExecuteCode')
 528                         && ( $can{'ExecuteCode'} || $can{'SuperUser'} );
 529                 }
 530             };
 531
 532             # comment out until we can do it for an individual custom field
 533             #if ( $can->('ModifyTicket') || $can->('ModifyCustomField') ) {
 534             $tabs->child( basics => title => loc('Basics'), path => "/Ticket/Modify.html?id=" . $id );
 535
 536             #}
 537
 538             if ( $can->('ModifyTicket') || $can->('_ModifyOwner') || $can->('Watch') || $can->('WatchAsAdminCc') ) {
 539                 $tabs->child( people => title => loc('People'), path => "/Ticket/ModifyPeople.html?id=" . $id );
 540             }
 541
 542             if ( $can->('ModifyTicket') ) {
 543                 $tabs->child( dates => title => loc('Dates'), path => "/Ticket/ModifyDates.html?id=" . $id );
 544                 $tabs->child( links => title => loc('Links'), path => "/Ticket/ModifyLinks.html?id=" . $id );
 545             }
 546
 547             #if ( $can->('ModifyTicket') || $can->('ModifyCustomField') || $can->('_ModifyOwner') ) {
 548             $tabs->child( jumbo => title => loc('Jumbo'), path => "/Ticket/ModifyAll.html?id=" . $id );
 549             #}
 550
 551             if ( RT->Config->Get('EnableReminders') ) {
 552                 $tabs->child( reminders => title => loc('Reminders'), path => "/Ticket/Reminders.html?id=" . $id );
 553             }
 554
 555             if ( $can->('ModifyTicket') or $can->('ReplyToTicket') ) {
 556                 $actions->child( reply => title => loc('Reply'), path => "/Ticket/Update.html?Action=Respond;id=" . $id );
 557             }
 558
 559             if ( $can->('ModifyTicket') or $can->('CommentOnTicket') ) {
 560                 $actions->child( comment => title => loc('Comment'), path => "/Ticket/Update.html?Action=Comment;id=" . $id );
 561             }
 562
 563             if ( $can->('ForwardMessage') ) {
 564                 $actions->child( forward => title => loc('Forward'), path => "/Ticket/Forward.html?id=" . $id );
 565             }
 566
 567             my $hide_resolve_with_deps = RT->Config->Get('HideResolveActionsWithDependencies')
 568                 && $obj->HasUnresolvedDependencies;
 569
 570             my $current   = $obj->Status;
 571             my $lifecycle = $obj->QueueObj->Lifecycle;
 572             my $i         = 1;
 573             foreach my $info ( $lifecycle->Actions($current) ) {
 574                 my $next = $info->{'to'};
 575                 next unless $lifecycle->IsTransition( $current => $next );
 576
 577                 my $check = $lifecycle->CheckRight( $current => $next );
 578                 next unless $can->($check);
 579
 580                 next if $hide_resolve_with_deps
 581                     && $lifecycle->IsInactive($next)
 582                     && !$lifecycle->IsInactive($current);
 583
 584                 my $action = $info->{'update'} || '';
 585                 my $url = '/Ticket/';
 586                 if ($action) {
 587                     $url .= "Update.html?"
 588                         . $query_string->(
 589                             Action        => $action,
 590                             DefaultStatus => $next,
 591                             id            => $id,
 592                         );
 593                 } else {
 594                     $url .= "Display.html?"
 595                         . $query_string->(
 596                             Status => $next,
 597                             id     => $id,
 598                         );
 599                 }
 600                 my $key = $info->{'label'} || ucfirst($next);
 601                 $actions->child( $key => title => loc( $key ), path => $url);
 602             }
 603
 604             if ( $can->('OwnTicket') ) {
 605                 if ( $obj->OwnerObj->Id == RT->Nobody->id
 606                      && ( $can->('ModifyTicket') or $can->('TakeTicket') ) ) {
 607                     $actions->child( take => title => loc('Take'), path => "/Ticket/Display.html?Action=Take;id=" . $id );
 608                 }
 609
 610                 elsif (    $obj->OwnerObj->id != RT->Nobody->id
 611                         && $obj->OwnerObj->id != $session{CurrentUser}->id
 612                         && ( $can->('ModifyTicket') or $can->('StealTicket') ) ) {
 613                     $actions->child( steal => title => loc('Steal'), path => "/Ticket/Display.html?Action=Steal;id=" . $id );
 614                 }
 615             }
 616
 617             # TODO needs a "Can extract article into a class applied to this queue" check
 618             $actions->child( 'extract-article' =>
 619                 title => loc('Extract Article'),
 620                 path  => "/Articles/Article/ExtractIntoClass.html?Ticket=".$obj->id,
 621             );
 622
 623             if ( defined $session{"tickets"} ) {
 624                 # we have to update session data if we get new ItemMap
 625                 my $updatesession = 1 unless ( $session{"tickets"}->{'item_map'} );
 626
 627                 my $item_map = $session{"tickets"}->ItemMap;
 628
 629                 if ($updatesession) {
 630                     $session{"tickets"}->PrepForSerialization();
 631                 }
 632
 633                 my $search = Menu()->child('search');
 634                 # Don't display prev links if we're on the first ticket
 635                 if ( $item_map->{$id}->{prev} ) {
 636                     $search->child( first =>
 637                         title => '<< ' . loc('First'), class => "nav", path => "/Ticket/Display.html?id=" . $item_map->{first});
 638                     $search->child( prev =>
 639                         title => '< ' . loc('Prev'),   class => "nav", path => "/Ticket/Display.html?id=" . $item_map->{$id}->{prev});
 640                 }
 641                 # Don't display next links if we're on the last ticket
 642                 if ( $item_map->{$id}->{next} ) {
 643                     $search->child( next =>
 644                         title => loc('Next') . ' >',  class => "nav", path => "/Ticket/Display.html?id=" . $item_map->{$id}->{next});
 645                     $search->child( last =>
 646                         title => loc('Last') . ' >>', class => "nav", path => "/Ticket/Display.html?id=" . $item_map->{last});
 647                 }
 648             }
 649         }
 650     }
 651
 652     if (
 653         (
 654                $request_path =~ m{^/(?:Ticket|Search)/}
 655             && $request_path !~ m{^/Search/Simple\.html}
 656         )
 657         || (   $request_path =~ m{^/Search/Simple\.html}
 658             && $m->request_args->{'q'} )
 659       )
 660     {
 661         my $search = Menu()->child('search');
 662         my $args      = '';
 663         my $has_query = '';
 664         my $current_search = $session{"CurrentSearchHash"} || {};
 665         my $search_id = $m->request_args->{'SavedSearchLoad'} || $m->request_args->{'SavedSearchId'} || $current_search->{'SearchId'} || '';
 666         my $chart_id = $m->request_args->{'SavedChartSearchId'} || $current_search->{SavedChartSearchId};
 667
 668         $has_query = 1 if ( $m->request_args->{'Query'} or $current_search->{'Query'} );
 669
 670         my %query_args;
 671         my %fallback_query_args = (
 672             SavedSearchId => ( $search_id eq 'new' ) ? undef : $search_id,
 673             SavedChartSearchId => $chart_id,
 674             (
 675                 map {
 676                     my $p = $_;
 677                     $p => $m->request_args->{$p} || $current_search->{$p}
 678                 } qw(Query Format OrderBy Order Page)
 679             ),
 680             RowsPerPage => (
 681                 defined $m->request_args->{'RowsPerPage'}
 682                 ? $m->request_args->{'RowsPerPage'}
 683                 : $current_search->{'RowsPerPage'}
 684             ),
 685         );
 686
 687         if ($QueryString) {
 688             $args = '?' . $QueryString;
 689         }
 690         else {
 691             my %final_query_args = ();
 692             # key => callback to avoid unnecessary work
 693
 694             for my $param (keys %fallback_query_args) {
 695                 $final_query_args{$param} = defined($QueryArgs->{$param})
 696                                           ? $QueryArgs->{$param}
 697                                           : $fallback_query_args{$param};
 698             }
 699
 700             for my $field (qw(Order OrderBy)) {
 701                 if ( ref( $final_query_args{$field} ) eq 'ARRAY' ) {
 702                     $final_query_args{$field} = join( "|", @{ $final_query_args{$field} } );
 703                 } elsif (not defined $final_query_args{$field}) {
 704                     delete $final_query_args{$field};
 705                 }
 706                 else {
 707                     $final_query_args{$field} ||= '';
 708                 }
 709             }
 710
 711             $args = '?' . $query_string->(%final_query_args);
 712         }
 713
 714         my $current_search_menu;
 715         if ( $request_path =~ m{^/Ticket} ) {
 716             $current_search_menu = $search->child( current_search => title => loc('Current Search') );
 717             $current_search_menu->path("/Search/Results.html$args") if $has_query;
 718         } else {
 719             $current_search_menu = PageMenu();
 720         }
 721
 722         $current_search_menu->child( edit_search =>
 723             title => loc('Edit Search'), path => "/Search/Build.html" . ( ($has_query) ? $args : '' ) );
 724         $current_search_menu->child( advanced =>
 725             title => loc('Advanced'),    path => "/Search/Edit.html$args" );
 726         if ($has_query) {
 727             $current_search_menu->child( results => title => loc('Show Results'), path => "/Search/Results.html$args" );
 728         }
 729
 730         if ( $has_query ) {
 731             $current_search_menu->child( bulk  => title => loc('Bulk Update'), path => "/Search/Bulk.html$args" );
 732             $current_search_menu->child( chart => title => loc('Chart'),       path => "/Search/Chart.html$args" );
 733
 734             my $more = $current_search_menu->child( more => title => loc('Feeds') );
 735
 736             $more->child( spreadsheet => title => loc('Spreadsheet'), path => "/Search/Results.tsv$args" );
 737
 738             my %rss_data = map {
 739                 $_ => $QueryArgs->{$_} || $fallback_query_args{$_} || '' }
 740                     qw(Query Order OrderBy);
 741             my $RSSQueryString = "?"
 742                 . $query_string->( Query   => $rss_data{Query},
 743                                    Order   => $rss_data{Order},
 744                                    OrderBy => $rss_data{OrderBy}
 745                                  );
 746             my $RSSPath = join '/', map $m->interp->apply_escapes( $_, 'u' ),
 747                 $session{'CurrentUser'}->UserObj->Name,
 748                 $session{'CurrentUser'}
 749                 ->UserObj->GenerateAuthString(   $rss_data{Query}
 750                                                . $rss_data{Order}
 751                                                . $rss_data{OrderBy} );
 752
 753             $more->child( rss => title => loc('RSS'), path => "/NoAuth/rss/$RSSPath/$RSSQueryString");
 754             my $ical_path = join '/', map $m->interp->apply_escapes($_, 'u'),
 755                 $session{'CurrentUser'}->UserObj->Name,
 756                 $session{'CurrentUser'}->UserObj->GenerateAuthString( $rss_data{Query} ),
 757                 $rss_data{Query};
 758             $more->child( ical => title => loc('iCal'), path => '/NoAuth/iCal/'.$ical_path);
 759
 760             if ($request_path =~ m{^/Search/Results.html}
 761                 &&                        #XXX TODO better abstraction
 762                 $session{'CurrentUser'}->HasRight( Right => 'SuperUser', Object => RT->System )) {
 763                 my $shred_args = $query_string->(
 764                     search          => 1,
 765                     plugin          => 'Tickets',
 766                     'Tickets:query' => $rss_data{'Query'},
 767                     'Tickets:limit' => $QueryArgs->{'Rows'},
 768                 );
 769
 770                 $more->child( shredder => title => loc('Shredder'), path => '/Admin/Tools/Shredder/?' . $shred_args);
 771             }
 772
 773         }
 774     }
 775
 776     if ( $request_path =~ m{^/Article/} ) {
 777         if ( $m->request_args->{'id'} && $m->request_args->{'id'} =~ /^\d+$/ ) {
 778             my $id = $m->request_args->{'id'};
 779             my $tabs = PageMenu();
 780
 781             $tabs->child( display => title => loc('Display'), path => "/Articles/Article/Display.html?id=".$id );
 782             $tabs->child( history => title => loc('History'), path => "/Articles/Article/History.html?id=".$id );
 783             $tabs->child( modify  => title => loc('Modify'),  path => "/Articles/Article/Edit.html?id=".$id );
 784             $tabs->child( delete  => title => loc('Delete'),  path => "/Articles/Article/Delete.html?id=".$id );
 785         }
 786     }
 787
 788     if ( $request_path =~ m{^/Articles/} ) {
 789         my $tabs = PageMenu();
 790         $tabs->child( search => title => loc("Search"),       path => "/Articles/Article/Search.html" );
 791         $tabs->child( create => title => loc("New Article" ), path => "/Articles/Article/PreCreate.html" );
 792         if ( ( $m->request_args->{'id'} || '' ) =~ /^(\d+)$/ ) {
 793             my $id  = $1;
 794             my $obj = RT::Article->new( $session{'CurrentUser'} );
 795             $obj->Load($id);
 796
 797             $tabs->child( display => title => loc("Display"), path => "/Articles/Article/Display.html?id=" . $id );
 798             $tabs->child( history => title => loc('History'), path => '/Articles/Article/History.html?id=' . $id );
 799
 800             if ( $obj->CurrentUserHasRight('ModifyArticle') ) {
 801                 $tabs->child(modify => title => loc('Modify'), path => '/Articles/Article/Edit.html?id=' . $id );
 802             }
 803             if ( $obj->CurrentUserHasRight('DeleteArticle') ) {
 804                 $tabs->child(delete => title => loc('Delete'), path => '/Articles/Article/Delete.html?id=' . $id );
 805             }
 806         }
 807
 808     }
 809
 810     if ( $request_path =~ /^\/(?:index.html|$)/ ) {
 811         PageMenu()->child( edit => title => loc('Edit'), path => '/Prefs/MyRT.html' );
 812     }
 813
 814     PageWidgets()->child( simple_search => raw_html => $m->scomp('SimpleSearch') );
 815     PageWidgets()->child( create_ticket => raw_html => $m->scomp('CreateTicket') );
 816
 817     $m->callback( CallbackName => 'Privileged' );
 818 };
 819
 820 my $build_selfservice_nav = sub {
 821     my $queues = RT::Queues->new( $session{'CurrentUser'} );
 822     $queues->UnLimit;
 823
 824     my $queue_count = 0;
 825     my $queue_id    = 1;
 826
 827     while ( my $queue = $queues->Next ) {
 828         next unless $queue->CurrentUserHasRight('CreateTicket');
 829         $queue_id = $queue->id;
 830         $queue_count++;
 831         last if ( $queue_count > 1 );
 832     }
 833
 834
 835     my $tickets = Menu->child( tickets => title => loc('Tickets'));
 836     $tickets->child( open   => title => loc('Open tickets'),   path => '/SelfService/' );
 837     $tickets->child( closed => title => loc('Closed tickets'), path => '/SelfService/Closed.html' );
 838     if ( $queue_count > 1 ) {
 839         $tickets->child( new => title => loc('New ticket'),    path => '/SelfService/CreateTicketInQueue.html' );
 840     } else {
 841         $tickets->child( new => title => loc('New ticket'),    path => '/SelfService/Create.html?Queue=' . $queue_id );
 842     }
 843
 844
 845     my $username = '<span class="current-user">'
 846                  . $m->interp->apply_escapes($session{'CurrentUser'}->Name, 'h')
 847                  . '</span>';
 848     my $about_me = Menu->child( preferences =>
 849         title        => loc('Logged in as [_1]', $username),
 850         escape_title => 0,
 851         sort_order   => 99,
 852     );
 853
 854     if ( $session{'CurrentUser'}->HasRight( Right => 'ModifySelf', Object => RT->System ) ) {
 855         $about_me->child( prefs => title => loc('Preferences'), path => '/SelfService/Prefs.html' );
 856     }
 857
 858     if ( $session{'CurrentUser'}->Name
 859          && (   !RT->Config->Get('WebExternalAuth')
 860               || RT->Config->Get('WebFallbackToInternalAuth') )) {
 861         $about_me->child( logout => title => loc('Logout'), path => '/NoAuth/Logout.html' );
 862     }
 863
 864     if ($session{'CurrentUser'}->HasRight( Right => 'ShowArticle', Object => RT->System )) {
 865         PageWidgets->child( 'goto-article' => raw_html => $m->scomp('/SelfService/Elements/SearchArticle') );
 866     }
 867
 868     PageWidgets->child( goto => raw_html => $m->scomp('/SelfService/Elements/GotoTicket') );
 869
 870     $m->callback( CallbackName => 'SelfService' );
 871 };
 872
 873
 874
 875 if ( $request_path !~ m{^/SelfService/} ) {
 876     $build_main_nav->();
 877 } else {
 878     $build_selfservice_nav->();
 879 }
 880
 881
 882
 883
 884 </%INIT>
 885 <%ARGS>
 886 $show_menu => 1
 887 $QueryString => ''
 888 $QueryArgs => {}
 889 </%ARGS>