[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.8, Tue Oct 23 14:57:48 2007 UTC revision 1.9, Tue Oct 23 15:32:14 2007 UTC
# Line 288  Line 288 
288      {      {
289          my $loc = $abbrev_to_loc->{$abbrev};          my $loc = $abbrev_to_loc->{$abbrev};
290          my $abbrevQ = quotemeta $abbrev;          my $abbrevQ = quotemeta $abbrev;
291          while ($s =~ s/(^|[\s\{,])($abbrevQ)($|[\s\},])/$1<$loc>$3/) {}          while ($s =~ s/(^|[\s\{,(])($abbrevQ)($|[\s\},)])/$1<$loc>$3/) {}
292      }      }
293      my $got = 0;      my $got = 0;
294      while ($s !~ /^\s*<\d+>\s*$/)      while ($s !~ /^\s*<\d+>\s*$/)

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3