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

Timestamp:

12/24/15 13:58:41 (9 years ago)

Author:

nanardon

Message:

Add maxLastDay minFirstDay attribute to employment

Those attributes return the possible limit when extending an employment

File:

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

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

@@ -146 +146 @@
             },
         },
+        minFirstDay => {
+            ro => 1,
+            hidden => 1,
+            managed => 1,
+            formtype => 'DATE',
+            get => sub {
+                my ($attr) = @_;
+                my $self = $attr->object;
+
+                my $find = $self->base->db->prepare_cached(q{
+                    SELECT max(lastday) as lastday FROM employment where "user" = ?
+                        and lastday is not NULL and lastday < ?
+                    });
+
+                my $first = $self->get_field('firstday');
+
+                $find->execute(
+                    $self->get_field('user'),
+                    $first
+                );
+                my $res = $find->fetchrow_hashref;
+                $find->finish;
+
+                if ($res && $res->{lastday}) {
+                    my $dt = DateTime->from_epoch( epoch => str2time($res->{lastday}));
+                    $dt->set_time_zone( DateTime::TimeZone->new( name => 'local' ) );
+                    $dt->add(days => 1);
+                    if ($first eq $dt->ymd('-')) {
+                        return;
+                    } else {
+                        return $dt->ymd('-');
+                    }
+                } else {
+                    return 'NOLIMIT';
+                }
+            },
+        },
+        maxLastDay => {
+            ro => 1,
+            hidden => 1,
+            managed => 1,
+            formtype => 'DATE',
+            get => sub {
+                my ($attr) = @_;
+                my $self = $attr->object;
+
+                my $find = $self->base->db->prepare_cached(q{
+                    SELECT min(firstday) as firstday FROM employment where "user" = ?
+                        and firstday > ?
+                    });
+
+                my $last = $self->get_field('lastday') or do {
+                    # This contract is last then...
+                    return 'NOLIMIT';
+                };
+
+                $find->execute(
+                    $self->get_field('user'),
+                    $last
+                );
+                my $res = $find->fetchrow_hashref;
+                $find->finish;
+
+                if ($res && $res->{firstday}) {
+                    my $dt = DateTime->from_epoch( epoch => str2time($res->{firstday}));
+                    $dt->set_time_zone( DateTime::TimeZone->new( name => 'local' ) );
+                    $dt->subtract(days => 1);
+                    if ($last eq $dt->ymd('-')) {
+                        return;
+                    } else {
+                        return $dt->ymd('-');
+                    }
+                } else {
+                    return 'NOLIMIT';
+                }
+            },
+        },
     };