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

Index: src/hg/encode/encodeValidate/doEncodeValidate.pl
===================================================================
RCS file: /projects/compbio/cvsroot/kent/src/hg/encode/encodeValidate/doEncodeValidate.pl,v
retrieving revision 1.174
retrieving revision 1.175
diff -b -B -U 4 -r1.174 -r1.175
--- src/hg/encode/encodeValidate/doEncodeValidate.pl	7 Apr 2009 00:15:53 -0000	1.174
+++ src/hg/encode/encodeValidate/doEncodeValidate.pl	7 Apr 2009 18:15:57 -0000	1.175
@@ -1549,8 +1549,9 @@
     my $subGroups = "view=$view";
     my $additional = "\n";
     my $pushQDescription = "";
     my $species;
+    my $tier1 = 0;
     if (@variables) {
         my %hash = map { $_ => $ddfLine->{$_} } @variables;
         for my $var (@variables) {
             my $val = $hash{$var};
@@ -1590,8 +1591,9 @@
         } elsif ($hash{"cell"}) {
             $pushQDescription = "$hash{'cell'}";
             $shortSuffix = "$hash{'cell'}";
             $longSuffix = "in $hash{'cell'} cells";
+            $tier1 = 1 if ($hash{'cell'} eq 'GM12878' || $hash{'cell'} eq 'K562');
         } else {
 	    warn "Warning: variables undefined for pushQDescription,shortSuffix,longSuffix\n";
 	}
         if(defined($shortViewMap{$view})) {
@@ -1669,9 +1671,15 @@
     }
     if(!$downloadOnly) {
         print TRACK_RA "    track $tableName\n";
         print TRACK_RA "    release alpha\n";
+        if ($tier1 eq 1) {
+            # default to only Tier1 subtracks visible.  Wrangler should review if this is 
+            #   correct for the track
         print TRACK_RA "    subTrack $compositeTrack\n";
+        } else {
+            print TRACK_RA "    subTrack $compositeTrack off\n";
+        }
         print TRACK_RA "    shortLabel $shortLabel\n";
         print TRACK_RA "    longLabel $longLabel\n";
         print TRACK_RA "    subGroups $subGroups\n";
         if($type eq 'wig') {