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

Timestamp:

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

Author:

nanardon

Message:

Allow to create pasted employment (trought config)

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/Employment.pm (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);