Changeset 1306 for trunk

Timestamp:

04/01/15 18:41:34 (9 years ago)

Author:

nanardon

Message:

Add addAttributeValue and delAttributeValue functions

This functions (and _ prefixed variantes) add or delete values to multiples
valued attributes and set it.

Location:

trunk/LATMOS-Accounts

Files:

• lib/LATMOS/Accounts/Bases/Objects.pm (modified) (1 diff)
• t/11_bases_unix.t (modified) (2 diffs)

trunk/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 = $self->_get_attributes($attribute);
+    $self->_set_c_fields($attribute => [ @oldvalues, @values ]);
+}
+
+sub addAttributeValue {
+    my ($self, $attribute, @values) = @_;
+
+    my @oldvalues = $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 );
 }
 

trunk/LATMOS-Accounts/t/11_bases_unix.t

@@ -1 +1 @@
 use strict;
 use warnings;
-use Test::More tests => 29;
+use Test::More tests => 33;
 use File::Temp;
 
@@ -51 +51 @@
 ok(eq_set($group->get_c_field('memberUID'), [ 'admin' ]), 'can get group\'s member after change');
 
+ok($group->addAttributeValue('memberUID', 'root'), 'can use addAttributeValue');
+ok(eq_set($group->get_c_field('memberUID'), [ 'admin', 'root' ]), 'can get group\'s member after addAttributeValue');
+ok($group->delAttributeValue('memberUID', 'root'), 'can use addAttributeValue');
+ok(eq_set($group->get_c_field('memberUID'), [ 'admin' ]), 'can get group\'s member after addAttributeValue');
 
 ok(my $unixbmod = LATMOS::Accounts::Bases->new(