Changeset 1500 for trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Objects.pm

Timestamp:

12/18/15 07:25:11 (8 years ago)

Author:

nanardon

Message:

• Add expiration list to expiration page and Employment things

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Objects.pm (modified) (3 diffs)

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

@@ -320 +320 @@
 =cut
 
+=head2 checkValues ($base, $obj, %attributes)
+
+Allow to pre-check values when object are modified or created
+
+C<$obj> is either the new id at object creation or the object itself on modification.
+
+=cut
+
+sub checkValues {
+    my ($class, $base, $obj, %attributes) = @_;
+
+    return 1;
+}
+
 =head2 check_allowed_values ($attr, $values)
 
@@ -369 +383 @@
         };
     }
+
     $self->_set_c_fields(%cdata);
 }
@@ -399 +414 @@
             return;
         };
+    }
+
+    if (!$self->checkValues($self->base, $self, %cdata)) {
+        $self->base->log(LA_ERR,
+            "Cannot update %s (%s): wrong values",
+            $self->id, $self->type
+        );
+        return;
     }