Improve (debug) output of org update script

Refs #2831
pombase · Jun 10, 2024 · 031ef66 · 031ef66
1 parent cc76bb4
commit 031ef66
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/etc/reapply_species_strain_map.pl b/etc/reapply_species_strain_map.pl
@@ -61,6 +61,7 @@ BEGIN
 
 my $proc = sub {
   my $curs = shift;
+  my $curs_key = $curs->curs_key();
   my $curs_schema = shift;
   my $track_schema = shift;
 
@@ -95,8 +96,8 @@ BEGIN
     if (defined $new_org) {
       $genes_to_update{$gene->primary_identifier()} = 1;
 
-      print "updating ", $gene->primary_identifier(), " in CursDB\n";
-      print "  $gene_taxonid -> ", $new_org->taxonid(), "\n";
+      print "updating ", $gene->primary_identifier(), " in $curs_key\n";
+      print "  taxon ID $gene_taxonid -> ", $new_org->taxonid(), "\n";
       $gene->organism($new_org);
       $gene->update();
     }