Changeset 1457 for trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql.pm

Timestamp:

11/03/15 12:09:15 (9 years ago)

Author:

nanardon

Message:

Store creator and last modifier into objects

File:

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

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

@@ -638 +638 @@
     my ($self, $otype, $name, $ref, $changetype, $message, @args) = @_;
 
+    my $sthmodifiedby = $self->db->prepare(q{
+        UPDATE objects set modifiedby = ? where ikey = ?
+    });
+
+    $sthmodifiedby->execute(
+        $self->user || '@Console',
+        $ref,
+    );
+
     my $sth = $self->db->prepare(q{
         INSERT into objectslogs (ikey, irev, otype, name, changetype, username, message)