diff options
| -rw-r--r-- | Bugzilla/RelationSet.pm | 14 | ||||
| -rw-r--r-- | RelationSet.pm | 14 |
2 files changed, 28 insertions, 0 deletions
diff --git a/Bugzilla/RelationSet.pm b/Bugzilla/RelationSet.pm index ee402e7a4..92e2158f2 100644 --- a/Bugzilla/RelationSet.pm +++ b/Bugzilla/RelationSet.pm @@ -196,6 +196,20 @@ sub toArray { return keys(%$self); } +# return this set as an array of strings +# +sub toArrayOfStrings { + ($#_ == 0) || confess("invalid number of arguments"); + my $self = shift(); + + my @result = (); + foreach my $i ( keys %$self ) { + push @result, &::DBID_to_name($i); + } + + return sort(@result); +} + # return this set in string form (comma-separated and sorted) # sub toString { diff --git a/RelationSet.pm b/RelationSet.pm index ee402e7a4..92e2158f2 100644 --- a/RelationSet.pm +++ b/RelationSet.pm @@ -196,6 +196,20 @@ sub toArray { return keys(%$self); } +# return this set as an array of strings +# +sub toArrayOfStrings { + ($#_ == 0) || confess("invalid number of arguments"); + my $self = shift(); + + my @result = (); + foreach my $i ( keys %$self ) { + push @result, &::DBID_to_name($i); + } + + return sort(@result); +} + # return this set in string form (comma-separated and sorted) # sub toString { |