Changeset 2121 for trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases

Timestamp:

11/06/17 17:41:24 (7 years ago)

Author:

nanardon

Message:

add tools to search employments

File:

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

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

@@ -955 +955 @@
 }
 
+=head2 getEmploymentRange
+
+Return date range within employment can be found in database
+
+=cut
+
+sub getEmploymentRange {
+    my ($self, @filters) = @_;
+
+    my ($min,$max);
+
+    if (@filters) {
+        my @flist = $self->search_objects('employment', @filters);
+        my $minSql = $self->db->prepare(q{
+            SELECT min(firstday) as min FROM employment
+            WHERE name = ANY (?)
+        });
+        $minSql->execute(\@flist);
+        if (my $res = $minSql->fetchrow_hashref) {
+            $min = $res->{min}
+        }
+        my $maxSql = $self->db->prepare(q{
+            SELECT max(lastday) as max FROM employment
+            WHERE name = ANY (?)
+        });
+        $maxSql->execute(\@flist);
+        if (my $res = $maxSql->fetchrow_hashref) {
+            $max = $res->{max}
+        }
+    } else {
+        my $minSql = $self->db->prepare(q{
+            SELECT min(firstday) as min FROM employment
+        });
+        $minSql->execute;
+        if (my $res = $minSql->fetchrow_hashref) {
+            $min = $res->{min}
+        }
+        my $maxSql = $self->db->prepare(q{
+            SELECT max(lastday) as max FROM employment
+        });
+        $maxSql->execute;
+        if (my $res = $maxSql->fetchrow_hashref) {
+            $max = $res->{max}
+        }
+    }
+
+    return ($min,$max);
+}
+
 sub ReportChange {
     my ($self, $otype, $name, $ref, $changetype, $message, @args) = @_;