Changeset 2480

Timestamp:

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

Author:

nanardon

Message:

Allow to force from config the attribute type

Location:

trunk/LATMOS-Accounts

Files:

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

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

@@ -685 +685 @@
 sub obj_attr_allowed_values {
     my ($self, $otype, $attr) = @_;
-    if ($self->_allowed_values &&
-        $self->_allowed_values->SectionExists("$otype.$attr")) {
-        return grep { defined($_) } $self->_allowed_values->val("$otype.$attr", 'allowed');
-    }
-    return();
+    return grep { defined($_) } $self->obj_attr_param($otype, $attr, 'allowed');
 }
 
@@ -715 +711 @@
     }
     return 1;
+}
+
+=head2 obj_attr_param ( $otype, $attr, $param )
+
+Return, if any, the paramater $param for this attribute from allowed_values config file
+
+=cut
+
+sub obj_attr_param {
+    my ( $self, $otype, $attr, $param ) = @_;
+
+    if ( $self->_allowed_values &&
+        $self->_allowed_values->SectionExists("$otype.$attr")) {
+        return $self->_allowed_values->val( "$otype.$attr", $param );
+    }
+    return;
 }
 

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

@@ -405 +405 @@
 sub form_type {
 
+    if (my $type = $_[0]->base->obj_attr_param( $_[0]->otype, $_[0]->name, 'type' ) ) {
+        # Forced from config:
+        return uc($type);
+    }
+
     my @values = $_[0]->can_values;
 
     $_[0]->readonly ? 'LABEL' :
     $_[0]->{formtype} ? $_[0]->{formtype} :
-    $_[0]->has_values_list ? ( scalar(@values) > 15 ? 'LIST' : 'SELECT') :
+    $_[0]->has_values_list ? ( scalar(@values) > 5 ? 'LIST' : 'SELECT') :
     $_[0]->real_form_type
 }

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

@@ -28 +28 @@
 The list of value allowed for this attribute
 
+=head3 type
+
+Force the attribute type: LIST, SELECT, DATE, ...
+
 =head1 EXAMPLE