adding toArrayOfStrings subroutine needed by Bug.pm

This commit is contained in:
endico%mozilla.org 2000-06-13 09:45:12 +00:00
Родитель 805cc13312
Коммит 179965f8cd
2 изменённых файлов: 28 добавлений и 0 удалений

Просмотреть файл

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

Просмотреть файл

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