diff options
Diffstat (limited to 'rt/share/html/Ticket/Elements/ShowGroupMembers')
| -rw-r--r-- | rt/share/html/Ticket/Elements/ShowGroupMembers | 26 |
1 files changed, 10 insertions, 16 deletions
diff --git a/rt/share/html/Ticket/Elements/ShowGroupMembers b/rt/share/html/Ticket/Elements/ShowGroupMembers index 66b5ff956..dc5cc6b42 100644 --- a/rt/share/html/Ticket/Elements/ShowGroupMembers +++ b/rt/share/html/Ticket/Elements/ShowGroupMembers @@ -2,7 +2,7 @@ %# %# COPYRIGHT: %# -%# This software is Copyright (c) 1996-2014 Best Practical Solutions, LLC +%# This software is Copyright (c) 1996-2015 Best Practical Solutions, LLC %# <sales@bestpractical.com> %# %# (Except where explicitly superseded by other copyright notices) @@ -46,22 +46,16 @@ %# %# END BPS TAGGED BLOCK }}} %# Released under the terms of version 2 of the GNU Public License - -% my $Users = $Group->UserMembersObj( Recursively => $Recursively ); -% while ( my $user = $Users->Next ) { -<& /Elements/ShowUser, User => $user, Ticket => $Ticket &> -<& /Elements/ShowUserEmailFrequency, User => $user, Ticket => $Ticket &> -% $m->callback( User => $user, Ticket => $Ticket, %ARGS, CallbackName => 'AboutThisUser' ); -<br /> -% } -% my $Groups = $Group->GroupMembersObj( Recursively => $Recursively ); -% $Groups->LimitToUserDefinedGroups; -% while (my $group = $Groups->Next) { -<&|/l&>Group</&>: <% $group->Name %><br /> -% } - +<%init> +my $post_user = sub { + my $user = shift; + $m->comp("/Elements/ShowUserEmailFrequency", User => $user, Ticket => $Ticket); + $m->callback( User => $user, Ticket => $Ticket, %ARGS, CallbackName => 'AboutThisUser', CallbackPage => '/Ticket/Elements/ShowGroupMembers' ); +}; +$m->comp("/Elements/ShowPrincipal", Object => $Group, Separator => "<br />", PostUser => $post_user, Link => $Link); +</%init> <%ARGS> $Group => undef -$Recursively => 0, $Ticket => undef +$Link => 1 </%ARGS> |