Debbugs/SOAP/Status.pm

   1 package Debbugs::SOAP::Status;
   2
   3 # This is a hack that must be removed
   4 require '/home/don/projects/debbugs/source/cgi/common.pl';
   5 #use Debbugs::Status qw(getbugstatus);
   6
   7 sub get_status {
   8     my ($class, @bugs) = @_;
   9     @bugs = map {ref($_)?@{$_}:$_} @bugs;
  10
  11     my %s;
  12     foreach (@bugs) {
  13         my $hash = getbugstatus($_);
  14         if (scalar(%{$hash}) > 0) {
  15             $s{$_} = $hash;
  16         }
  17     }
  18
  19     return \%s;
  20 }
  21
  22 1;