Changeset 1524 for trunk/LATMOS-Accounts/lib

Timestamp:

12/22/15 17:36:36 (9 years ago)

Author:

nanardon

Message:

Allow fine control on ro attributes

This patch allow to control why the status attributes become read-only when
using employment.

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/User.pm (modified) (8 diffs)

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

@@ -87 +87 @@
     };
 
-    $class->SUPER::_get_attr_schema($base,
-        {
+    my $attrs = {
             exported => {
                 post => sub {
@@ -197 +196 @@
             },
             expire        => {
-                ro => sub { !$_[0] and return 1; $_[0]->listEmployment ? 1 : 0 },
                 inline => 1,
                 formtype => 'DATETIME',
@@ -203 +201 @@
             },
             endcircuit    => {
-                ro => sub { !$_[0] and return 1; $_[0]->listEmployment ? 1 : 0 },
                 inline => 1,
                 formtype => 'DATE',
@@ -511 +508 @@
             },
             department => {
-                ro => sub { !$_[0] and return 1; $_[0]->listEmployment ? 1 : 0 },
                 reference => 'group',
                 can_values => sub {
@@ -519 +515 @@
             },
             contratType => {
-                ro => sub { !$_[0] and return 1; $_[0]->listEmployment ? 1 : 0 },
                 reference => 'group',
                 can_values => sub {
@@ -837 +832 @@
             },
             managerContact => {
-                ro => sub { !$_[0] and return 1; $_[0]->listEmployment ? 1 : 0 },
                 delayed => 1,
                 can_values => sub {
@@ -950 +944 @@
             encryptedPassword => { },
             description => { },
-            company => {
-                ro => sub { !$_[0] and return 1; $_[0]->listEmployment ? 1 : 0 },
-            },
+            company => { },
             comment => { },
             college => { },
@@ -983 +975 @@
                 }
             },
+            nextEmployment => {
+                managed => 1,
+                ro => 1,
+                reference => 'employment',
+                get => sub {
+                    my ($attr) = @_;
+                    my $self = $attr->object;
+
+                    my $sth = $self->base->db->prepare_cached(
+                        q{
+                        select name from employment where firstday > now() and
+                        (lastday is null or lastday >= now() - '1 days'::interval) and "user" = ?
+                        limit 1
+                        }
+                    );
+                    $sth->execute($self->id);
+                    my $res = $sth->fetchrow_hashref;
+                    $sth->finish;
+                    if ($res) {
+                        return $res->{name}
+                    } else {
+                        return;
+                    }
+                }
+            },
             appliedEmployement => {
                 hidden => 1,
                 reference => 'employment',
             },
-        }
-    )
+    };
+
+    foreach (qw(expire contratType managerContact company endcircuit department)) {
+        $attrs->{$_}{ro} = sub {
+
+            my $setting = $base->config('employment_lock_user') || 'any';
+
+            for ($setting) {
+                /^always$/ and return 1;
+                /^never$/ and return 0;
+
+                !$_[0] and return 1;
+
+                /^any$/i and return $_[0]->listEmployment ? 1 : 0;
+                /^active/i and do {
+                    return $_[0]->_get_c_field('currentEmployment')
+                        ? 1
+                        : $_[0]->_get_c_field('nextEmployment') ? 1 : 0;
+                };
+                /(\S+)=(\S+)/ and do {
+                    my $attr = $_[0]->_get_c_field($1);
+                    if (defined($attr)) {
+                        if ($2 eq '*') {
+                            return 1;
+                        } elsif($2 eq $attr) {
+                            return 1;
+                        } else {
+                            return 0;
+                        }
+                    } else {
+                        return 0;
+                    }
+                };
+            }
+            return $_[0]->listEmployment ? 1 : 0; # default is any!
+        };
+    }
+
+    $class->SUPER::_get_attr_schema($base, $attrs)
 }