[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.6, Mon Sep 20 14:29:45 2004 UTC revision 1.7, Thu Sep 23 19:58:28 2004 UTC
# Line 498  Line 498 
498      }      }
499      else      else
500      {      {
501            my(@param,$param,$genome,$val);
502            @param = grep { $_ =~ /^genome\d+\.\d+$/ } $cgi->param;
503            foreach $param (@param)
504            {
505                if ($cgi->param($param) =~ /^\s*$/)
506                {
507                    $param =~ /^genome(\d+\.\d+)/;
508                    $genome = $1;
509                    $subsystem->remove_genome($genome);
510                }
511            }
512    
513            @param = grep { $_ =~ /^vcode\d+\.\d+$/ } $cgi->param;
514            foreach $param (@param)
515            {
516                if ($cgi->param($param) =~ /^\s*(\S+)\s*$/)
517                {
518                    $val = $1;
519                    $param =~ /^vcode(\d+\.\d+)/;
520                    $genome = $1;
521                    $subsystem->set_variant_code($subsystem->get_genome_index($genome),$val);
522                }
523            }
524    
525          if ($cgi->param('refill'))          if ($cgi->param('refill'))
526          {          {
527              &refill_spreadsheet($fig,$subsystem);              &refill_spreadsheet($fig,$subsystem);
# Line 1008  Line 1032 
1032          my($genome,@pegs,@cells,$set,$peg_set,$pair,$role,$suffix,$row,$peg,$color_of,$cell,%count,$color,@colors);          my($genome,@pegs,@cells,$set,$peg_set,$pair,$role,$suffix,$row,$peg,$color_of,$cell,%count,$color,@colors);
1033          foreach $genome (grep { $activeR{$_} } @in)          foreach $genome (grep { $activeR{$_} } @in)
1034          {          {
1035              $row = [$genome, &ext_genus_species($fig,$genome),$subsystem->get_variant_code($subsystem->get_genome_index($genome))];              my($genomeV,$vcodeV,$vcode_value);
1036                $vcode_value = $subsystem->get_variant_code($subsystem->get_genome_index($genome));
1037                if ($cgi->param('can_alter'))
1038                {
1039                    $genomeV = $cgi->textfield(-name => "genome$genome", -size => 15, -value => $genome, -override => 1);
1040                    $vcodeV  = $cgi->textfield(-name => "vcode$genome", -value => $vcode_value, -size => 5);
1041                }
1042                else
1043                {
1044                    push(@$html,$cgi->hidden(-name => "genome$genome", -value => $genome, -override => 1),
1045                                $cgi->hidden(-name => "vcode$genome", -value => $vcode_value));
1046                    $genomeV = $genome;
1047                    $vcodeV  = $vcode_value;
1048                }
1049                $row = [$genomeV, &ext_genus_species($fig,$genome),$vcodeV];
1050    
1051              @pegs = ();              @pegs = ();
1052              @cells = ();              @cells = ();

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3