89cf9d0784b0c1529f4a3638c3255f5b407be611 hiram Wed Jul 31 18:42:44 2019 -0700 add makefile to function from this source directory and cleaner html output via W3C validator checking refs #23734 diff --git src/hg/makeDb/doc/VGP/mkGenomes.pl src/hg/makeDb/doc/VGP/mkGenomes.pl index c480f42..542171a 100755 --- src/hg/makeDb/doc/VGP/mkGenomes.pl +++ src/hg/makeDb/doc/VGP/mkGenomes.pl @@ -1,24 +1,27 @@ #!/usr/bin/env perl use strict; use warnings; use File::Basename; my %betterName; # key is asmId, value is common name -open (FH, "<commonNames.txt") or die "can not read commonNames.txt"; +my $home = $ENV{'HOME'}; +my $srcDir = "$home/kent/src/hg/makeDb/doc/VGP"; + +open (FH, "<$srcDir/commonNames.txt") or die "can not read $srcDir/commonNames.txt"; while (my $line = <FH>) { chomp $line; my ($asmId, $name) = split('\t', $line); $betterName{$asmId} = $name; } close (FH); my @orderList; # asmId of the assemblies in order from the *.list files # the order to read the different .list files: my $assemblyCount = 0; open (FH, "<commonNameOrder.list") or die "can not read commonNameOrder.list"; while (my $line = <FH>) { chomp $line; my ($commonName, $asmId) = split('\t', $line);