Changeset 1284 for branches/4.0/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql.pm

Timestamp:

03/17/15 18:31:05 (9 years ago)

Author:

nanardon

Message:

backport changes from trunk

Location:

branches/4.0

Files:

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

branches/4.0/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql.pm

@@ -637 +637 @@
 }
 
+sub getobjectlogs {
+    my ($self, $otype, $name) = @_;
+
+    my $sth = $self->db->prepare(q{
+        select ikey from objectslogs where
+            otype = ? and
+            name  = ?
+        group by ikey
+    });
+    $sth->execute($otype, $name);
+    my @ids;
+    while (my $res = $sth->fetchrow_hashref) {
+        push(@ids, $res->{ikey});
+    }
+    @ids or return;
+
+    my $sth2 = $self->db->prepare(sprintf(
+        q{
+            select * from objectslogs where ikey IN (%s)
+            order by logdate asc
+        },
+        join(',', ('?') x scalar(@ids))
+    ));
+
+    $sth2->execute(@ids);
+    my @logs;
+    while (my $res = $sth2->fetchrow_hashref) {
+        push(@logs, $res);
+    }
+
+    return @logs;
+}
+
+sub getlogs {
+    my ($self) = @_;
+    my $sth2 = $self->db->prepare(
+        q{
+            select * from objectslogs 
+            where logdate > now() - '1 year'::interval 
+            order by logdate asc
+        },
+    );
+
+    $sth2->execute();
+    my @logs;
+    while (my $res = $sth2->fetchrow_hashref) {
+        push(@logs, $res);
+    }
+
+    return @logs;
+}
+
 1;