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

Diff of /FigWebServices/genome_statistics.cgi

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

revision 1.19, Tue Aug 9 14:25:11 2005 UTC revision 1.20, Tue Aug 9 14:44:58 2005 UTC
# Line 216  Line 216 
216                     }                     }
217         keys(%in);         keys(%in);
218    
219      my $last = "";      my $last1 = "";
220        my $last2 = "";
221      foreach $tuple (@subs)      foreach $tuple (@subs)
222      {      {
223          $sub = pop @{$tuple};          $sub = pop @{$tuple};
224          my $topic = $tuple->[0];          my $topic = $tuple->[0];
225          if ($topic ne $last)  
226            if ($topic ne $last1)
227            {
228                push(@$html,$cgi->h1($topic));
229                $last1 = $topic;
230                $last2 = "";
231            }
232    
233            $topic = $tuple->[1] ? $tuple->[1] : "";
234            if ($topic && ($topic ne $last2))
235          {          {
236              push(@$html,$cgi->h2($topic));              push(@$html,$cgi->h2($topic));
237              $last = $topic;              $last2 = $topic;
238          }          }
239    
240          $sub_link = &sub_link($cgi,$sub);          $sub_link = &sub_link($cgi,$sub);
241          push(@$html,$cgi->h3($sub_link));          push(@$html,$cgi->h3($sub_link));
242    

Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3