[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.7, Thu Sep 23 19:58:28 2004 UTC revision 1.8, Tue Sep 28 20:39:39 2004 UTC
# Line 895  Line 895 
895      if (@subset_names > 1)      if (@subset_names > 1)
896      {      {
897          my $active_subsetC = ($cgi->param('active_subsetC') or $subsystem->get_active_subsetC );          my $active_subsetC = ($cgi->param('active_subsetC') or $subsystem->get_active_subsetC );
   
898          push(@$html,$cgi->scrolling_list(-name => 'active_subsetC',          push(@$html,$cgi->scrolling_list(-name => 'active_subsetC',
899                                           -values => [sort @subset_names],                                           -values => [@subset_names],
900                                           -default => $active_subsetC                                           -default => $active_subsetC
901                                           ),                                           ),
902                      $cgi->br                      $cgi->br
# Line 1034  Line 1033 
1033          {          {
1034              my($genomeV,$vcodeV,$vcode_value);              my($genomeV,$vcodeV,$vcode_value);
1035              $vcode_value = $subsystem->get_variant_code($subsystem->get_genome_index($genome));              $vcode_value = $subsystem->get_variant_code($subsystem->get_genome_index($genome));
1036              if ($cgi->param('can_alter'))              $row = [$genome, &ext_genus_species($fig,$genome),$vcode_value];
             {  
                 $genomeV = $cgi->textfield(-name => "genome$genome", -size => 15, -value => $genome, -override => 1);  
                 $vcodeV  = $cgi->textfield(-name => "vcode$genome", -value => $vcode_value, -size => 5);  
             }  
             else  
             {  
                 push(@$html,$cgi->hidden(-name => "genome$genome", -value => $genome, -override => 1),  
                             $cgi->hidden(-name => "vcode$genome", -value => $vcode_value));  
                 $genomeV = $genome;  
                 $vcodeV  = $vcode_value;  
             }  
             $row = [$genomeV, &ext_genus_species($fig,$genome),$vcodeV];  
1037    
1038              @pegs = ();              @pegs = ();
1039              @cells = ();              @cells = ();
# Line 1088  Line 1075 
1075          {          {
1076              if ($sort eq "by_variant")              if ($sort eq "by_variant")
1077              {              {
1078                  $tab = [sort { ($a->[2] cmp $b->[2]) or ($a->[1] cmp $b->[1]) } @$tab];                  my @tmp = ();
1079                    my $row;
1080                    foreach $row (@$tab)
1081                    {
1082                        my @var = ();
1083                        my $i;
1084                        for ($i=3; ($i < @$row); $i++)
1085                        {
1086                            push(@var, ($row->[$i] =~ /fig\|/) ? 1 : 0);
1087                        }
1088                        push(@tmp,[join("",@var),$row]);
1089                    }
1090                    $tab = [map { $_->[1] } sort { $a->[0] cmp $b->[0] } @tmp];
1091              }              }
1092              elsif ($sort eq "by_phylo")              elsif ($sort eq "by_phylo")
1093              {              {
# Line 1107  Line 1106 
1106              }              }
1107          }          }
1108    
1109            foreach $row (@$tab)
1110            {
1111                my($genomeV,$vcodeV,$vcode_value);
1112                $genome = $row->[0];
1113                $vcode_value = $row->[2];
1114                if ($cgi->param('can_alter'))
1115                {
1116                    $genomeV = $cgi->textfield(-name => "genome$genome", -size => 15, -value => $genome, -override => 1);
1117                    $vcodeV  = $cgi->textfield(-name => "vcode$genome", -value => $vcode_value, -size => 5);
1118                }
1119                else
1120                {
1121                    push(@$html,$cgi->hidden(-name => "genome$genome", -value => $genome, -override => 1),
1122                                $cgi->hidden(-name => "vcode$genome", -value => $vcode_value));
1123                    $genomeV = $genome;
1124                    $vcodeV  = $vcode_value;
1125                }
1126                $row->[0] = $genomeV;
1127                $row->[2] = $vcodeV;
1128            }
1129    
1130          my $tab1 = [];          my $tab1 = [];
1131          foreach $row (@$tab)          foreach $row (@$tab)
1132          {          {

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3