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

Diff of /FigWebServices/set_variants.cgi

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

revision 1.4, Mon Feb 13 23:49:31 2006 UTC revision 1.5, Mon Mar 20 02:01:08 2006 UTC
# Line 28  Line 28 
28  use CGI;  use CGI;
29  my $cgi = new CGI;  my $cgi = new CGI;
30    
31    my $user = $cgi->param('user');
32    
33    $fig->set_user($user);
34    
35  if (0)  if (0)
36  {  {
37      my $VAR1;      my $VAR1;
# Line 59  Line 63 
63  my($genome);  my($genome);
64    
65  my $html = [];  my $html = [];
66    unshift @$html, "<TITLE>Set Variants</TITLE>\n";
67    
68  my $subsys = $cgi->param('subsystem');  my $subsys = $cgi->param('subsystem');
69  if (! $subsys)  if (! $subsys)
70  {  {
# Line 75  Line 81 
81  }  }
82  elsif ($subsys && ($cgi->param('request') eq "show_variants"))  elsif ($subsys && ($cgi->param('request') eq "show_variants"))
83  {  {
84        push @$html, "<h1>Set variants for ", &HTML::sub_link($cgi, $subsys), "</h1>\n";
85      &show_variants($cgi,$fig,$html,$subsys);      &show_variants($cgi,$fig,$html,$subsys);
86  }  }
87  elsif ($subsys && ($cgi->param('request') eq "set_variants"))  elsif ($subsys && ($cgi->param('request') eq "set_variants"))
88  {  {
89        push @$html, "<h1>Set variants for ", &HTML::sub_link($cgi, $subsys), "</h1>\n";
90      &set_variants($cgi,$fig,$html,$subsys);      &set_variants($cgi,$fig,$html,$subsys);
91  }  }
92  else  else
# Line 94  Line 102 
102      push(@$html, $cgi->start_form(-action => "set_variants.cgi",      push(@$html, $cgi->start_form(-action => "set_variants.cgi",
103                                    -method => 'post'),                                    -method => 'post'),
104                   $cgi->hidden(-name => 'request', -value => 'show_variants', -override => 1),                   $cgi->hidden(-name => 'request', -value => 'show_variants', -override => 1),
105                     $cgi->hidden(-name => 'user', -value=>$user),
106                   $cgi->scrolling_list( -name   => 'subsystem',                   $cgi->scrolling_list( -name   => 'subsystem',
107                                         -values => [ map { $_->[0] } @$ssaP ],                                         -values => [ map { $_->[0] } @$ssaP ],
108                                         -size   => 10                                         -size   => 10
# Line 181  Line 190 
190          }          }
191      }      }
192      push(@$html,$cgi->start_form(-action => 'set_variants.cgi',-method => 'post'),      push(@$html,$cgi->start_form(-action => 'set_variants.cgi',-method => 'post'),
193                    $cgi->hidden(-name => 'user', -value=>$user),
194                  &HTML::make_table($col_hdrs,$tab,"Existing Patterns and Variant Codes"),                  &HTML::make_table($col_hdrs,$tab,"Existing Patterns and Variant Codes"),
195                  $cgi->hidden(-name => 'request', -value => 'set_variants', -override => 1),                  $cgi->hidden(-name => 'request', -value => 'set_variants', -override => 1),
196                  $cgi->hidden(-name => 'subsystem', -value => $subsys, -override => 1),                  $cgi->hidden(-name => 'subsystem', -value => $subsys, -override => 1),

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3