package FEATURE_EXPRESSION_IMAGES;

#####################################################################
# Author : Sohel Merchant
# Date   : Feb 2004
# DESCRIPTION: DB_Table object for FEATURE_EXPRESSION_IMAGES
#
#####################################################################

use strict;
use DBI;
use Carp;
use vars qw (@ISA %allowedConstructors);
use dictyBase_Table;
@ISA = qw (dictyBase_Table); # base class

our %allowedConstructors = ('dictybaseid:source'=>undef);


sub get_locus_sources
{
    my ($self, $dbh, $locus_no) = @_;
    my $sources;
    if(!$locus_no)
    {
        return $sources;
    }
    my $sql = "SELECT unique SOURCE FROM FEATURE_EXPRESSION_IMAGES WHERE  LOCUS_NO = ".$locus_no;
    my $sth = $dbh->prepare($sql);
    $sth->execute();

    while(my $src = $sth->fetchrow())
    {
          $sources = $sources.$src.":";
    }
    $sth->finish();
    return $sources;
}

1;