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

Diff of /Sprout/Sprout.pm

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

revision 1.25, Sun Sep 11 17:29:52 2005 UTC revision 1.27, Wed Sep 14 12:56:13 2005 UTC
# Line 793  Line 793 
793          if ($dir eq '+') {          if ($dir eq '+') {
794              $retVal .= $locationDNA;              $retVal .= $locationDNA;
795          } else {          } else {
796              $locationDNA = join('', reverse split //, $locationDNA);              $retVal .= FIG::reverse_comp($locationDNA);
             $retVal .= $locationDNA;  
797          }          }
798      }      }
799      # Return the result.      # Return the result.
# Line 2048  Line 2047 
2047      # Get the parameters.      # Get the parameters.
2048      my ($self, $entityName, $entityID) = @_;      my ($self, $entityName, $entityID) = @_;
2049      # Check for the entity instance.      # Check for the entity instance.
2050        Trace("Checking existence of $entityName with ID=$entityID.") if T(4);
2051      my $testInstance = $self->GetEntity($entityName, $entityID);      my $testInstance = $self->GetEntity($entityName, $entityID);
2052      # Return an existence indicator.      # Return an existence indicator.
2053      my $retVal = ($testInstance ? 1 : 0);      my $retVal = ($testInstance ? 1 : 0);

Legend:
Removed from v.1.25  
changed lines
  Added in v.1.27

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3