[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.18, Wed Nov 10 23:28:45 2004 UTC revision 1.19, Tue Nov 16 03:29:35 2004 UTC
# Line 12  Line 12 
12  use CGI;  use CGI;
13    
14  my $cgi = new CGI;  my $cgi = new CGI;
   
15  if (0)  if (0)
16  {  {
17      my $VAR1;      my $VAR1;
# Line 783  Line 782 
782    
783      push(@$html, $cgi->end_form);      push(@$html, $cgi->end_form);
784    
785        my $target = "align$$";
786        my @roles = $subsystem->get_roles;
787        my $rolesA = [];
788        my $i;
789        my $dir = $subsystem->get_dir;
790        for ($i=1; ($i <= @roles); $i++)
791        {
792            if (-s "$dir/Alignments/$i/tree")
793            {
794                push(@$rolesA,"$i: $roles[$i-1]");
795            }
796        }
797        if (@$rolesA > 0)
798        {
799            push(@$html, $cgi->hr,
800                         $cgi->h1('To Assign Using a Tree'),
801                         $cgi->start_form(-action => "assign_using_tree.cgi",
802                                          -target => $target,
803                                          -method => 'post'),
804                         $cgi->hidden(-name => 'user', -value => $user, -override => 1),
805                         $cgi->hidden(-name => 'ali_dir', -value => "$dir/Alignments", -override => 1),
806                         $cgi->scrolling_list(-name => 'ali_num',
807                                              -values => $rolesA,
808                                              -size => 10,
809                                              -multiple => 0
810                                              ),
811                         $cgi->br,
812                         $cgi->submit(-value => "use_tree",
813                                      -name => "use_tree"),
814                         $cgi->end_form
815             );
816        }
817    
818      push(@$html, $cgi->hr);      push(@$html, $cgi->hr);
819    
820      if ($cgi->param('show_missing'))      if ($cgi->param('show_missing'))
# Line 1194  Line 1226 
1226              if ($cgi->param('can_alter'))              if ($cgi->param('can_alter'))
1227              {              {
1228                  $genomeV = $cgi->textfield(-name => "genome$genome", -size => 15, -value => $genome, -override => 1);                  $genomeV = $cgi->textfield(-name => "genome$genome", -size => 15, -value => $genome, -override => 1);
1229                  $vcodeV  = $cgi->textfield(-name => "vcode$genome", -value => $vcode_value, -size => 5);                  $vcodeV  = $cgi->textfield(-name => "vcode$genome", -value => $vcode_value, -size => 10);
1230              }              }
1231              else              else
1232              {              {

Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3