src/hg/encode/encodeValidate/doEncodeValidate.pl 1.209

1.209 2009/12/17 18:16:49 tdreszer
Special case code for cleaning up tablenames that are too long
Index: src/hg/encode/encodeValidate/doEncodeValidate.pl
===================================================================
RCS file: /projects/compbio/cvsroot/kent/src/hg/encode/encodeValidate/doEncodeValidate.pl,v
retrieving revision 1.208
retrieving revision 1.209
diff -b -B -U 4 -r1.208 -r1.209
--- src/hg/encode/encodeValidate/doEncodeValidate.pl	15 Dec 2009 20:25:31 -0000	1.208
+++ src/hg/encode/encodeValidate/doEncodeValidate.pl	17 Dec 2009 18:16:49 -0000	1.209
@@ -1832,9 +1832,17 @@
     # Delayed adding these terms to metadata so that resubmissions could have the looked up term
     $metadata .= " dateSubmitted=$dateSubmitted";
     $metadata .= " dateUnrestricted=$dateUnrestricted";
 
+    $tableName =~ "/Utaustin/Uta/";  # Special case for certain transgressors
+    if(length($tableName) > 64) {
+        $tableName =~ "/Hudsonalpha/Haib/" if length($tableName) > 64; # Special case for certain transgressors
+        $tableName =~ "/Sunyalbany/Sunya/" if length($tableName) > 64;
+        $tableName =~ "/Alignments/Aln/" if length($tableName) > 64;
+        $tableName =~ "/Signal/Sig/" if length($tableName) > 64;
+        $tableName =~ "/Control/Ctrl/" if length($tableName) > 64;
     die "Table name [$tableName] too long, must be <= 64 chars, got [".length($tableName)."]\n" if length($tableName) > 64;
+    }
 
 
     if($tableNamesUsed{$tableName}++) {
         dieTellWrangler("System Error: identical tableName '$tableName' was generated by multiple data sets\n");