blob: d689d8a729aad5731013309e3c33bcd1a8a1eeeb (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
|
<TABLE WIDTH=100%>
<TR>
% foreach $tab (sort keys %{$tabs}) {
<TD ALIGN=CENTER>
[<A HREF="<%$RT::WebPath%>/<% $tabs->{"$tab"}->{'path'}%>"><% $tabs->{"$tab"}->{'title'}%></A>]
</TD>
%}
% if ($actions) {
<TD ALIGN=RIGHT>
<TABLE><TR>
% foreach my $action (sort keys %{$actions}) {
<TD>
<FONT SIZE=-1>
% if ($actions->{"$action"}->{'html'}) {
<%$actions->{"$action"}->{'html'} |n%>
% } else {
<A HREF="<%$RT::WebPath%>/<% $actions->{$action}->{'path'}%>"><% $actions->{$action}->{'title'}%></A>
% }
</FONT>
</TD>
% }
</TR>
</TABLE>
</TD>
%}
</TR>
</TABLE>
<hr>
<%INIT>
my ($tab);
my $tabs = { A => { title => 'Open requests',
path => 'SelfService/',
},
B => { title => 'Closed requests',
path => 'SelfService/Closed.html',
},
C => { title => 'New request',
path => 'SelfService/Create.html'
}
};
my $actions = {
B => { html => $m->scomp('GotoTicket')
}
};
</%INIT>
|
