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

Diff of /FigKernelPackages/ACH.pm

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

revision 1.5, Mon Nov 30 13:52:36 2009 UTC revision 1.6, Mon Nov 30 17:39:47 2009 UTC
# Line 144  Line 144 
144          my %prots;          my %prots;
145          # We'll put our assertions found in here.          # We'll put our assertions found in here.
146          my @results;          my @results;
         MemTrace("Processing id $id in task $$.") if T(3); ##HACK  
147          # Determine the ID type.          # Determine the ID type.
148          if ($id =~ /^md5\|(.+)/) {          if ($id =~ /^md5\|(.+)/) {
149              # Here we have a protein sequence MD5 ID. In this case, we just              # Here we have a protein sequence MD5 ID. In this case, we just
# Line 170  Line 169 
169          # protein sequences to be small, despite the large amount of work          # protein sequences to be small, despite the large amount of work
170          # performed above.          # performed above.
171          for my $prot (sort keys %prots) {          for my $prot (sort keys %prots) {
             MemTrace("Processing protein $id in task $$.") if T(3); ##HACK  
172              # Get the assertions on the protein's identifiers.              # Get the assertions on the protein's identifiers.
173              @results = $sap->GetAll("ProteinSequence IsNamedBy Identifier HasAssertionFrom Source",              @results = $sap->GetAll("ProteinSequence IsNamedBy Identifier HasAssertionFrom Source",
174                                      "ProteinSequence(id) = ?", [$prot],                                      "ProteinSequence(id) = ?", [$prot],
# Line 183  Line 181 
181                                             Source(id) HasAssertionFrom(expert)                                             Source(id) HasAssertionFrom(expert)
182                                             Genome(scientific-name))]);                                             Genome(scientific-name))]);
183          }          }
         MemTrace("Processing results in task $$.") if T(3); ##HACK  
184          # If we found results, put them in the return object.          # If we found results, put them in the return object.
185          Trace(scalar(@results) . " results found for $id.") if T(3);          Trace(scalar(@results) . " results found for $id.") if T(3);
186          if (@results) {          if (@results) {

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3