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

Timestamp:

12/01/15 09:25:35 (9 years ago)

Author:

nanardon

Message:

Adding employment object

Location:

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

Files:

• Employment.pm (added)
• User.pm (modified) (1 diff)

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

@@ -857 +857 @@
                 ro => 1,
             },
+            currentEmployment => {
+                managed => 1,
+                ro => 1,
+                reference => 'employment',
+                get => sub {
+                    my ($attr) = @_;
+                    my $self = $attr->object;
+
+                    my $sth = $self->base->db->prepare_cached(
+                        q{
+                        select name from employment where firstday <= now() and
+                        (lastday is null or lastday >= now()) and "user" = ?
+                        limit 1
+                        }
+                    );
+                    $sth->execute($self->id);
+                    if (my $res = $sth->fetchrow_hashref) {
+                        return $res->{name}
+                    } else {
+                        return;
+                    }
+                }
+            },
         }
     )