import of rt 3.0.4
[freeside.git] / rt / html / SelfService / Elements / Tabs
1 %# BEGIN LICENSE BLOCK
2 %# 
3 %# Copyright (c) 1996-2003 Jesse Vincent <jesse@bestpractical.com>
4 %# 
5 %# (Except where explictly superceded by other copyright notices)
6 %# 
7 %# This work is made available to you under the terms of Version 2 of
8 %# the GNU General Public License. A copy of that license should have
9 %# been provided with this software, but in any event can be snarfed
10 %# from www.gnu.org.
11 %# 
12 %# This work is distributed in the hope that it will be useful, but
13 %# WITHOUT ANY WARRANTY; without even the implied warranty of
14 %# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
15 %# General Public License for more details.
16 %# 
17 %# Unless otherwise specified, all modifications, corrections or
18 %# extensions to this work which alter its source code become the
19 %# property of Best Practical Solutions, LLC when submitted for
20 %# inclusion in the work.
21 %# 
22 %# 
23 %# END LICENSE BLOCK
24 <& /Elements/PageLayout,
25     current_toptab => $current_toptab,
26     current_tab => $current_tab,
27     toptabs => $tabs,
28     topactions => $actions,
29     title => $Title
30 &>
31 <a name="skipnav" id="skipnav" accesskey="8"></a>
32 <%INIT>
33
34 if ($Title) {
35 $Title = loc ("RT Self Service") . " / " . $Title;
36 } else {
37 $Title = loc ("RT Self Service");
38
39 }
40 my ($tab);
41 my $tabs = { A  => { title => loc('Open tickets'),
42                         path => 'SelfService/',
43                       },
44              B => { title => loc('Closed tickets'),
45                          path => 'SelfService/Closed.html',
46                        },
47              C => { title => loc('New ticket'),
48                     path => 'SelfService/Create.html'
49                     },
50              Z => { title => loc('Preferences'),
51                     path => 'SelfService/Prefs.html'
52                     }
53            };
54 my $actions = {
55         B => { html => $m->scomp('GotoTicket') 
56                 }
57         };
58 </%INIT>
59 <%ARGS>
60 $Title => undef
61 $current_toptab => undef
62 $current_tab => undef
63 </%ARGS>
64