001fb580a2cea33c231639073694e698dbb49a09
hiram
  Mon Jun 10 11:48:35 2024 -0700
manage the general name of bony fish, eudicots birds snakes bats refs #29545

diff --git src/hg/makeDb/doc/asmHubs/commonNames.pl src/hg/makeDb/doc/asmHubs/commonNames.pl
index 2cf208f..6b07122 100755
--- src/hg/makeDb/doc/asmHubs/commonNames.pl
+++ src/hg/makeDb/doc/asmHubs/commonNames.pl
@@ -96,44 +96,49 @@
      $extraStrings = "$asmType $yearDate";
      $extraStrings =~ s/^ +//;
   }
   my $orgName = `grep -i -m 1 "Organism name:" "${asmRpt}" | tr -d "
"`;
   $orgName =~ s/.*\(//;
   $orgName =~ s/\)//g;
   $orgName =~ s/\(//g;
   $orgName =~ s/\[//g;
   $orgName =~ s/\]//g;
   $orgName =~ s/\?/ /g;
   $orgName =~ s/\+//g;
   $orgName =~ s/\*//g;
   chomp $orgName;
   if ($orgName =~ m/kinetoplastids|firmicutes|proteobacteria|high G|enterobacteria|agent of/) {
     $orgName = $sciName;
-  } elsif ($orgName =~ m/bugs|crustaceans|nematodes|flatworm|ascomycete|basidiomycete|budding|microsporidian|smut|fungi|eukaryotes|flies|beetles|mosquitos|bees|moths|sponges|^mites|ticks|^comb|jellies|jellyfishes|chitons|bivalves/) {
+  } elsif ($orgName =~ m/bugs|crustaceans|nematodes|flatworm|ascomycete|basidiomycete|budding|microsporidian|smut|fungi|eukaryotes|flies|beetles|mosquitos|bees|moths|sponges|^mites|ticks|^comb|jellies|jellyfishes|chitons|bivalves|bony fishes|birds|eudicots|snakes|bats/) {
     my ($order, undef) = split('\s', $orgName, 2);
     $order = "budding yeast" if ($order =~ m/budding/);
     $order = "smut fungi" if ($order =~ m/smut/);
+    $order = "bony fish" if ($order =~ m/bony/);
     $order = "ascomycetes" if ($order =~ m/ascomycete/);
+    $order = "eudicot" if ($order =~ m/eudicots/);
+    $order = "bird" if ($order =~ m/birds/);
+    $order = "snake" if ($order =~ m/snakes/);
     $order = "crustacean" if ($order =~ m/crustaceans/);
     $order = "mosquito" if ($order =~ m/mosquitos/);
     $order = "mite/tick" if ($order =~ m/mites/);
     $order = "comb jelly" if ($order =~ m/comb/);
     $order = "jellyfish" if ($order =~ m/jellyfishes/);
     $order = "chiton" if ($order =~ m/chitons/);
     $order = "bivalve" if ($order =~ m/bivalves/);
     $order = "beetle" if ($order =~ m/beetles/);
     $order = "bee" if ($order =~ m/bees/);
+    $order = "bat" if ($order =~ m/bats/);
     $order = "moth" if ($order =~ m/moths/);
     $order = "sponge" if ($order =~ m/sponges/);
     $order = "flatworm" if ($order =~ m/flatworms/);
     $order = "nematode" if ($order =~ m/nematodes/);
     $order = "basidiomycetes" if ($order =~ m/basidiomycete/);
     my @a = split('\s+', $sciName);
     my $lastN = scalar(@a) - 1;
     if ($orgName =~ m/eukaryotes/) {
       $orgName = uc(substr($a[0], 0, 1)) . "." . "@a[1..$lastN]";
     } elsif ($orgName =~ m/flies/) {
       $orgName = "fly " . uc(substr($a[0], 0, 1)) . "." . "@a[1..$lastN]";
     } else {
       $orgName = "$order " . uc(substr($a[0], 0, 1)) . "." . "@a[1..$lastN]";
     }
   } elsif ($orgName eq "viruses") {