Added ensembl_object_type and ensembl_id methods so that IF the dbentry is...

Added ensembl_object_type and ensembl_id methods so that IF the dbentry is connected to a specific Ensembl entity (Gene/Transcript/Translation) then we can easily find out which one it is

modules/Bio/EnsEMBL/DBEntry.pm

@@ -707,6 +707,50 @@ sub status{
   return $self->{status};
 }
 
+=head2 ensembl_object_type
+
+  Arg [1]    : (optional) String $arg - value to set
+  Example    : none
+  Description: Getter/setter for attribute ensembl_object_type.
+  Returntype : String
+  Exceptions : none
+  Caller     : general
+  Status     : Stable
+
+=cut
+
+
+sub ensembl_object_type{
+  my ( $self, $arg ) = @_;
+  if( defined $arg ) {
+     $self->{ensembl_object_type} = $arg;
+  } 
+  return $self->{ensembl_object_type};
+}
+
+=head2 ensembl_id
+
+  Arg [1]    : (optional) String $arg - value to set
+  Example    : none
+  Description: Getter/setter for attribute ensembl_id.
+  Returntype : String
+  Exceptions : none
+  Caller     : general
+  Status     : Stable
+
+=cut
+
+
+sub ensembl_id{
+  my ( $self, $arg ) = @_;
+  if( defined $arg ) {
+     $self->{ensembl_id} = $arg;
+  } 
+  return $self->{ensembl_id};
+}
+
+
+
 =head1 DEPRECATED METHODS
 
 =cut

modules/Bio/EnsEMBL/DBSQL/DBEntryAdaptor.pm

@@ -1206,7 +1206,9 @@ SSQL
                        'dbname'             => $dbname,
                        'description'        => $description,
                        'linkage_annotation' => $link_annotation,
-                       'analysis'           => $analysis);
+                       'analysis'           => $analysis,
+		       'ensembl_object_type' => $ensType,
+		       'ensembl_id'          => $ensID );
 
       # Using an outer join on the synonyms as well as on identity_xref,
       # we now have to filter out the duplicates (see v.1.18 for