Changeset 1316

Timestamp:

04/07/15 16:42:39 (9 years ago)

Author:

nanardon

Message:

Fix addAttributeValue when attribute is unset

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Objects.pm (modified) (2 diffs)

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Objects.pm

@@ -416 +416 @@
     my ($self, $attribute, @values) = @_;
 
-    my @oldvalues = $self->_get_attributes($attribute);
+    my @oldvalues = grep { $_ } $self->_get_attributes($attribute);
     $self->_set_c_fields($attribute => [ @oldvalues, @values ]);
 }
@@ -423 +423 @@
     my ($self, $attribute, @values) = @_;
 
-    my @oldvalues = $self->_get_attributes($attribute);
+    my @oldvalues = grep { $_ } $self->_get_attributes($attribute);
     $self->set_c_fields($attribute => [ @oldvalues, @values ]);
 }