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

Timestamp:

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

Author:

nanardon

Message:

Store creator and last modifier into objects

Location:

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases

Files:

• Sql.pm (modified) (1 diff)
• Sql/objects.pm (modified) (2 diffs)

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)

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

@@ -104 +104 @@
         },
         services   =>   { managed => 1,  multiple => 1, reference => 'service' },
+        modifiedby =>   { inline  => 1, reference => 'user', ro => 1 },
+        createdby =>    { inline  => 1, reference => 'user', ro => 1 },
     );
 
@@ -203 +205 @@
     }
     $first{$class->_key_field} = $id;
+    $first{createdby} =  $base->user || '@Console';
+    $first{modifiedby} = $base->user || '@Console';
 
     my $lastid;