[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.2, Sat Jul 9 20:22:02 2005 UTC revision 1.3, Sat Jul 9 20:45:28 2005 UTC
# Line 74  Line 74 
74   $raelib->scrolling_org_list($cgi, 1),   $raelib->scrolling_org_list($cgi, 1),
75   $cgi->p("Please choose some subsystems from the list. You can choose more than one subsystem."),   $cgi->p("Please choose some subsystems from the list. You can choose more than one subsystem."),
76   $raelib->scrolling_subsys_list($cgi, 1),   $raelib->scrolling_subsys_list($cgi, 1),
77   $cgi->p,   $cgi->p;
78    
79     # just define the sort order
80     my $c=1;
81     foreach my $s (sort {uc($a) cmp uc($b)} $fig->all_subsystems) {push @$html, $cgi->hidden("sort$s", $c); $c++}
82    
83     push @$html,
84   $cgi->submit, $cgi->reset, $cgi->end_form;   $cgi->submit, $cgi->reset, $cgi->end_form;
85   return $html;   return $html;
86  }  }
# Line 84  Line 90 
90   # what genomes are we interested in?   # what genomes are we interested in?
91   my @genomes=$cgi->param('korgs');   my @genomes=$cgi->param('korgs');
92   # and subsystems   # and subsystems
93   my @ss=$cgi->param('subsystems');   my @ss=sort {$cgi->param("sort$a") <=> $cgi->param("sort$b") || uc($a) cmp uc($b)} $cgi->param('subsystems');
94   # go through the subsystems and get the variant codes   # go through the subsystems and get the variant codes
95   # we do this first because we can load a subsystem and then get all vcs for it. Then when we do the table, we buuild it   # we do this first because we can load a subsystem and then get all vcs for it. Then when we do the table, we buuild it
96   # genome by genome and not col by col   # genome by genome and not col by col
# Line 147  Line 153 
153   }   }
154    
155    
156     # finally we want to add the first line of the table which has the default sort order
157     my $firstrow=[['<b>Column Order</b>', 'td colspan=2 style="text-align: center"']];
158     for (my $i=0; $i<scalar(@ss); $i++) {
159      push @$firstrow, [$cgi->textfield(-name=>"sort$ss[$i]", -size=>4, -default=>$i+1), "td style='text-align: center'"];
160     }
161     unshift @$tab, $firstrow;
162    
163   push @$html,   push @$html,
164    "<center><h2>Subsystem Vectors</h2></center>",    "<center><h2>Subsystem Vectors</h2></center>",

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3