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

Diff of /FigWebServices/lock_subsys.cgi

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

revision 1.1, Sat Dec 23 03:43:50 2006 UTC revision 1.2, Sat Dec 23 04:32:47 2006 UTC
# Line 87  Line 87 
87  }  }
88  elsif ($cgi->param('lock annotations'))  elsif ($cgi->param('lock annotations'))
89  {  {
90      my @orgs = $cgi->param('genome_to_lock');      my @orgs;
91        if ($cgi->param('select_all_genomes'))
92        {
93            @orgs = map { $_->[0] } @{$fig->subsystem_genomes($subsys)};
94        }
95        else
96        {
97            @orgs  = $cgi->param('genome_to_lock');
98      @orgs = map { $_ =~ /^(\d+\.\d+)/; $1 } @orgs;      @orgs = map { $_ =~ /^(\d+\.\d+)/; $1 } @orgs;
99      my @roles = $cgi->param('roles_to_lock');      }
100    
101        my @roles ;
102        if ($cgi->param('select_all_roles'))
103        {
104            @roles = $fig->subsystem_to_roles($subsys);
105        }
106        else
107        {
108            @roles = $cgi->param('roles_to_lock');
109        }
110      push(@$html,"<br>");      push(@$html,"<br>");
111    
112      foreach my $genome (@orgs)      foreach my $genome (@orgs)
# Line 108  Line 125 
125  }  }
126  elsif ($cgi->param('unlock annotations'))  elsif ($cgi->param('unlock annotations'))
127  {  {
128      my @orgs = $cgi->param('genome_to_lock');      my @orgs;
129        if ($cgi->param('select_all_genomes'))
130        {
131            @orgs = map { $_->[0] } @{$fig->subsystem_genomes($subsys)};
132        }
133        else
134        {
135            @orgs  = $cgi->param('genome_to_lock');
136      @orgs = map { $_ =~ /^(\d+\.\d+)/; $1 } @orgs;      @orgs = map { $_ =~ /^(\d+\.\d+)/; $1 } @orgs;
137      my @roles = $cgi->param('roles_to_lock');      }
138    
139        my @roles ;
140        if ($cgi->param('select_all_roles'))
141        {
142            @roles = $fig->subsystem_to_roles($subsys);
143        }
144        else
145        {
146            @roles = $cgi->param('roles_to_lock');
147        }
148      push(@$html,"<br>");      push(@$html,"<br>");
149    
150      foreach my $genome (@orgs)      foreach my $genome (@orgs)
# Line 327  Line 361 
361                                         -values   => [ @orgs ],                                         -values   => [ @orgs ],
362                                          -size     => 10,                                          -size     => 10,
363                                          -multiple => 1                                          -multiple => 1
364                                         ),<br>,                                         ),
365                     $cgi->checkbox(-name => 'select_all_genomes', -value => 1, -checked => 0, -override => 1,
366                                    -label => 'select all genomes'),
367                     "<br>",
368                   $cgi->scrolling_list(  -name     => 'roles_to_lock',                   $cgi->scrolling_list(  -name     => 'roles_to_lock',
369                                          -values   => [ @roles ],                                          -values   => [ @roles ],
370                                          -size     => 10,                                          -size     => 10,
371                                          -multiple => 1                                          -multiple => 1
372                                          ),"<br>");                                          ),
373                     $cgi->checkbox(-name => 'select_all_roles', -value => 1, -checked => 0, -override => 1,
374                                    -label => 'select all roles'),
375                    "<br>");
376    
377      push(@$html,$cgi->submit('lock annotations')," OR ");      push(@$html,$cgi->submit('lock annotations')," OR ");
378      push(@$html,$cgi->submit('unlock annotations'),$cgi->br);      push(@$html,$cgi->submit('unlock annotations'),$cgi->br);

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3