Changeset 167 for LATMOS-Accounts-Web/lib

Timestamp:

05/23/09 07:01:57 (15 years ago)

Author:

nanardon

Message:

• add checkbox type field

File:

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

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

@@ -38 +38 @@
     st => [ 'État (US)' ],
     sutype => [ 'Structure admin.', 'select-N:sutype' ],
+    exported => [ undef, 'checkbox' ],
 };
 
@@ -73 +74 @@
             title
             expire
+            exported
         ) ],
     },
@@ -95 +97 @@
         attrs => [ qw(
             gidNumber description
-            sutype
+            sutype exported
         ) ],
     },
@@ -202 +204 @@
             return $html;
         };
+        /^checkbox$/ and do {
+            return sprintf('<input type="checkbox" name="%s"%s>',
+                $attr,
+                $self->attr_raw_value($attr) ? '  checked="yes"' : ''
+            );
+        };
         /^select(-\w+)?:([^:]+)(?::(.*))?$/ and do {
             my $options = $1 || '';