[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.4, Tue Nov 3 21:20:07 2009 UTC revision 1.5, Mon Nov 30 13:52:36 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;
147            MemTrace("Processing id $id in task $$.") if T(3); ##HACK
148          # Determine the ID type.          # Determine the ID type.
149          if ($id =~ /^md5\|(.+)/) {          if ($id =~ /^md5\|(.+)/) {
150              # 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 169  Line 170 
170          # protein sequences to be small, despite the large amount of work          # protein sequences to be small, despite the large amount of work
171          # performed above.          # performed above.
172          for my $prot (sort keys %prots) {          for my $prot (sort keys %prots) {
173                MemTrace("Processing protein $id in task $$.") if T(3); ##HACK
174              # Get the assertions on the protein's identifiers.              # Get the assertions on the protein's identifiers.
175              @results = $sap->GetAll("ProteinSequence IsNamedBy Identifier HasAssertionFrom Source",              @results = $sap->GetAll("ProteinSequence IsNamedBy Identifier HasAssertionFrom Source",
176                                      "ProteinSequence(id) = ?", [$prot],                                      "ProteinSequence(id) = ?", [$prot],
# Line 181  Line 183 
183                                             Source(id) HasAssertionFrom(expert)                                             Source(id) HasAssertionFrom(expert)
184                                             Genome(scientific-name))]);                                             Genome(scientific-name))]);
185          }          }
186            MemTrace("Processing results in task $$.") if T(3); ##HACK
187          # If we found results, put them in the return object.          # If we found results, put them in the return object.
188          Trace(scalar(@results) . " results found for $id.") if T(3);          Trace(scalar(@results) . " results found for $id.") if T(3);
189          if (@results) {          if (@results) {

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3