[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.12, Tue Oct 12 13:55:56 2004 UTC revision 1.13, Wed Oct 27 16:15:28 2004 UTC
# Line 545  Line 545 
545    
546          my(@param,$param,$genome,$val);          my(@param,$param,$genome,$val);
547          @param = grep { $_ =~ /^genome\d+\.\d+$/ } $cgi->param;          @param = grep { $_ =~ /^genome\d+\.\d+$/ } $cgi->param;
548    
549            my %removed;
550          foreach $param (@param)          foreach $param (@param)
551          {          {
552              if ($cgi->param($param) =~ /^\s*$/)              if ($cgi->param($param) =~ /^\s*$/)
# Line 552  Line 554 
554                  $param =~ /^genome(\d+\.\d+)/;                  $param =~ /^genome(\d+\.\d+)/;
555                  $genome = $1;                  $genome = $1;
556                  $subsystem->remove_genome($genome);                  $subsystem->remove_genome($genome);
557                    $removed{$genome} = 1;
558              }              }
559          }          }
560    
# Line 563  Line 566 
566                  $val = $1;                  $val = $1;
567                  $param =~ /^vcode(\d+\.\d+)/;                  $param =~ /^vcode(\d+\.\d+)/;
568                  $genome = $1;                  $genome = $1;
569                    if (! $removed{$genome})
570                    {
571                  $subsystem->set_variant_code($subsystem->get_genome_index($genome),$val);                  $subsystem->set_variant_code($subsystem->get_genome_index($genome),$val);
572              }              }
573          }          }
574            }
575    
576          if ($cgi->param('refill'))          if ($cgi->param('refill'))
577          {          {

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3