This commit was generated by cvs2svn to compensate for changes in r2523,
[freeside.git] / rt / webrt / Admin / Groups / index.html
1
2 <& /Admin/Elements/Header, Title => 'Admin/Groups' &>
3 <& /Admin/Elements/Tabs, current_tab => 'Admin/Groups/' &>
4
5 <& /Elements/TitleBoxStart, title => 'Select a group' &>
6
7 Pseudogroups:<BR>
8 <UL>
9 %while ( $Group = $PseudoGroups->Next) {
10 <LI><A HREF="Modify.html?id=<%$Group->id%>"><%$Group->Name%></a><BR>
11 %}
12
13 </UL>
14
15 Groups:<BR>
16 <UL>
17 <LI><A HREF="Modify.html?Create=1">Create a new group</A><BR><BR></LI>
18 %while ( $Group = $Groups->Next) {
19 <LI><A HREF="Modify.html?id=<%$Group->id%>"><%$Group->Name%></a><BR>
20 %}
21 </UL>
22
23 <& /Elements/TitleBoxEnd &>
24 <%INIT>
25 my ($Group);
26 my $PseudoGroups = new RT::Groups($session{'CurrentUser'});
27 $PseudoGroups->LimitToPseudo;
28 my $Groups = new RT::Groups($session{'CurrentUser'});
29 $Groups->LimitToReal;
30
31 </%INIT>
32 <%ARGS>
33 </%ARGS>