From 21568641cacf66934d9394e3a0c5aec76a78be60 Mon Sep 17 00:00:00 2001
From: Andy Grundman <agrundma@webgui-cvs>
Date: Fri, 4 Jul 2003 04:30:32 +0000
Subject: [PATCH] Fixed bug where database link fields did not default to 0
 when creating new Group or SQL Report

---
 lib/WebGUI/Group.pm             | 1 +
 lib/WebGUI/Wobject/SQLReport.pm | 4 +++-
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/lib/WebGUI/Group.pm b/lib/WebGUI/Group.pm
index 3122c8e83..41e68a830 100755
--- a/lib/WebGUI/Group.pm
+++ b/lib/WebGUI/Group.pm
@@ -535,6 +535,7 @@ sub new {
 		$group{expireNotifyOffset} = -14;
 		$group{deleteOffset} = 14;
 		$group{expireNotify} = 0;
+		$group{databaseLinkId} = 0;
 		$group{dbCacheTimeout} = 3600;
 	} else {
         	%group = WebGUI::SQL->quickHash("select * from groups where groupId='$groupId'");
diff --git a/lib/WebGUI/Wobject/SQLReport.pm b/lib/WebGUI/Wobject/SQLReport.pm
index af55c87a8..938e6b34a 100644
--- a/lib/WebGUI/Wobject/SQLReport.pm
+++ b/lib/WebGUI/Wobject/SQLReport.pm
@@ -43,7 +43,9 @@ sub new {
                 -extendedProperties=>{
 			template=>{}, 
 			dbQuery=>{}, 
-			databaseLinkId=>{},
+			databaseLinkId=>{
+				defaultValue=>0
+			},
 			DSN=>{
 				defaultValue=>$session{config}{dsn}
 				},