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

Timestamp:

12/22/15 12:59:06 (9 years ago)

Author:

nanardon

Message:

Add endStrictEmployment user's attribute and doc

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/User.pm (modified) (1 diff)

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

@@ -236 +236 @@
                             }
                             if ($tend->ymd lt $nextstart->ymd) {
+                                last;
+                            }
+                        }
+                        $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);
+                    }
+                    $list_empl->finish;
+
+                    if (!$end) {
+                        my $listold = $self->base->db->prepare_cached(q{
+                            SELECT max(lastday) as lastday FROM employment WHERE "user" = ? and
+                            lastday IS NOT NULL and lastday <= now() - '1 days'::interval
+                        });
+                        $listold->execute($self->id);
+                        my $res = $listold->fetchrow_hashref;
+                        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);
+                        }
+                        $listold->finish;
+                    }
+                    return $end ? $end->iso8601 : undef
+                },
+            },
+            endStrictEmployment => {
+                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" = ? and
+                            (lastday is null or lastday >= now() - '1 days'::interval) 
+                            order by firstday asc
+                    });
+                    $list_empl->execute($self->id);
+                    my $end;
+                    while (my $res = $list_empl->fetchrow_hashref) {
+                        if (!$res->{lastday}) {
+                            # Ultimate employment.
+                            $list_empl->finish;
+                            return undef;
+                        }
+                        if ($end) {
+                            my $nextstart = DateTime->from_epoch(epoch => str2time($res->{firstday}));
+                            if ($end->ymd lt $nextstart->ymd) {
                                 last;
                             }