Moved get_blank_factor to BaseParser.pm so it can be used elsewhere.

misc-scripts/regulatory_regions/RegulatoryFeatureParser/cisred.pm

@@ -290,30 +290,6 @@ sub parse {
 
 }
 
-
-sub get_blank_factor_id () {
-
-  my ($self, $db_adaptor) = @_;
-
-  my $sth = $db_adaptor->dbc->prepare("SELECT regulatory_factor_id FROM regulatory_factor WHERE name=''");
-  $sth->execute();
-
-  my ($factor_id) = $sth->fetchrow_array();
-
-  if ($factor_id) {
-    print "Found existing blank factor, id = $factor_id\n";
-  } else {
-     $db_adaptor->dbc->do("INSERT INTO regulatory_factor (name) VALUES ('')");
-     $sth->execute();
-     ($factor_id) = $sth->fetchrow_array();
-     print "Created new blank factor, id = $factor_id\n";
-  }
-
-  return $factor_id;
-
-}
-
-
 sub new {
 
   my $self = {};