Changeset 1845 for trunk

Timestamp:

10/20/16 12:48:40 (8 years ago)

Author:

nanardon

Message:

split user forward on ','

File:

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

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

@@ -567 +567 @@
                     my ($self, $data) = @_;
                     if ($data) {
+                        my @datas = ref $data ? @$data : split(/\s*,\s*/, $data);
                         if (my $f = $self->base->get_object('aliases', $self->object->id)) {
                             return $f->_set_c_fields(
-                                forward => $data,
+                                forward => \@datas,
                                 comment => undef,
                                 description => 'Forward for user ' . $self->object->id,
@@ -576 +577 @@
                             if ($self->base->_create_c_object(
                                     'aliases', $self->object->id,
-                                    forward => $data,
+                                    forward => \@datas,
                                     description => 'automatically created for ' . $self->object->id,
                                 )) {