]>
Commit | Line | Data |
---|---|---|
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 | $request_path =~ s!/{2,}!/!g; | |
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 | && $DECODED_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 ( $DECODED_ARGS->{'id'} && $DECODED_ARGS->{'id'} =~ /^\d+$/ | |
265 | || | |
266 | $DECODED_ARGS->{'Queue'} && $DECODED_ARGS->{'Queue'} =~ /^\d+$/ | |
267 | ) { | |
268 | my $id = $DECODED_ARGS->{'Queue'} || $DECODED_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 ( $DECODED_ARGS->{'id'} && $DECODED_ARGS->{'id'} =~ /^\d+$/ ) { | |
299 | my $id = $DECODED_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 ( $DECODED_ARGS->{'id'} && $DECODED_ARGS->{'id'} =~ /^\d+$/ ) { | |
317 | my $id = $DECODED_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 ( $DECODED_ARGS->{'id'} && $DECODED_ARGS->{'id'} =~ /^\d+$/ ) { | |
332 | my $id = $DECODED_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 = $DECODED_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 || $DECODED_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 ( ( $DECODED_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 | && $DECODED_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 = $DECODED_ARGS->{'SavedSearchLoad'} || $DECODED_ARGS->{'SavedSearchId'} || $current_search->{'SearchId'} || ''; | |
666 | my $chart_id = $DECODED_ARGS->{'SavedChartSearchId'} || $current_search->{SavedChartSearchId}; | |
667 | ||
668 | $has_query = 1 if ( $DECODED_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 => $DECODED_ARGS->{$p} || $current_search->{$p} | |
678 | } qw(Query Format OrderBy Order Page) | |
679 | ), | |
680 | RowsPerPage => ( | |
681 | defined $DECODED_ARGS->{'RowsPerPage'} | |
682 | ? $DECODED_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 ( $DECODED_ARGS->{'id'} && $DECODED_ARGS->{'id'} =~ /^\d+$/ ) { | |
778 | my $id = $DECODED_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 ( $request_path =~ m{^/Articles/Article/} and ( $DECODED_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; | |
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 | if ( $queue_count > 1 ) { | |
836 | Menu->child( new => title => loc('New ticket'), path => '/SelfService/CreateTicketInQueue.html' ); | |
837 | } elsif ( $queue_id ) { | |
838 | Menu->child( new => title => loc('New ticket'), path => '/SelfService/Create.html?Queue=' . $queue_id ); | |
839 | } | |
840 | my $tickets = Menu->child( tickets => title => loc('Tickets'), path => '/SelfService/' ); | |
841 | $tickets->child( open => title => loc('Open tickets'), path => '/SelfService/' ); | |
842 | $tickets->child( closed => title => loc('Closed tickets'), path => '/SelfService/Closed.html' ); | |
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> |