avoid creating unknown packages when loading bugs

[debbugs.git] / Debbugs / DB / ResultSet / BinPkg.pm

diff --git a/Debbugs/DB/ResultSet/BinPkg.pm b/Debbugs/DB/ResultSet/BinPkg.pm
index b89cb40fdcd4ee3490a9dead5b5a926bd62c0a4a..e938cdaf294ce1bd0fb3d009f30ed10cffa79083 100644 (file)
--- a/Debbugs/DB/ResultSet/BinPkg.pm
+++ b/Debbugs/DB/ResultSet/BinPkg.pm
@@ -42,6 +42,18 @@ sub bin_pkg_and_ver_in_suite {
 
 
 sub get_bin_pkg_id {
+    my ($self,$pkg) = @_;
+    return $self->result_source->schema->storage->
+       dbh_do(sub {
+                  my ($s,$dbh,$bin_pkg) = @_;
+                  return select_one($dbh,<<'SQL',$bin_pkg);
+SELECT id FROM bin_pkg where pkg = ?;
+SQL
+              },
+              $pkg
+             );
+}
+sub get_or_create_bin_pkg_id {
     my ($self,$pkg) = @_;
     return $self->result_source->schema->storage->
        dbh_do(sub {