Changeset 2479

Timestamp:

10/08/21 18:29:38 (3 years ago)

Author:

nanardon

Message:

Allow to specify default values for attribute in la-allowed-values.ini

Location:

trunk/LATMOS-Accounts

Files:

• lib/LATMOS/Accounts.pm (modified) (1 diff)
• man/man5/la-allowed-values.ini.pod (modified) (1 diff)

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

@@ -186 +186 @@
         my ($val) = $self->val( '_defattr_', $_ );
         $defattr{ $_ } = $val;
+    }
+
+    if (my $ini = $self->{_allowed_values}) {
+        foreach my $attr ( $ini->Sections ) {
+            if ( my @defaults = $ini->val( $attr, 'default' ) ) {
+                $defattr{ $attr } = @defaults > 1 ? @defaults : $defaults[0];
+            }
+        }
     }
 

trunk/LATMOS-Accounts/man/man5/la-allowed-values.ini.pod

@@ -20 +20 @@
 =head2 VARIABLES
 
+=head3 default
+
+The default value for this attribute
+
 =head3 allowed