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

Timestamp:

05/17/09 02:59:54 (15 years ago)

Author:

nanardon

Message:

• address form

File:

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

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

@@ -20 +20 @@
     gidNumber => 'GID',
     sn => 'Nom',
-    givenName => 'Prenom',
+    givenName => 'Prénom',
     homeDirectory => 'Home',
     loginShell => 'Shell',
+    physicalDeliveryOfficeName => 'Bureau',
+    telephoneNumber => 'Téléphone',
+    otherTelephone => 'Téléphone (autre)',
 };
 
 my $forms = {
-    user_main => {
+    user => {
+        name => 'SystÚme',
         acl => 'admin',
         attrs => [ qw(
             sn givenName uid uidNumber gidNumber gecos homeDirectory loginShell
+            mail
         ) ],
-    }
+    },
+    useraddress => {
+        name => 'Adresse',
+        attrs => [ qw(
+            telephoneNumber
+            otherTelephone
+            physicalDeliveryOfficeName
+        ) ],
+    },
 };
 
 sub escape {
     my ($self, $text) = @_;
+    $text ||= '';
     for ($text) {
         s/&/&/g;
@@ -57 +71 @@
     $self->{object} = $object or return;
     $self
+}
+
+sub label {
+    my ($self) = @_;
+    $forms->{$self->{form}}->{name} || ''
 }