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;
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;