From 6dea4f642a43593882b2168629ccb19a1c07beb4 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Tue, 21 Jul 2009 20:55:21 +0000
Subject: [PATCH] Don't close the connection for the default link (0) when
 doing connect checks.

---
 docs/changelog/7.x.x.txt             | 1 +
 lib/WebGUI/Operation/DatabaseLink.pm | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/docs/changelog/7.x.x.txt b/docs/changelog/7.x.x.txt
index 0c9a8d52a..9ae6ce001 100644
--- a/docs/changelog/7.x.x.txt
+++ b/docs/changelog/7.x.x.txt
@@ -22,6 +22,7 @@
  - fixed #10683: i18n Asset_Story::crumb_url
  - fixed #10684: i18n Asset_StoryTopic::deleteIcon
  - fixed #10685: i18n Asset_StoryTopic::rssUrl 
+ - fixed #10686: Can't access Database Links
 
 7.7.15
  - fixed #10629: WebGUI::ProfileField create new field bug
diff --git a/lib/WebGUI/Operation/DatabaseLink.pm b/lib/WebGUI/Operation/DatabaseLink.pm
index 6ecb25318..fd90cfb73 100644
--- a/lib/WebGUI/Operation/DatabaseLink.pm
+++ b/lib/WebGUI/Operation/DatabaseLink.pm
@@ -326,7 +326,7 @@ sub www_listDatabaseLinks {
         }
         else {
             $output .= $i18n->get('ok');
-            $connection->disconnect;
+            $connection->disconnect unless $id eq '0';
         }
         $output .='</td></tr>';
     }