Skip to content

bugzilla
bugzilla
Commit 09ac5d13 authored by endico%mozilla.org's avatar endico%mozilla.org
Browse files
Options

adding toArrayOfStrings subroutine needed by Bug.pm

parent 2559a21d
Hide whitespace changes
Inline Side-by-side
Showing with 28 additions and 0 deletions
Bugzilla/RelationSet.pm
View file @ 09ac5d13
...@@ -196,6 +196,20 @@ sub toArray { ...@@ -196,6 +196,20 @@ sub toArray {
return keys(%$self); 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) # return this set in string form (comma-separated and sorted)
# #
sub toString { sub toString {
......
RelationSet.pm
View file @ 09ac5d13
...@@ -196,6 +196,20 @@ sub toArray { ...@@ -196,6 +196,20 @@ sub toArray {
return keys(%$self); 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) # return this set in string form (comma-separated and sorted)
# #
sub toString { sub toString {
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment