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

Timestamp:

06/20/19 09:15:24 (5 years ago)

Author:

nanardon

Message:

Add lastlogin attribute

Location:

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

Files:

• Sql.pm (modified) (1 diff)
• Sql/User.pm (modified) (1 diff)
• Sql/upgrade.pm (modified) (1 diff)

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

@@ -18 +18 @@
 our $VERSION = (q$Rev$ =~ /^Rev: (\d+) /)[0];
 
-sub SCHEMA_VERSION { 34 };
+sub SCHEMA_VERSION { 35 };
 
 =head1 NAME

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

@@ -231 +231 @@
                 monitored => 1,
                 label => l('End of entrance'),
+            },
+            lastlogin    => {
+                inline => 1,
+                formtype => 'DATETIME',
+                monitored => 1,
+                label => l('Last login'),
+                set => sub {
+                    my ($self, $values) = @_;
+                    if ($values) {
+                        my $sth = $base->db->prepare_cached(
+                            q{ update "user" set lastlogin = $1 where (lastlogin < $1 or lastlogin IS NULL) and name = $2 }
+                        );
+                        return $sth->execute($values, $self->object->id);
+                    } else {
+                        my $sth = $base->db->prepare_cached(
+                            q{ update "user" set lastlogin = NULL where name = $2 }
+                        );
+                        return $sth->execute($self->object->id);
+                    }
+                },
             },
             _endEmployment => {

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

@@ -1261 +1261 @@
             recompute => 1,
         },
+        {
+            ver => 35,
+            sql => [
+                q{
+                ALTER TABLE "user" ADD COLUMN lastlogin timestamp with time zone
+                }
+            ],
+        },
     );