Changeset 1498 for trunk/LATMOS-Accounts/lib/LATMOS/Accounts

Timestamp:

12/18/15 07:24:42 (9 years ago)

Author:

nanardon

Message:

Enable/Disable? address according user status

Location:

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

Files:

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

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

@@ -310 +310 @@
         $data{isMainAddress} = 1;
     }
+    $data{exported} = $user->get_attributes('exported');
     $class->SUPER::_create($base, $id, %data);
 }

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

@@ -112 +112 @@
                         );
                     }
+                    foreach my $al ($self->object->get_attributes('otheraddress')) {
+                        my $obj = $self->base->get_object('address', $al) or next;
+                        $obj->_set_c_fields(
+                            exported => $value,
+                        );
+                    }
                 },
             },
@@ -282 +288 @@
                             } else {
                                 $self->base->log(LA_ERR, "Cannot add forward for %s",
-                                    $self->id);
+                                    $self->object->id);
                             }
                         }
@@ -873 +879 @@
                     );
                     $sth->execute($self->id);
-                    if (my $res = $sth->fetchrow_hashref) {
+                    my $res = $sth->fetchrow_hashref;
+                    $sth->finish;
+                    if ($res) {
                         return $res->{name}
                     } else {
@@ -902 +910 @@
 }
 
+=head2 listEmployment
+
+Return the ordered list of contract
+
+=cut
+
+sub listEmployment {
+    my ($self) = @_;
+
+    my $sth = $self->base->db->prepare_cached(
+        q{
+        select name from employment where "user" = ?
+        order by lastday desc NULLS first
+        }
+    );
+    $sth->execute($self->id);
+    my @list = ();
+    while (my $res = $sth->fetchrow_hashref) {
+        push(@list, $res->{name});
+    }
+
+    @list
+}
+
 1;