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

fixing bugs in the no longer magic groups

Browse source
This commit is contained in:
JT Smith 2004-02-10 02:41:24 +00:00
parent e1aacb3a7d
commit b26ae240ff
5 changed files with 32 additions and 27 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lib/WebGUI/Wobject.pm
View file

@ -664,7 +664,10 @@ sub new {
}
};
my %fullProperties;
my $extra = WebGUI::SQL->quickHashRef("select * from ".$properties->{namespace}." where wobjectId='".$properties->{wobjectId}."'");
my $extra;
unless ($properties->{wobjectId} eq "new") {
$extra = WebGUI::SQL->quickHashRef("select * from ".$properties->{namespace}." where wobjectId='".$properties->{wobjectId}."'");
}
tie %fullProperties, 'Tie::CPHash';
%fullProperties = (%{$properties},%{$extra});
bless({