fixing remaining bugs

This commit is contained in:
JT Smith 2005-12-07 20:49:59 +00:00
parent dcbcaee880
commit 76c38edb44
3 changed files with 15 additions and 12 deletions

View file

@ -69,7 +69,7 @@ sub create {
my ($sequenceNumber) = WebGUI::SQL->quickArray("select max(sequenceNumber) from userProfileCategory");
my $id = WebGUI::SQL->setRow("userProfileCategory","profileCategoryId",{profileCategoryId=>"new", sequenceNumber=>$sequenceNumber+1});
my $self = $class->new($id);
$self->update($properties);
$self->set($properties);
return $self;
}