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

Timestamp:

05/21/09 01:09:14 (15 years ago)

Author:

nanardon

Message:

• improve add field in forms
• complete menu

File:

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

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

@@ -19 +19 @@
     uidNumber => [ 'UID' ],
     gidNumber => [ 'GID', 'select:group:gidNumber' ],
+    manager => [ 'Responsable', 'select-N:user:uid' ],
     sn => [ 'Nom' ],
     givenName => [ 'Prénom' ],
@@ -30 +31 @@
     postalCode => [ 'Code postal' ],
     postOfficeBox => [ 'BP' ],
-    department => [ 'Département' ],
+    department => [ 'Département', 'select-N:department' ],
     streetAddress => [ 'Rue', 'textarea' ],
     st => [ 'Etat' ],
@@ -64 +65 @@
         attrs => [ qw(
             company
+            manager
             department
             title
@@ -80 +82 @@
     cell => {
         name => 'Cellule',
-        attrs => [qw(description) ],
+        attrs => [qw(description manager) ],
     },
     department => {
         name => 'Département',
-        attrs => [qw(description) ],
+        attrs => [qw(description manager) ],
     },
     team => {
@@ -178 +180 @@
             $self->attr_raw_value($attr)
         );
-        /^select:([^:]+):(.*)$/ and do {
-            my $otype = $1;
-            my $keyfield = $2;
+        /^select(-\w+)?:([^:]+)(?::(.*))?$/ and do {
+            my $options = $1 || '';
+            my $otype = $2;
+            my $keyfield = $3;
             my $select = sprintf('<select name="%s">',
                 $self->escape($attr)) . "\n";
-            my $value = $self->attr_raw_value($attr);
+            $select .= '<option value="">--</option>' . "\n" if ($options =~ /N/);
+            my $value = $self->attr_raw_value($attr) || '';
             foreach my $id ($self->base->list_objects($otype)) {
                 my $obj = $self->base->get_object($otype, $id) or next;