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

Diff of /FigWebServices/subsys.cgi

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

revision 1.182, Mon Dec 18 02:24:07 2006 UTC revision 1.183, Wed Dec 20 16:43:05 2006 UTC
# Line 2681  Line 2681 
2681          }          }
2682    
2683    
2684          my $sort = $cgi->param('sort');          my $sort = $cgi->param('sort') || 'by_phylo';
         if ($sort)  
         {  
2685              if ($sort eq "by_pattern")              if ($sort eq "by_pattern")
2686              {              {
2687                  my @tmp = ();                  my @tmp = ();
# Line 2726  Line 2724 
2724              {              {
2725                  $tab = [sort     { ($a->[2] cmp $b->[2]) or ($a->[1] <=> $b->[1]) } @$tab];                  $tab = [sort     { ($a->[2] cmp $b->[2]) or ($a->[1] <=> $b->[1]) } @$tab];
2726              }              }
         }  
2727    
2728          foreach $row (@$tab)          foreach $row (@$tab)
2729          {          {
# Line 2797  Line 2794 
2794                       $cgi->popup_menu( -name   => 'sort',                       $cgi->popup_menu( -name   => 'sort',
2795                                         -values => [sort keys %sortmenu],                                         -values => [sort keys %sortmenu],
2796                                         -labels => \%sortmenu,                                         -labels => \%sortmenu,
2797                                           -default  => $sort,
2798                                           -override => 1
2799                                       );                                       );
2800    
2801          push(@$html,'<br><br>Enter comma-separated list of variants to display in spreadsheet<br>',          push(@$html,'<br><br>Enter comma-separated list of variants to display in spreadsheet<br>',

Legend:
Removed from v.1.182  
changed lines
  Added in v.1.183

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3