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

Timestamp:

06/05/19 13:51:13 (5 years ago)

Author:

nanardon

Message:

Add log attribute, allow to fetch object log

File:

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

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

@@ -239 +239 @@
             },
             label => l('Set me as reference'),
+        },
+        log => {
+            multiple => 1,
+            managed => 1,
+            ro => 1,
+            hide => 1,
+            get => sub {
+                my ($self) = @_;
+                return [
+                    map { sprintf(
+                    "%s (%d), %s: %s/%s (%d) %s",
+                    $_->{logdate},
+                    $_->{irev} || -1,
+                    $_->{username},
+                    $_->{otype},
+                    $_->{name},
+                    $_->{ikey},
+                    $_->{message}
+                ) } $self->object->base->getobjectlogs(
+                    $self->object->type,
+                    $self->object->id,
+                ) ];
+            },
         },
     );