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

Diff of /FigWebServices/check_subsys.cgi

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

revision 1.13, Sun Dec 31 23:45:17 2006 UTC revision 1.14, Mon Jan 1 00:04:54 2007 UTC
# Line 187  Line 187 
187      my @to_add = grep { $_->[1] eq 'maybe-add' } @checked;      my @to_add = grep { $_->[1] eq 'maybe-add' } @checked;
188    
189      my($entry,$vcodes,$genome,$gs,@roles);      my($entry,$vcodes,$genome,$gs,@roles);
190      foreach $entry (sort { &sort_order($a->[3],$b->[3]) } @to_add)      foreach $entry (sort { $a->[3] cmp $b->[5] } @to_add)
191      {      {
192          (undef,undef,undef,$vcodes,$genome,$gs,@roles) = @$entry;          (undef,undef,undef,$vcodes,$genome,$gs,@roles) = @$entry;
193          push(@$tab3,[$genome,$gs,$vcodes,join("<br>",@roles)]);          push(@$tab3,[$genome,$gs,$vcodes,join("<br>",@roles)]);
# Line 195  Line 195 
195      push(@$html,&HTML::make_table($col_hdrs3,$tab3,"Genomes that Should Be Considered For Addition"));      push(@$html,&HTML::make_table($col_hdrs3,$tab3,"Genomes that Should Be Considered For Addition"));
196  }  }
197    
 sub sort_order {  
     my($a,$b) = @_;  
   
     my @c1 = split(/,/,$a);  
     my @c2 = split(/,/,$b);  
     return $c2[0] <=> $c1[0];  
 }  
   
198  sub get_check_data {  sub get_check_data {
199      my($cgi,$subsys) = @_;      my($cgi,$subsys) = @_;
200      my @raw_output;      my @raw_output;

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3