[Rt-commit] r8037 - rt/branches/3.7-EXPERIMENTAL-TUNIS/html/Ticket/Elements

[ruz at bestpractical.com]

Author: ruz
Date: Thu Jun 28 07:43:51 2007
New Revision: 8037

Modified:
   rt/branches/3.7-EXPERIMENTAL-TUNIS/html/Ticket/Elements/ShowGroupMembers

Log:
* show group members not recursively

Modified: rt/branches/3.7-EXPERIMENTAL-TUNIS/html/Ticket/Elements/ShowGroupMembers
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL-TUNIS/html/Ticket/Elements/ShowGroupMembers	(original)
+++ rt/branches/3.7-EXPERIMENTAL-TUNIS/html/Ticket/Elements/ShowGroupMembers	Thu Jun 28 07:43:51 2007
@@ -47,17 +47,18 @@
 %# END BPS TAGGED BLOCK }}}
 %# Released under the terms of version 2 of the GNU Public License
 
-% my $UserMembers = $Group->UserMembersObj;
-% while (my $member = $UserMembers->Next()) {
-<& /Elements/ShowUser, User => $member, Ticket => $Ticket &><br />
+% my $Users = $Group->UserMembersObj( Recursively => $Recursively );
+% while ( my $user = $Users->Next ) {
+<& /Elements/ShowUser, User => $user, Ticket => $Ticket &><br />
 % }
-% my $GroupMembers = $Group->MembersObj;
-% $GroupMembers->LimitToGroups();
-% while (my $member = $GroupMembers->Next()) {
-<&|/l&>Group</&>: <%$member->MemberObj->Object->Name%><br />
+% my $Groups = $Group->GroupMembersObj( Recursively => $Recursively );
+% $Groups->LimitToUserDefinedGroups;
+% while (my $group = $Groups->Next) {
+<&|/l&>Group</&>: <% $group->Name %><br />
 % }
 
 <%ARGS>
-$Group => undef
-$Ticket => undef
+$Group       => undef
+$Recursively => 0,
+$Ticket      => undef
 </%ARGS>