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

Diff of /FigWebServices/subsys_vectors.cgi

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

revision 1.10, Wed Jul 13 01:49:55 2005 UTC revision 1.11, Wed Jul 13 03:57:22 2005 UTC
# Line 145  Line 145 
145   # sort the columns in the appropriate way   # sort the columns in the appropriate way
146    
147   my %tempkey;   my %tempkey;
148   foreach (@ss) {$tempkey{$_}=$cgi->param("sort$_") or "a"} # this is a fake so if $cgi->param("sort$_") is undef it is still sorted   foreach (@ss) {$tempkey{$_}=$cgi->param("sort$_") or "1"} # this is a fake so if $cgi->param("sort$_") is undef it is still sorted
149   @ss=sort {   @ss=sort {
150                  $tempkey{$a} cmp $tempkey{$b} ||                  $tempkey{$a} <=> $tempkey{$b} ||
151                  uc($class->{$a}->[0]) cmp uc($class->{$b}->[0]) ||                  uc($class->{$a}->[0]) cmp uc($class->{$b}->[0]) ||
152                  uc($class->{$a}->[1]) cmp uc($class->{$b}->[1])                  uc($class->{$a}->[1]) cmp uc($class->{$b}->[1])
153            } keys %$vc;            } keys %$vc;

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3