diff options
Diffstat (limited to 'rt/webrt/Admin/Groups/index.html')
-rw-r--r-- | rt/webrt/Admin/Groups/index.html | 33 |
1 files changed, 33 insertions, 0 deletions
diff --git a/rt/webrt/Admin/Groups/index.html b/rt/webrt/Admin/Groups/index.html new file mode 100644 index 0000000..d419e7f --- /dev/null +++ b/rt/webrt/Admin/Groups/index.html @@ -0,0 +1,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> |