replaced shift with @_ when more than one arguments are read in

second argument was being ignored

modules/Bio/EnsEMBL/DBSQL/KaryotypeBandAdaptor.pm

@@ -225,7 +225,7 @@ sub fetch_by_chr_band {
 =cut
 
 sub list_dbIDs {
-  my ($self, $ordered) = shift;
+  my ($self, $ordered) = @_;
 
   return $self->_list_dbIDs("karyotype",undef, $ordered);
 }

modules/Bio/EnsEMBL/Map/DBSQL/DitagAdaptor.pm

@@ -378,7 +378,7 @@ sub update_ditag {
 =cut
 
 sub list_dbIDs {
-  my ($self, $ordered) = shift;
+  my ($self, $ordered) = @_;
 	
   return $self->_list_dbIDs('ditag');
 }

modules/Bio/EnsEMBL/Map/DBSQL/DitagFeatureAdaptor.pm

@@ -840,7 +840,7 @@ sub update {
 =cut
 
 sub list_dbIDs {
-  my ($self, $ordered) = shift;
+  my ($self, $ordered) = @_;
 	
   return $self->_list_dbIDs('ditag_feature', undef, $ordered);
 }