Changeset 206 for LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Model/AttrForms.pm

Timestamp:

05/27/09 11:09:35 (15 years ago)

Author:

nanardon

Message:

• allow to fix length of text field

File:

• LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Model/AttrForms.pm (modified) (5 diffs)

LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Model/AttrForms.pm

@@ -16 +16 @@
 
 my $attrs = {
-    uid => [ 'Login' ],
-    uidNumber => [ 'UID' ],
+    uid => [ 'Login', 'text:12' ],
+    uidNumber => [ 'UID', 'text:6' ],
     gidNumber => [ 'GID', 'select:group:gidNumber' ],
     manager => [ 'Responsable', 'select-N:user:uid' ],
@@ -34 +34 @@
     department => [ 'Département', 'select-N:department' ],
     streetAddress => [ 'Rue', 'textarea' ],
-    st => [ 'Etat' ],
     title => [ 'Fonction' ],
     expire => [ 'Expire le', 'date' ],
@@ -175 +174 @@
     # exception: gidNumber is used also in group, but we don't want
     # group list here, really the number !
-    $type = '' if (($self->{form} || '') =~ /^group/ && $attr eq 'gidNumber');
+    $type ||= 'text';
+    $type = 'text:6' if (($self->{form} || '') =~ /^group/ && $attr eq 'gidNumber');
     for ($type) {
         /^textarea$/ and return sprintf(
-            '<textarea name="%s">%s</textarea>',
+            '<textarea name="%s" cols="40">%s</textarea>',
             $self->escape($attr),
             $self->escape($self->attr_raw_value($attr)),
@@ -194 +194 @@
             </SCRIPT>} . "\n";
             $html .= sprintf(
-                '<input type="text" name="%s" value="%s">',
+                '<input type="text" name="%s" value="%s" size="12">',
                 $attr,
                 $self->escape($date)
@@ -236 +236 @@
             return $select;
         };
+        /^text(?::(\d+))?/ and do {
+            return sprintf(
+                '<input type="text" name="%s" value="%s" size="%d">',
+                $attr,
+                $self->escape($self->attr_raw_value($attr)),
+                $1 || 30,
+            );
+        };
     }
-    return sprintf(
-        '<input type="text" name="%s" value="%s">',
-        $attr,
-        $self->escape($self->attr_raw_value($attr))
-    );
 }