Skip to content
Snippets Groups Projects
Commit 34377e8e authored by Andreas Kusalananda Kähäri's avatar Andreas Kusalananda Kähäri
Browse files

When looking for the highest used number of a stable ID type, take both

ASMPATCH and ENS stable IDs into account (will need further tweaking).

Relax restriction on format of stable IDs slightly.
parent 791bb28a
No related branches found
No related tags found
No related merge requests found
...@@ -135,7 +135,7 @@ sub initial_stable_id { ...@@ -135,7 +135,7 @@ sub initial_stable_id {
my $sql = qq( my $sql = qq(
SELECT MAX(stable_id) SELECT MAX(stable_id)
FROM ${type}_stable_id FROM ${type}_stable_id
WHERE stable_id LIKE "ENS%" WHERE (stable_id LIKE "ENS%" OR stable_id LIKE "ASMPATCH%")
); );
$init_stable_id = $self->fetch_value_from_db($s_dbh, $sql); $init_stable_id = $self->fetch_value_from_db($s_dbh, $sql);
...@@ -196,7 +196,7 @@ sub increment_stable_id { ...@@ -196,7 +196,7 @@ sub increment_stable_id {
$stable_id ) ); $stable_id ) );
} }
$stable_id =~ /(ENS|ASMPATCH)([A-Z]{1,4})(\d{11})/; $stable_id =~ /^(ENS|ASMPATCH)([A-Z]+)(\d+)$/;
my $number = $3; my $number = $3;
my $new_stable_id = $1 . $2 . ( ++$number ); my $new_stable_id = $1 . $2 . ( ++$number );
...@@ -225,7 +225,7 @@ sub is_valid { ...@@ -225,7 +225,7 @@ sub is_valid {
my ( $self, $stable_id ) = @_; my ( $self, $stable_id ) = @_;
if ( defined($stable_id) ) { if ( defined($stable_id) ) {
if ( $stable_id =~ /^(ENS|ASMPATCH)([A-Z]{1,4})(\d{11})/ if ( $stable_id =~ /^(ENS|ASMPATCH)([A-Z]+)(\d+)$/
|| $stable_id =~ /^LRG/ ) || $stable_id =~ /^LRG/ )
{ {
return 1; return 1;
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment