Changeset 1320 for branches

Timestamp:

04/07/15 16:46:36 (9 years ago)

Author:

nanardon

Message:

add delAttributeValue and addAttributeValue functions from trunk

File:

• branches/4.0/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Objects.pm (modified) (1 diff)

branches/4.0/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Objects.pm

@@ -407 +407 @@
     }
     return scalar(keys %updated);
+}
+
+=head2 addAttributeValue($attribute, $value)
+
+Add a value to a multivalue attributes
+
+=cut
+
+sub _addAttributeValue {
+    my ($self, $attribute, @values) = @_;
+
+    my @oldvalues = grep { $_ } $self->_get_attributes($attribute);
+    $self->_set_c_fields($attribute => [ @oldvalues, @values ]);
+}
+
+sub addAttributeValue {
+    my ($self, $attribute, @values) = @_;
+
+    my @oldvalues = grep { $_ } $self->_get_attributes($attribute);
+    $self->set_c_fields($attribute => [ @oldvalues, @values ]);
+}
+
+=head2 delAttributeValue($attribute, $value)
+
+Remove a value to a multivalue attributes
+
+=cut
+
+sub _delAttributeValue {
+    my ($self, $attribute, @values) = @_;
+
+    my @oldvalues = grep { $_ } $self->_get_attributes($attribute);
+
+    foreach my $value (@values) {
+        @oldvalues = grep { $_ ne $value } @oldvalues;
+    }
+
+    $self->_set_c_fields($attribute => @oldvalues ? [ @oldvalues, ] : undef );
+}
+
+sub delAttributeValue {
+    my ($self, $attribute, @values) = @_;
+
+    my @oldvalues = grep { $_ } $self->_get_attributes($attribute);
+
+    foreach my $value (@values) {
+        @oldvalues = grep { $_ ne $value } @oldvalues;
+    }
+
+    $self->set_c_fields($attribute => @oldvalues ? [ @oldvalues, ] : undef );
 }