blob: 6861d40c6cd9e66df29f8439823d46f9de05d810 (
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
|
%# $Header: /home/cvs/cvsroot/freeside/rt/webrt/Admin/Elements/Attic/SelectQueueRights,v 1.1 2002-08-12 06:17:08 ivan Exp $
<SELECT NAME ="<%$Name%>">
<OPTION VALUE="">-</OPTION>
%foreach $right (@rights) {
<OPTION VALUE="<%$right%>" <%($Default eq $right) && 'SELECTED'%>><%$right%></OPTION>
% }
</SELECT>
<%ONCE>
use RT::ACE;
my $ACE = new RT::ACE($session{'CurrentUser'});
my %QueueRights = $ACE->QueueRights;
my %TicketRights = $ACE->TicketRights;
my ($key, $right, @rights);
foreach $key (sort keys %QueueRights) {
push (@rights, $QueueRights{$key} . " ($key)");
}
foreach $key (sort keys %TicketRights) {
push (@rights, $TicketRights{$key} . " ($key)");
}
</%ONCE>
<%ARGS>
$Name => undef
$Default => undef
</%ARGS>
|
