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

Diff of /FigWebServices/check_variants.cgi

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

revision 1.6, Thu Oct 11 20:15:00 2007 UTC revision 1.7, Thu Oct 11 20:51:56 2007 UTC
# Line 93  Line 93 
93                                        -values => [ sort @sub ],                                        -values => [ sort @sub ],
94                                         -size   => 1                                         -size   => 1
95                                         ),$cgi->br,                                         ),$cgi->br,
96                  $cgi->h2('Roles'),$cgi->textarea( -name => 'roles', -rows => 20, columns => 100), $cgi->br, $cgi->hr,$cgi->br,                  $cgi->h2('Roles'),$cgi->textarea( -name => 'roles', -rows => 20, columns => 200), $cgi->br, $cgi->hr,$cgi->br,
97                  $cgi->h2('Definitions'),$cgi->textarea( -name => 'definitions', -rows => 20, columns => 100),  $cgi->hr,$cgi->br, $cgi->br,                  $cgi->h2('Definitions'),$cgi->textarea( -name => 'definitions', -rows => 20, columns => 200),  $cgi->hr,$cgi->br, $cgi->br,
98                  $cgi->h2('Rules'),$cgi->textarea( -name => 'rules', -rows => 20, columns => 100), $cgi->br,  $cgi->hr,$cgi->br,                  $cgi->h2('Rules'),$cgi->textarea( -name => 'rules', -rows => 20, columns => 200), $cgi->br,  $cgi->hr,$cgi->br,
99                  $cgi->submit( 'Compute Predicted Variant Codes' ),                  $cgi->submit( 'Compute Predicted Variant Codes' ),
100                  $cgi->end_form                  $cgi->end_form
101           );           );
# Line 252  Line 252 
252          elsif ($def =~ /\S/)          elsif ($def =~ /\S/)
253          {          {
254              push(@$html,$cgi->h1("Invalid Definition: $def"));              push(@$html,$cgi->h1("Invalid Definition: $def"));
255                $rc = 0;
256          }          }
257      }      }
258        return $rc;
259  }  }
260    
261  sub parse_rules {  sub parse_rules {
# Line 265  Line 267 
267          my($boolexp,$variant_code,$loc);          my($boolexp,$variant_code,$loc);
268          if (($_ =~ /^\s*(\S+)\s+(\S.*\S)\s*$/) &&          if (($_ =~ /^\s*(\S+)\s+(\S.*\S)\s*$/) &&
269              (($variant_code,$boolexp) = ($1,$2)) &&              (($variant_code,$boolexp) = ($1,$2)) &&
270              ($loc = &parse_bool($boolexp,$encoding,$abbrev_to_loc)))              defined($loc = &parse_bool($boolexp,$encoding,$abbrev_to_loc)))
271          {          {
272              push(@rules,[$variant_code,[$encoding->[0],$loc]]);              push(@rules,[$variant_code,[$encoding->[0],$loc]]);
273          }          }
# Line 317  Line 319 
319              $got = 1;              $got = 1;
320          }          }
321    
322          elsif ($s =~ s/(\d+)\s+of\s+\{\s*(<\d+>(,\s*<\d+>)+)\}/<$nxt>/)          elsif ($s =~ s/(\d+)\s+of\s+\{\s*(<\d+>(,\s*<\d+>)*)\s*\}/<$nxt>/)
323          {          {
324              my $n = $1;              my $n = $1;
325              my $args = $2;              my $args = $2;

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3