9d98499c2484b4bb31788c4e20d9c145c2a6ae92 hiram Thu Jul 18 14:10:32 2024 -0700 eliminate the useless "Organism name:" from the common name string refs #33720 diff --git src/hg/makeDb/doc/asmHubs/commonNames.pl src/hg/makeDb/doc/asmHubs/commonNames.pl index 6b07122..21cb25e 100755 --- src/hg/makeDb/doc/asmHubs/commonNames.pl +++ src/hg/makeDb/doc/asmHubs/commonNames.pl @@ -93,30 +93,31 @@ $extraStrings = "${cultivar}$asmType $yearDate"; } if ( length("${extraStrings}") < 1) { $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; + $orgName =~ s/.*ism name:\s+//i; 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|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/);