[Bio] / FigKernelPackages / FIG.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/FIG.pm

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

revision 1.127, Sun Jul 18 22:58:36 2004 UTC revision 1.128, Sun Jul 25 21:48:15 2004 UTC
# Line 6152  Line 6152 
6152      {      {
6153          push(@links, map { $_->[0] } @$relational_db_response);          push(@links, map { $_->[0] } @$relational_db_response);
6154      }      }
6155      return @links;      return sort { $a =~ /\>([^\<]+)\<\/a\>/; my $l1 = $1;
6156                      $b =~ /\>([^\<]+)\<\/a\>/; my $l2 = $1;
6157                      $a cmp $b } @links;
6158  }  }
6159    
6160  # Each link is a 2-tuple [peg,link]  # Each link is a 2-tuple [peg,link]

Legend:
Removed from v.1.127  
changed lines
  Added in v.1.128

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3