adding toArrayOfStrings subroutine needed by Bug.pm

git-svn-id: svn://10.0.0.236/trunk@72108 18797224-902f-48f8-a5cc-f745e15eee43
This commit is contained in:
endico%mozilla.org 2000-06-13 09:45:12 +00:00
parent bb910505ef
commit a2011746de
2 changed files with 28 additions and 0 deletions

View File

@ -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 {

View File

@ -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 {