Changeset 683 for LATMOS-Accounts/lib/LATMOS/Accounts.pm

Timestamp:

01/21/10 01:06:46 (14 years ago)

Author:

nanardon

Message:

• implement a basic attribute value check, at time allow just to limit to a set of value

File:

• LATMOS-Accounts/lib/LATMOS/Accounts.pm (modified) (2 diffs)

LATMOS-Accounts/lib/LATMOS/Accounts.pm

@@ -48 +48 @@
         };
         $self->{_acls} = $acls;
+    }
+
+    if ($self->val('_default_', 'allowed_values')) {
+        $self->{_allowed_values} = Config::IniFiles->new(
+            -file => $self->val('_default_', 'allowed_values'),
+            -allowempty => 1,
+        ) or do {
+            return;
+        };
+    } else {
+        $self->{_allowed_values} = Config::IniFiles->new();
     }
 
@@ -143 +154 @@
         label => $section,
         acls => $self->{_acls},
+        allowed_values => $self->{_allowed_values},
     ) or do {
         la_log(LA_WARN, "Cannot instanciate base $section ($type)");