[prev in list] [next in list] [prev in thread] [next in thread] 

List:       rt-commit
Subject:    [Rt-commit] r8037 -
From:       ruz () bestpractical ! com
Date:       2007-06-28 11:43:53
Message-ID: 20070628114353.CDB354D821F () diesel ! bestpractical ! com
[Download RAW message or body]

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>
_______________________________________________
Rt-commit mailing list
Rt-commit@lists.bestpractical.com
http://lists.bestpractical.com/cgi-bin/mailman/listinfo/rt-commit
[prev in list] [next in list] [prev in thread] [next in thread]