From 4776b235c4fec77c6cb5eb04ac2a92bfe1358cc2 Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Sat, 23 Nov 2002 03:34:40 +0000
Subject: [PATCH] fixed bug 641040

---
 lib/WebGUI/Wobject/SQLReport.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/WebGUI/Wobject/SQLReport.pm b/lib/WebGUI/Wobject/SQLReport.pm
index fee739b4e..dc48a386b 100644
--- a/lib/WebGUI/Wobject/SQLReport.pm
+++ b/lib/WebGUI/Wobject/SQLReport.pm
@@ -178,7 +178,7 @@ sub www_view {
                		$output .= WebGUI::International::get(10,$namespace).'<p>' if ($_[0]->get("debugMode"));
                         WebGUI::ErrorHandler::warn("SQLReport [".$_[0]->get("wobjectId")."] The SQL query is improperly formatted.");
                 }
-		$dbh->disconnect();
+		$dbh->disconnect() unless ($dsn eq $session{config}{dsn});
 	} else {
 		$output .= WebGUI::International::get(12,$namespace).'<p>' if ($_[0]->get("debugMode"));
 		WebGUI::ErrorHandler::warn("SQLReport [".$_[0]->get("wobjectId")."] Could not connect to database.");