[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.1, Wed Sep 30 19:41:44 2009 UTC revision 1.2, Wed Oct 7 19:30:07 2009 UTC
# Line 108  Line 108 
108      my ($self, $args) = @_;      my ($self, $args) = @_;
109      # Get the Sapling database.      # Get the Sapling database.
110      my $sap = $self->{db};      my $sap = $self->{db};
     # Find out if we're returning a hash.  
     my $hashFlag = $args->{-hash} || 0;  
     # Declare the return variable.  
     my $retVal = ($hashFlag ? {} : []);  
111      # Convert a list to a hash.      # Convert a list to a hash.
112      if (ref $args ne 'HASH') {      if (ref $args ne 'HASH') {
113          $args = { -ids => $args };          $args = { -ids => $args };
114      }      }
115        # Find out if we're returning a hash.
116        my $hashFlag = $args->{-hash} || 0;
117        # Declare the return variable.
118        my $retVal = ($hashFlag ? {} : []);
119      # Get the list of IDs.      # Get the list of IDs.
120      my $ids = ServerThing::GetIdList(-ids => $args);      my $ids = ServerThing::GetIdList(-ids => $args);
121      # These object name sequences are the base of every query. The first finds      # These object name sequences are the base of every query. The first finds

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3