Fix undefined value in make_strain_key()

kimrutherford · kimrutherford · commit 73b0dcc6ad7e · 2024-06-13T01:20:01.000+12:00
Refs #2831
diff --git a/etc/reapply_species_strain_map.pl b/etc/reapply_species_strain_map.pl
@@ -62,7 +62,8 @@ sub make_strain_key
 {
   my $strain = shift;
 
-  return $strain->organism_id() . '-' . $strain->strain_name();
+  return $strain->organism_id() . '-' .
+    ($strain->track_strain_id() // $strain->strain_name());
 }
 
 my $proc = sub {

Original file line number	Diff line number	Diff line change
`@@ -62,7 +62,8 @@ sub make_strain_key`
`62`	`62`	`{`
`63`	`63`	`my $strain = shift;`
`64`	`64`
`65`		`- return $strain->organism_id() . '-' . $strain->strain_name();`
	`65`	`+ return $strain->organism_id() . '-' .`
	`66`	`+ ($strain->track_strain_id() // $strain->strain_name());`
`66`	`67`	`}`
`67`	`68`
`68`	`69`	`my $proc = sub {`