Fixed little things here and there..

modules/Bio/EnsEMBL/DBSQL/Obj.pm

@@ -1600,6 +1600,11 @@ sub get_supporting_evidence {
 
     my $instring = "'";
     my %exhash;
+
+    if (@exons == 0) {
+	$self->throw("No exon objects were passed on!");
+    }
+
     foreach my $exon (@exons) {
 
 	$exhash{$exon->id} = $exon;
@@ -1608,8 +1613,7 @@ sub get_supporting_evidence {
     }
     
     $instring = substr($instring,0,-2);
-
-
+   
     my $sth = $self->prepare("select * from supporting_feature where exon in (" . $instring . ")");
     $sth->execute;
 

scripts/update.pl

@@ -50,8 +50,8 @@ use vars qw(@ISA);
 my $dbtype = 'rdb';
 my $host   = 'localhost';
 my $port   = '410000';
-my $dbname = 'eliatest2';
-my $dbuser = 'root';
+my $dbname = 'eliarec';
+my $dbuser = 'ensro';
 my $dbpass = undef;
 my $module = 'Bio::EnsEMBL::DBSQL::Obj';
 my $help;