bug fixes
This commit is contained in:
parent
81c42d7296
commit
908200869e
3 changed files with 16 additions and 5 deletions
|
|
@ -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 '') {
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue