From 64218127cb64e2bcba161c83b036b853b70aadb0 Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Sat, 17 Aug 2002 19:59:23 +0000
Subject: [PATCH] Preparing for the 4.6.1 bug fix cycle.

---
 lib/WebGUI.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lib/WebGUI.pm b/lib/WebGUI.pm
index 43988481b..8c1ce9ce1 100644
--- a/lib/WebGUI.pm
+++ b/lib/WebGUI.pm
@@ -1,5 +1,5 @@
 package WebGUI;
-our $VERSION = "4.6.0";
+our $VERSION = "4.6.1";
 
 #-------------------------------------------------------------------
 # WebGUI is Copyright 2001-2002 Plain Black LLC.
@@ -128,7 +128,8 @@ sub page {
 						${$wobject}{_WobjectProxy} = ${$originalWobject}{wobjectId};
 					}
                                 }
-				$extra = WebGUI::SQL->quickHashRef("select * from ${$wobject}{namespace} where wobjectId=${$wobject}{wobjectId}");
+				my $sql = "select * from ".$wobject->{namespace}." where wobjectId=".$wobject->{wobjectId};
+				$extra = WebGUI::SQL->quickHashRef("select * from ".$wobject->{namespace}." where wobjectId=".$wobject->{wobjectId});
 				tie %hash, 'Tie::CPHash';
 				%hash = (%{$wobject},%{$extra});
 				$wobject = \%hash;