bug fixes

This commit is contained in:
JT Smith 2009-10-23 18:11:37 -05:00
parent 81c42d7296
commit 908200869e
3 changed files with 16 additions and 5 deletions

View file

@ -1568,8 +1568,9 @@ sub new {
}
if (defined $properties) {
my $object = { _session=>$session, _properties => $properties };
bless $object, $class;
my $object = $class->instantiate;
$object->{_session} = $session;
$object->{_properties} = $properties;
foreach my $property ($object->getProperties) {
my $definition = $object->getProperty($property);
if ($definition->{serialize} && $object->{_properties}->{$property} ne '') {