Debbugs/SOAP/Usertag.pm

   1 package Debbugs::SOAP::Usertag;
   2
   3 use Debbugs::User;
   4
   5 sub get_usertag {
   6     my ($class, $email, $tag) = @_;
   7     my %ut = ();
   8     Debbugs::User::read_usertags(\%ut, $email);
   9     if (defined($tag) and $tag ne "") {
  10         # Remove unwanted tags
  11         foreach (keys %ut) {
  12             delete $ut{$_} unless $_ eq $tag;
  13         }
  14     }
  15     return \%ut;
  16 }
  17
  18 1;