#!@@_perl_root_@@/bin/perl.exe 
package sdevSubFeatureObject;

##########################################################
#                                                        #
# dictyBase Extension of sdevSubFeatureObject            #
#                                                        #
##########################################################

use sdevSubFeatureObject_base;

BEGIN { %sdevSubFeatureObject:: = %sdevSubFeatureObject_base:: }

########################################################################
#sub setSubFeatureDef {
########################################################################
#  my $self = shift;
#
#  my $feature_no = $self->{'_feature_no'};
#
#  my @subfeatureArray = Subfeature->GetStartStopArray(dbh=>$dbh,
#                                                     feature_no=>$feature_no);
#
#  my $arraySize = $#subfeatureArray + 1;
#  my $heading;
#  my $i = 0;
#
#  foreach my $element (@subfeatureArray) {
#    my ($start, $stop, $type, $subfeature_no ) = split(/\|/,$element);
#    
#   #
#   # dictyBase will only curate exon coordinates
#   #
#    if ($type eq "Exon") {
#       $i++;
#       $heading = $type . $i;
#   
#       #set exon/intron info
#       $self->{"_$heading"} = "$start:$stop:$subfeature_no";
#    }
#  }
#
#
#  $self->{'_numOfExons'} = $i;
# 
#}

#
#
#  changed loops from $self->{"_$intron"} to $self->{"_$exon"} since our
#  features do not have introns (at least not right now)
#
#########################################################################
#sub printSubFeature {
#########################################################################
#  my ($self, $new) = @_;
#
#  my $i=1;
#  my $exon = "Exon".$i; 
#  my $intron = "Intron".$i;
#
#  my @rows;
#
#  while ($self->{"_$exon"}) {
#    my $value = $self->getStartStop($exon);
#    push(@rows,$value);
##    $value = $self->getStartStop($intron);
##    push(@rows,$value);
#
#    $i++;
#    $exon = "Exon".$i;
#    $intron = "Intron".$i;
#  }
##
##  my $value = $self->getStartStop($exon);
##  push(@rows,$value); 
#
#
#  while ($self->{"_new_$exon"}) {
#    #my $value = $self->getStartStop($exon);
#    #push(@rows,$value);
##    my $value = $self->getStartStop($intron);
##    push(@rows,$value);
#
#    $i++;
#    $exon = "Exon".$i;
#    $intron = "Intron".$i;
#
#    $value = $self->getStartStop($exon);
#    push(@rows,$value);
#
#  }
#
#  return @rows;
#
#}


1;