Changeset 1418

Timestamp:

10/13/15 18:56:21 (9 years ago)

Author:

nanardon

Message:

Fix set aliases at user creation, fix revalias get()

Location:

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql

Files:

• User.pm (modified) (4 diffs)
• objects.pm (modified) (1 diff)

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

@@ -303 +303 @@
             aliases   => {
                 #reference => 'aliases',
+                delayed => 1,
                 formtype => 'TEXT',
                 multiple => 1,
@@ -320 +321 @@
                 set => sub {
                     my ($self, $data) = @_;
+
                     my $res = 0;
                     my %aliases = map { $_ => 1 } grep { $_ } (ref $data ? @{$data} : $data);
@@ -354 +356 @@
             revaliases => {
                 formtype => 'TEXT',
+                get => sub {
+                    my ($self) = @_;
+
+                    if (my $obj = $self->base->
+                        get_object('revaliases', $self->object->id)) {
+                        return $obj->get_attributes('as');
+                    } else {
+                        return;
+                    }
+                },
                 set => sub {
                     my ($self, $data) = @_;
@@ -365 +377 @@
                                 'exported' => ($self->object->get_attributes('exported') || 0),
                             );
+                            warn $ares;
                             if (defined($ares)) {
                                 $res+=$ares;

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

@@ -233 +233 @@
 
     my $obj = $class->new($base, $res->{k}) or return;
-    $obj->set_fields(%second);
+    $obj->_set_c_fields(%second);
 
     return $res->{k};