oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Preparing for the 4.6.1 bug fix cycle.

Browse source
This commit is contained in:
JT Smith 2002-08-17 19:59:23 +00:00
parent dbd1104279
commit 64218127cb
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lib/WebGUI.pm
View file

@ -1,5 +1,5 @@
package WebGUI; package WebGUI;
our $VERSION = "4.6.0"; our $VERSION = "4.6.1";
#------------------------------------------------------------------- #-------------------------------------------------------------------
# WebGUI is Copyright 2001-2002 Plain Black LLC. # WebGUI is Copyright 2001-2002 Plain Black LLC.
@ -128,7 +128,8 @@ sub page {
${$wobject}{_WobjectProxy} = ${$originalWobject}{wobjectId}; ${$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'; tie %hash, 'Tie::CPHash';
%hash = (%{$wobject},%{$extra}); %hash = (%{$wobject},%{$extra});
$wobject = \%hash; $wobject = \%hash;