f81d9d27f273824d88236ee48736f674fe441092
hiram
  Mon May 27 08:52:41 2024 -0700
sciName for mosquitoes, bees, moths and sponges no redmine

diff --git src/hg/makeDb/doc/asmHubs/commonNames.pl src/hg/makeDb/doc/asmHubs/commonNames.pl
index f2fc9d7..ba83962 100755
--- src/hg/makeDb/doc/asmHubs/commonNames.pl
+++ src/hg/makeDb/doc/asmHubs/commonNames.pl
@@ -96,36 +96,40 @@
      $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/) {
+  } elsif ($orgName =~ m/bugs|crustaceans|nematodes|flatworm|ascomycete|basidiomycete|budding|microsporidian|smut|fungi|eukaryotes|flies|mosquitos|bees|moths|sponges/) {
     my ($order, undef) = split('\s', $orgName, 2);
     $order = "budding yeast" if ($order =~ m/budding/);
     $order = "smut fungi" if ($order =~ m/smut/);
     $order = "ascomycetes" if ($order =~ m/ascomycete/);
     $order = "crustacean" if ($order =~ m/crustaceans/);
+    $order = "mosquito" if ($order =~ m/mosquitos/);
+    $order = "bee" if ($order =~ m/bees/);
+    $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") {
     $orgName = `grep -i -m 1 "Organism name:" "${asmRpt}" | tr -d "
"`;
     chomp $orgName;