[project @ 2001-11-17 06:31:40 by doogie]

[debbugs.git] / cgi / common.pl

diff --git a/cgi/common.pl b/cgi/common.pl
index e80d4889f7bfd6ca3c96207ef6b515d4ef83af54..9ae3acb6291a20ab08ac3f462f7506309b8af642 100644 (file)
--- a/cgi/common.pl
+++ b/cgi/common.pl
@@ -451,6 +451,17 @@ sub getbugstatus {
     return \%status;
 }
 
+sub getsrcpkgs {
+    my $src = shift;
+
+    my %pkgsrc = %{getpkgsrc()};
+    my @pkgs;
+    foreach ( keys %pkgsrc ) {
+       push @pkgs, $_ if $pkgsrc{$_} eq $src;
+    }
+    return @pkgs;
+}
+   
 sub buglog {
     my $bugnum = shift;