diff options
Diffstat (limited to 'Bugzilla')
| -rw-r--r-- | Bugzilla/User.pm | 46 |
1 files changed, 46 insertions, 0 deletions
diff --git a/Bugzilla/User.pm b/Bugzilla/User.pm index 71e2358fe..a40450076 100644 --- a/Bugzilla/User.pm +++ b/Bugzilla/User.pm @@ -21,6 +21,7 @@ # Erik Stambaugh <erik@dasbistro.com> # Bradley Baetz <bbaetz@acm.org> # Joel Peshkin <bugreport@peshkin.net> +# Byron Jones <bugzilla@glob.com.au> ################################################################################ # Module Initialization @@ -888,6 +889,45 @@ sub email_prefs { return $self->{email_prefs}; } +sub get_userlist { + my $self = shift; + + return $self->{'userlist'} if defined $self->{'userlist'}; + + my $query = "SELECT DISTINCT login_name, realname,"; + if (&::Param('usevisibilitygroups')) { + $query .= " COUNT(group_id) "; + } else { + $query .= " 1 "; + } + $query .= "FROM profiles "; + if (&::Param('usevisibilitygroups')) { + $query .= "LEFT JOIN user_group_map " . + "ON user_group_map.user_id = userid AND isbless = 0 " . + "AND group_id IN(" . + join(', ', (-1, @{$self->visible_groups_inherited})) . ") " . + "AND grant_type <> " . GRANT_DERIVED; + } + $query .= " WHERE disabledtext = '' GROUP BY userid"; + + my $dbh = Bugzilla->dbh; + my $sth = $dbh->prepare($query); + $sth->execute; + + my @userlist; + while (my($login, $name, $visible) = $sth->fetchrow_array) { + push @userlist, { + login => $login, + identity => $name ? "$name <$login>" : $login, + visible => $visible, + }; + } + @userlist = sort { lc $$a{'identity'} cmp lc $$b{'identity'} } @userlist; + + $self->{'userlist'} = \@userlist; + return $self->{'userlist'}; +} + 1; __END__ @@ -1032,6 +1072,12 @@ the user can select bugs. If the $by_id parameter is true, it returns a hash where the keys are the product ids and the values are the product names. +=item C<get_userlist> + +Returns a reference to an array of users. The array is populated with hashrefs +containing the login, identity and visibility. Users that are not visible to this +user will have 'visible' set to zero. + =item C<visible_groups_inherited> Returns a list of all groups whose members should be visible to this user. |