Dataconnector method to drop all connections - needed for REST.

lib/BIGSdb/Dataconnector.pm

@@ -33,10 +33,7 @@ sub new {
 
 sub DESTROY {
 	my ($self) = @_;
-	foreach my $db ( keys %{ $self->{'db'} } ) {
-		$self->_finish_active_statement_handles( $self->{'db'}->{$db}, 1 );
-		eval { $self->{'db'}->{$db}->disconnect and $logger->info("Disconnected from database $self->{'db'}->{$db}->{'Name'}") };
-	}
+	$self->drop_all_connections;
 	return;
 }
 
@@ -72,6 +69,16 @@ sub drop_connection {
 	return;
 }
 
+sub drop_all_connections {
+	my ($self) = @_;
+	foreach my $db ( keys %{ $self->{'db'} } ) {
+		$self->_finish_active_statement_handles( $self->{'db'}->{$db}, 1 );
+		eval { $self->{'db'}->{$db}->disconnect and $logger->info("Disconnected from database $self->{'db'}->{$db}->{'Name'}") };
+		delete $self->{'db'}->{$db};
+	}
+	return;
+}
+
 sub get_connection {
 	my ( $self, $attributes ) = @_;
 	my $host     = $attributes->{'host'}     || $self->{'system'}->{'host'};

lib/BIGSdb/Scheme.pm

 #Written by Keith Jolley
-#Copyright (c) 2010-2014, University of Oxford
+#Copyright (c) 2010-2015, University of Oxford
 #E-mail: keith.jolley@zoo.ox.ac.uk
 #
 #This file is part of Bacterial Isolate Genome Sequence Database (BIGSdb).
@@ -130,6 +130,7 @@ sub get_field_values_by_designations {
 	while ( my $data = $self->{'sql'}->{"field_values_$query_key"}->fetchrow_hashref ) {
 		push @$field_data, $data;
 	}
+	$self->{'db'}->commit;	#Prevent IDLE in transaction locks in long-running REST process.
 	return $field_data;
 }