adding deconstructors

lib/WebGUI/SQL.pm

@@ -274,6 +274,21 @@ sub deleteRow {
 }
 
 
+#-------------------------------------------------------------------
+
+=head DESTROY ( )
+
+Deconstructor.
+
+=cut
+
+sub DESTROY {
+	my $self = shift;
+	$self->disconnect;
+	undef $self;
+}
+
+
 #-------------------------------------------------------------------
 
 =head2 disconnect ( )

lib/WebGUI/Session.pm

@@ -99,12 +99,10 @@ Cleans up a WebGUI session information from memory and disconnects from any reso
 
 sub close {
 	my $self = shift;
-	$self->asset->DESTROY() if (exists $self->asset && $self->asset ne "");
+	foreach my $object (keys %{$self}) {
-	foreach my $slavedbh (@{$self->{_slave}}) {
+		$self->{$object}->DESTROY;
-		$slavedbh->disconnect();
 	}
-	$self->{_db}->disconnect if (exists $self->{_db});
+	undef $self;
-	undef %session;
 }
 
 #-------------------------------------------------------------------
@@ -179,6 +177,20 @@ sub dbSlave {
 }
 
 
+#-------------------------------------------------------------------
+
+=head DESTROY ( )
+
+Deconstructor.
+
+=cut
+
+sub DESTROY {
+        my $self = shift;
+	$self->close;
+}
+
+
 #-------------------------------------------------------------------
 
 =head2 env ( )

lib/WebGUI/User.pm

@@ -173,6 +173,20 @@ sub deleteFromGroups {
 	$group->deleteUsers([$self->userId],$groups);
 }
 
+#-------------------------------------------------------------------
+
+=head DESTROY ( )
+
+Deconstructor.
+
+=cut
+
+sub DESTROY {
+        my $self = shift;
+        undef $self;
+}
+
+
 #-------------------------------------------------------------------
 
 =head2 getGroups ( [ withoutExpired ] )