src/hg/archaeStuff/scripts/make-genome-info 1.19

Index: src/hg/archaeStuff/scripts/make-genome-info
===================================================================
RCS file: /projects/compbio/cvsroot/kent/src/hg/archaeStuff/scripts/make-genome-info,v
retrieving revision 1.18
retrieving revision 1.19
diff -b -B -U 4 -r1.18 -r1.19
--- src/hg/archaeStuff/scripts/make-genome-info	10 Aug 2009 04:20:14 -0000	1.18
+++ src/hg/archaeStuff/scripts/make-genome-info	11 Feb 2010 01:22:07 -0000	1.19
@@ -212,9 +212,23 @@
     }
     
     if (defined($dbnames{$org_dbname})) {
 	$dbnames{$org_dbname}++;
-	$org_dbname =~ s/$strain_str/$strain_info/;
+#	$org_dbname =~ s/$strain_str/$strain_info/;
+	if (length($strain_info) > 22)
+	{
+	    $strain_str = substr($strain_info,0,22);
+	}
+	else
+	{
+	    $strain_str = $strain_info; 
+	}
+	$org_dbname = join("",
+                       lc(substr($org_genus,0,4)),
+                       ucfirst(substr($org_species,0,4)),
+                       "_",
+                       $strain_str);
+
 	$org_dbname =~ s/__/_/g;
     }
     else {
 	$dbnames{$org_dbname} = 1;