Package member key is the fully-qualified name; fix error in get

[debbugs.git] / Debbugs / Bugs.pm

diff --git a/Debbugs/Bugs.pm b/Debbugs/Bugs.pm
index 5150d11c3c34565c4e7ed59bf0da4e3ce1e78652..5879f724b5564cbb4e99ad9a6a70c9e939f992c6 100644 (file)
--- a/Debbugs/Bugs.pm
+++ b/Debbugs/Bugs.pm
@@ -560,6 +560,7 @@ sub get_bugs_by_db{
      }
      if (exists $param{affects}) {
         my @aff_list = make_list($param{affects});
+        s/^src:// foreach @aff_list;
          $rs = $rs->search({-or => {'bin_pkg.pkg' =>
                                    [@aff_list],
                                    'src_pkg.pkg' =>
@@ -577,7 +578,7 @@ sub get_bugs_by_db{
      if (exists $param{package}) {
          $rs = $rs->search({-or => {'bin_pkg.pkg' =>
                                    [make_list($param{package})],
-                                   'me.unknown.package' =>
+                                   'me.unknown_packages' =>
                                    [make_list($param{package})]},
                           },
                           {join => {bug_binpackages => 'bin_pkg'}});
@@ -608,7 +609,7 @@ sub get_bugs_by_db{
         $rs = $rs->search({-or => {'bug_binpackages.bin_pkg' =>
                                   { -in => $bin_pkgs_rs->get_column('id')->as_query},
                                    'bug_srcpackages.src_pkg' => 
-                                  { -in => $bin_pkgs_rs->get_column('id')->as_query},
+                                  { -in => $src_pkgs_rs->get_column('id')->as_query},
                                   },
                           },
                          {join => ['bug_binpackages',
@@ -623,7 +624,8 @@ sub get_bugs_by_db{
             search({-or => [map {('me.pkg' => $_,
                                  )}
                             make_list($param{src})],
-                    columns => ['id'],
+                   },
+                  { columns => ['id'],
                     group_by => ['me.id'],
                    },
                   );
@@ -639,9 +641,9 @@ sub get_bugs_by_db{
                   });
          $rs = $rs->search({-or => {'bug_binpackages.bin_pkg' =>
                                   { -in => $bin_pkgs_rs->get_column('id')->as_query},
-                                   'bug_srcpackages.src_pkg' => 
-                                  { -in => $bin_pkgs_rs->get_column('id')->as_query},
-                                   'me.unknown_package' =>
+                                   'bug_srcpackages.src_pkg' =>
+                                  { -in => $src_pkgs_rs->get_column('id')->as_query},
+                                   'me.unknown_packages' =>
                                    [make_list($param{src})],
                                   },
                           },