Changeset 52 for LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql.pm

Timestamp:

04/25/09 23:56:24 (15 years ago)

Author:

nanardon

Message:

• add revision support in Sql base

File:

• LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql.pm (modified) (2 diffs)

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

@@ -76 +76 @@
             uidNumber       => 'uid',
             gidNumber       => 'gid',
-            # gecos           => 'gecos',
+            gecos           => 'gecos',
             homeDirectory   => 'home',
             loginShell      => 'shell',
             sn              => 'name',
             givenName       => 'firstname',
-            #userPassword    => ($self->{use_shadow} ? 'spassword' : 'password'),
+            userPassword    => 'password',
         },
         group => {
@@ -124 +124 @@
 }
 
+sub current_rev {
+    my ($self) = @_;
+    my $sth = $self->db->prepare_cached(
+        q{select max(rev) from revisions}
+    );
+    $sth->execute;
+    my $res = $sth->fetchrow_hashref;
+    $sth->finish;
+    return ($res->{max});
+} 
+
 1;