[Bio] / FigKernelPackages / FIG.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/FIG.pm

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

revision 1.696, Fri Jun 20 20:27:49 2008 UTC revision 1.697, Fri Jun 20 20:35:19 2008 UTC
# Line 21125  Line 21125 
21125    
21126      my @ev_codes = &evidence_codes($fig,$peg);      my @ev_codes = &evidence_codes($fig,$peg);
21127      my $by_sub = {};      my $by_sub = {};
     #my @ilit;  
     #my @dlit;  
21128      my $ilit = {};      my $ilit = {};
21129      my $dlit = {};      my $dlit = {};
21130    
21131      push (@ev_codes, "dlit(8332479);gj");      # for testing
21132      push (@ev_codes, "dlit(1646786);gj");      #push (@ev_codes, "dlit(8332479);gj");
21133      push (@ev_codes, "ilit(1646786);fig|224308.1.peg.1063");      #push (@ev_codes, "dlit(1646786);gj");
21134      push (@ev_codes, "ilit(8332479);fig|279010.5.peg.2147");      #push (@ev_codes, "ilit(1646786);fig|224308.1.peg.1063");
21135      push (@ev_codes, "ilit(1646787);fig|224308.1.peg.1063");      #push (@ev_codes, "ilit(8332479);fig|279010.5.peg.2147");
21136        #push (@ev_codes, "ilit(1646787);fig|224308.1.peg.1063");
21137    
21138      foreach my $code (@ev_codes)      foreach my $code (@ev_codes)
21139      {      {
21140          if ($code =~ /^isu;(\S.*\S)/)                { $by_sub->{$1}->{'isu'} = 1  }          if ($code =~ /^isu;(\S.*\S)/)                { $by_sub->{$1}->{'isu'} = 1  }
21141          if ($code =~ /^icw\((\d+)\);(\S.*\S)/)       { $by_sub->{$2}->{'icw'} = $1 }          if ($code =~ /^icw\((\d+)\);(\S.*\S)/)       { $by_sub->{$2}->{'icw'} = $1 }
         #if ($code =~ /^ilit\((\d+)\);(\S.*\S)/)       { push (@ilit, ($2))}  
         #if ($code =~ /^dlit\((\d+)\);(\S.*\S)/)        { push (@dlit, $1)}  
21142          if ($code =~ /^ilit\((\d+)\);(\S.*\S)/)       { $ilit->{$2} = $1 }          if ($code =~ /^ilit\((\d+)\);(\S.*\S)/)       { $ilit->{$2} = $1 }
21143          if ($code =~ /^dlit\((\d+)\);(\S.*\S)/)        { $dlit->{$1} = 1 }          if ($code =~ /^dlit\((\d+)\);(\S.*\S)/)        { $dlit->{$1} = 1 }
21144    

Legend:
Removed from v.1.696  
changed lines
  Added in v.1.697

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3