Changeset 414

Timestamp:

09/03/09 05:11:31 (15 years ago)

Author:

nanardon

Message:

• allow to set forward attribute from user object (create an aliases object in background)

File:

• LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/User.pm (modified) (3 diffs)

LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/User.pm

@@ -65 +65 @@
     return (
         memberOf        => 'memberOf',
+        forward => 'forward',
         (map { $_ => $_ } $self->_address_fields),
         (map { $_ => $_ } $self->_office_address_fields),
@@ -81 +82 @@
         mainaddress => 'mainaddress',
         aliases => 'aliases',
-        forward => 'forward',
         revaliases => 'revaliases',
         ) : ()),
@@ -277 +277 @@
             next;
         };
+        $attr =~ /^forward$/ and do {
+            if ($data{$attr}) {
+                if (my $f = $self->base->get_object('aliases', $self->id)) {
+                    $res += $f->set_c_fields(forward => $data{$attr});
+                } else {
+                    $self->base->create_c_object('aliases', $self->id,
+                        forward => $data{$attr}) and $res++;
+                }
+            } else {
+                $self->base->delete_object('aliases', $self->id);
+                $res++;
+            }
+            next;
+        };
         grep { $attr eq $_ } (__PACKAGE__->_office_address_fields, __PACKAGE__->_address_fields()) and do {
             my $fmainaddress = $self->_get_c_field('mainaddress');