[Bio] / FigWebServices / sgv.cgi Repository:
ViewVC logotype

Diff of /FigWebServices/sgv.cgi

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2, Mon Dec 14 02:27:14 2009 UTC revision 1.3, Mon Dec 14 02:36:52 2009 UTC
# Line 131  Line 131 
131      {      {
132          chomp;          chomp;
133          my($subsys,$role,$peg) = split(/\t/,$_);          my($subsys,$role,$peg) = split(/\t/,$_);
134            if ($ss{$subsys})
135            {
136          my $class = ($_ = $ssH->{$subsys}) ? join("; ",@$_) : "";          my $class = ($_ = $ssH->{$subsys}) ? join("; ",@$_) : "";
137          print INDEX join("\t",($class,$subsys,$role,$ss{$subsys},$peg)),"\n";          print INDEX join("\t",($class,$subsys,$role,$ss{$subsys},$peg)),"\n";
138      }      }
139        }
140      close(INDEX);      close(INDEX);
141  }  }
142    

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3