Changeset 1834

Timestamp:

08/29/16 12:28:13 (8 years ago)

Author:

nanardon

Message:

Allow to create pasted employment (trought config)

Location:

trunk/LATMOS-Accounts

Files:

• lib/LATMOS/Accounts/Bases/Sql/Employment.pm (modified) (1 diff)
• man/man8/latmos-accounts-base-sql.pod (modified) (1 diff)

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

@@ -296 +296 @@
     };
 
+    if (! $base->config("allow_pasted_employment")) {
     # Completed contract are RO, we allow to still set lastday
-    foreach (qw(endcircuit firstday contratType department managerContact company)) {
-        $attrs->{$_}{ro} = sub {
-            my ($self) = $_[0];
-            $self or return 0;
-            my $st = $self->get_attributes('state') || '0';
-            return $st < 0 ? 1 : 0;
-        };
+        foreach (qw(endcircuit firstday contratType department managerContact company)) {
+            $attrs->{$_}{ro} = sub {
+                my ($self) = $_[0];
+                $self or return 0;
+                my $st = $self->get_attributes('state') || '0';
+                return $st < 0 ? 1 : 0;
+            };
+        }
     }
     $class->SUPER::_get_attr_schema($base, $attrs);

trunk/LATMOS-Accounts/man/man8/latmos-accounts-base-sql.pod

@@ -94 +94 @@
 You can change this beaviour using C<employment_lock_user> parameter:
 
+By default it is impossible to modify or create past employment. This behavior
+can be changed by settings C<allow_pasted_employment> parameter in base
+configuration.
+
 =over 4