blob: d419e7f7309e83a0470cebb139bde467fcbd5143 (
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
|
<& /Admin/Elements/Header, Title => 'Admin/Groups' &>
<& /Admin/Elements/Tabs, current_tab => 'Admin/Groups/' &>
<& /Elements/TitleBoxStart, title => 'Select a group' &>
Pseudogroups:<BR>
<UL>
%while ( $Group = $PseudoGroups->Next) {
<LI><A HREF="Modify.html?id=<%$Group->id%>"><%$Group->Name%></a><BR>
%}
</UL>
Groups:<BR>
<UL>
<LI><A HREF="Modify.html?Create=1">Create a new group</A><BR><BR></LI>
%while ( $Group = $Groups->Next) {
<LI><A HREF="Modify.html?id=<%$Group->id%>"><%$Group->Name%></a><BR>
%}
</UL>
<& /Elements/TitleBoxEnd &>
<%INIT>
my ($Group);
my $PseudoGroups = new RT::Groups($session{'CurrentUser'});
$PseudoGroups->LimitToPseudo;
my $Groups = new RT::Groups($session{'CurrentUser'});
$Groups->LimitToReal;
</%INIT>
<%ARGS>
</%ARGS>
|
