Changeset 1311 for trunk/LATMOS-Accounts

Timestamp:

04/02/15 15:43:23 (9 years ago)

Author:

nanardon

Message:

Add an irev column to SQL log

Location:

trunk/LATMOS-Accounts

Files:

• bin/la-sql-log (modified) (1 diff)
• bin/la-sql-upgrade.in (modified) (1 diff)
• lib/LATMOS/Accounts/Bases/Sql.pm (modified) (1 diff)

trunk/LATMOS-Accounts/bin/la-sql-log

@@ -56 +56 @@
 
 foreach(@logs) {
-    printf("%s %s: %s/%s (%d) %s\n",
+    printf("%s (%d), %s: %s/%s (%d) %s\n",
         $_->{logdate},
+        $_->{irev} || -1,
         $_->{username},
         $_->{otype},

trunk/LATMOS-Accounts/bin/la-sql-upgrade.in

@@ -262 +262 @@
               logkey SERIAL NOT NULL,
               ikey bigint NOT NULL,
+              irev bigint,
               otype text NOT NULL,
               name text NOT NULL,

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

@@ -649 +649 @@
 
     my $sth = $self->db->prepare(q{
-        INSERT into objectslogs (ikey, otype, name, changetype, username, message)
-        VALUES (?,?,?,?,?,?)
+        INSERT into objectslogs (ikey, irev, otype, name, changetype, username, message)
+        VALUES (?,?,?,?,?,?,?)
         });
 
     $sth->execute(
         $ref,
+        $self->current_rev,
         $otype,
         $name,