[Bio] / Sprout / FeatureSaplingLoader.pm Repository:
ViewVC logotype

Diff of /Sprout/FeatureSaplingLoader.pm

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

revision 1.15, Fri Jun 24 20:46:53 2011 UTC revision 1.16, Mon Jun 27 19:58:18 2011 UTC
# Line 264  Line 264 
264                  $self->Add(badAttachment => 1);                  $self->Add(badAttachment => 1);
265              }              }
266          }          }
267          # Compute the MD5 identifier.          # Compute the MD5 identifier. This may fail if there is an error in the
268          my $md5Alias = $genomeMD5Data->ComputeGeneMD5(map { $_->String() } @locs);          # feature definition.
269            my $md5Alias;
270            eval {
271                $md5Alias = $genomeMD5Data->ComputeGeneMD5(map { $_->String() } @locs);
272            };
273            if ($@) {
274                Trace("Error in feature MD5 computation: $@") if T(0);
275                $self->Add(md5ComputeError => 1);
276            }
277          # Emit the feature record.          # Emit the feature record.
278          $self->PutE(Feature => $fid, feature_type => $type,          $self->PutE(Feature => $fid, feature_type => $type,
279                      sequence_length => $seqLen, function => $assignment,                      sequence_length => $seqLen, function => $assignment,
# Line 379  Line 387 
387              }              }
388          }          }
389          # Make the MD5 identifier an alias.          # Make the MD5 identifier an alias.
390            if (defined $md5Alias) {
391          $self->PutE(Identifier => "md5g|$md5Alias", natural_form => $md5Alias,          $self->PutE(Identifier => "md5g|$md5Alias", natural_form => $md5Alias,
392                      source => 'MD5');                      source => 'MD5');
393          $self->PutR(IsIdentifiedBy => $fid, "md5g|$md5Alias", conf => 'A');          $self->PutR(IsIdentifiedBy => $fid, "md5g|$md5Alias", conf => 'A');
394            }
395          # Finally, this feature is an alias of itself.          # Finally, this feature is an alias of itself.
396          $self->PutE(Identifier => $fid, natural_form => $fid,          $self->PutE(Identifier => $fid, natural_form => $fid,
397                      source => 'SEED');                      source => 'SEED');

Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3