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

Diff of /Sprout/ERDB.pm

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

revision 1.68, Tue Sep 19 00:12:21 2006 UTC revision 1.69, Fri Sep 29 15:06:17 2006 UTC
# Line 1943  Line 1943 
1943      return $retVal;      return $retVal;
1944  }  }
1945    
1946    =head3 GetChoices
1947    
1948    C<< my @values = $erdb->GetChoices($entityName, $fieldName); >>
1949    
1950    Return a list of all the values for the specified field that are represented in the
1951    specified entity.
1952    
1953    Note that if the field is not indexed, then this will be a very slow operation.
1954    
1955    =over 4
1956    
1957    =item entityName
1958    
1959    Name of an entity in the database.
1960    
1961    =item fieldName
1962    
1963    Name of a field belonging to the entity. This is a raw field name without
1964    the standard parenthesized notation used in most calls.
1965    
1966    =item RETURN
1967    
1968    Returns a list of the distinct values for the specified field in the database.
1969    
1970    =back
1971    
1972    =cut
1973    
1974    sub GetChoices {
1975        # Get the parameters.
1976        my ($self, $entityName, $fieldName) = @_;
1977        # Declare the return variable.
1978        my @retVal;
1979        # Get the entity data structure.
1980        my $entityData = $self->_GetStructure($entityName);
1981        # Get the field.
1982        my $fieldHash = $entityData->{Fields};
1983        if (! exists $fieldHash->{$fieldName}) {
1984            Confess("$fieldName not found in $entityName.");
1985        } else {
1986            # Get the name of the relation containing the field.
1987            my $relation = $fieldHash->{$fieldName}->{relation};
1988            # Fix up the field name.
1989            my $realName = _FixName($fieldName);
1990            # Get the database handle.
1991            my $dbh = $self->{_dbh};
1992            # Query the database.
1993            my $results = $dbh->SQL("SELECT DISTINCT $realName FROM $relation");
1994            # Clean the results. They are stored as a list of lists, and we just want the one list.
1995            @retVal = sort map { $_->[0] } @{$results};
1996        }
1997        # Return the result.
1998        return @retVal;
1999    }
2000    
2001  =head3 GetEntityValues  =head3 GetEntityValues
2002    
2003  C<< my @values = $erdb->GetEntityValues($entityType, $ID, \@fields); >>  C<< my @values = $erdb->GetEntityValues($entityType, $ID, \@fields); >>

Legend:
Removed from v.1.68  
changed lines
  Added in v.1.69

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3