Changeset 407

Timestamp:

08/31/09 17:11:21 (15 years ago)

Author:

nanardon

Message:

• attributes needing to have uniq value are now check online, showing img on field change

Location:

LATMOS-Accounts-Web

Files:

• lib/LATMOS/Accounts/Web/Controller/Ajax.pm (modified) (1 diff)
• lib/LATMOS/Accounts/Web/Model/AttrForms.pm (modified) (5 diffs)
• root/html/users/index.tt (modified) (1 diff)
• root/static/images/dialog-cancel.png (added)
• root/static/images/dialog-ok-apply.png (added)

LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller/Ajax.pm

@@ -56 +56 @@
 }
 
+sub objattrexist : Local {
+    my ($self, $c, $otype, $attr) = @_;
+    my $base = $c->model('Accounts')->db;
+    my $val = $c->req->param('val');
+    my @obj = $base->search_objects($otype, "$attr=$val");
+
+    if (my $filter = $c->req->param('exclude')) {
+        @obj = grep { $_ ne $filter } @obj;
+    }
+    $c->stash->{'exists'} = join(', ', @obj);
+}
+
 sub end : Private {
     my ( $self, $c ) = @_;

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

@@ -17 +17 @@
 my $attrs = {
     uid => [ 'Login', 'text:12' ],
-    uidNumber => [ 'UID', 'text:6' ],
+    uidNumber => [ 'UID', 'text-U:6' ],
     gidNumber => [ 'GID', 'select:group:gidNumber' ],
     manager => [ 'Responsable', 'select-N:user' ],
@@ -23 +23 @@
     sn => [ 'Nom' ],
     givenName => [ 'Prénom' ],
-    homeDirectory => [ 'Home' ],
+    homeDirectory => [ 'Home', 'text-U:15' ],
     loginShell => [ 'Shell', 'text-A' ],
     physicalDeliveryOfficeName => [ 'Bureau' ],
@@ -43 +43 @@
     site => [ 'Site', 'select-N:site' ],
     co => [ 'Pays' ],
+    mail => [ 'Mail', 'text-U:30' ],
 };
 
@@ -187 +188 @@
     # group list here, really the number !
     $type ||= 'text';
-    $type = 'text:6' if (($self->{form} || '') =~ /^group/ && $attr eq 'gidNumber');
-    my $htmlname = ($self->{object} ? $self->{object}->id . '_' : '') . $attr;
+    $type = 'text-U:6' if (($self->{form} || '') =~ /^group/ && $attr eq 'gidNumber');
+    my $htmlname = $self->escape(($self->{object} ? $self->{object}->id . '_' :
+            '') . $attr);
     for ($type) {
         /^textarea$/ and return sprintf(
@@ -280 +282 @@
             );
             if ($flag =~ /A/) {
-            $textf .= qq{<span id="${htmlname}_auto_complete"></span>};
+            $textf .= qq|<span id="${htmlname}_auto_complete"></span>|;
             $textf .= "\n";
             $textf .= $self->{c}->prototype->auto_complete_field(
                 $htmlname,
-                { 
+                {
+                update => "${htmlname}_auto_complete",
                 url => $self->{c}->uri_for('/ajax', 'attrvalues', $self->otype, $attr),
                 indicator => "${htmlname}_stat", min_chars => 1,
                 with => "'val='+document.getElementById('$htmlname').value",
+                frequency => 2,
                 }
-            ) .
-            qq|<span style="display:none" id="${htmlname}_stat">Searching...</span>|;
+            );
             }
+            if ($flag =~ /U/) {
+            $textf .= qq|<span id="${htmlname}_observer_uniq"></span>|;
+            $textf .= "\n";
+            $textf .= $self->{c}->prototype->observe_field(
+                $htmlname,
+                {
+                update => "${htmlname}_observer_uniq",
+                url => $self->{c}->uri_for('/ajax', 'objattrexist',
+                    $self->otype, $attr),
+                frequency => 2,
+                indicator => "${htmlname}_stat", min_chars => 1,
+                with => "'val='+document.getElementById('$htmlname').value" .
+                    ($self->{object} ? "+'&exclude=" . $self->{object}->id . "'" :
+                        ''),
+                }
+            );
+            }
+            $textf .= qq|<span style="display:none" id="${htmlname}_stat">Searching...</span>|;
+
             return $textf;
         };

LATMOS-Accounts-Web/root/html/users/index.tt

@@ -1 +1 @@
 [% db = c.model('Accounts').db %]
-<!-- $Id -->
+<!-- $Id$ -->
 <div style="float: right" id="filter">
 [% INCLUDE 'includes/filter.tt'