Changeset 1511

Timestamp:

12/21/15 18:01:43 (9 years ago)

Author:

nanardon

Message:

Add some attributes about employment

Location:

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

Files:

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

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

@@ -109 +109 @@
             company => { },
             endcircuit    => { formtype => 'DATE', monitored => 1, },
+            previous => {
+                ro => 1,
+                managed => 1,
+                get => sub {
+                    my ($self) = @_;
+                    my $find = $self->object->base->db->prepare_cached(q{
+                        SELECT name from employment where "user" = ?
+                            and (lastday is not null and lastday < ?)
+                            order by lastday desc
+                    });
+                    $find->execute(
+                        $self->object->get_field('user'),
+                        $self->object->get_field('firstday')
+                    );
+                    my $res = $find->fetchrow_hashref;
+                    $find->finish;
+                    return $res->{name};
+                },
+            },
+            next => {
+                ro => 1,
+                managed => 1,
+                get => sub {
+                    my ($self) = @_;
+                    my $find = $self->object->base->db->prepare_cached(q{
+                        SELECT name from employment where "user" = ?
+                            and firstday > ?
+                            order by firstday asc
+                    });
+                    $find->execute(
+                        $self->object->get_field('user'),
+                        $self->object->get_field('lastday')
+                    );
+                    my $res = $find->fetchrow_hashref;
+                    $find->finish;
+                    return $res->{name};
+                },
+            },
         }
     );

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

@@ -258 +258 @@
                         }
                         $listold->finish;
+                    }
+                    return $end ? $end->iso8601 : undef
+                },
+            },
+            endLastEmployment => {
+                formtype => 'DATETIME',
+                managed => 1,
+                ro => 1,
+                get => sub {
+                    my ($attr) = @_;
+                    my $self = $attr->object;
+
+                    my $list_empl = $self->base->db->prepare_cached(q{
+                        SELECT * FROM employment WHERE "user" = ?
+                        order by lastday desc nulls first
+                    });
+                    $list_empl->execute($self->id);
+                    my $res = $list_empl->fetchrow_hashref;
+                    $list_empl->finish;
+                    my $end;
+                    if ($res && $res->{lastday}) {
+                        $end = DateTime->from_epoch(epoch => str2time($res->{lastday}));
+                        $end->set_time_zone( DateTime::TimeZone->new( name => 'local' ) );
+                        $end->add(hours => 23, minutes => 59, seconds => 59);
                     }
                     return $end ? $end->iso8601 : undef