Changeset 103

Timestamp:

05/13/09 22:43:57 (15 years ago)

Author:

nanardon

Message:

• rename list_canonicals_fields to list_canonical_fields

Location:

LATMOS-Accounts

Files:

• lib/LATMOS/Accounts/Bases.pm (modified) (3 diffs)
• lib/LATMOS/Accounts/Bases/Unix.pm (modified) (1 diff)
• lib/LATMOS/Accounts/Synchro.pm (modified) (2 diffs)
• t/10_bases.t (modified) (1 diff)

LATMOS-Accounts/lib/LATMOS/Accounts/Bases.pm

@@ -64 +64 @@
 }
 
-=head2 list_canonicals_fields($otype, $for)
+=head2 list_canonical_fields($otype, $for)
 
 Return the list of supported fields by the database for object type $otype.
@@ -73 +73 @@
 =cut
 
-sub list_canonicals_fields {
+sub list_canonical_fields {
     my ($self, $otype, $for) = @_;
     $for ||= 'rw';
@@ -287 +287 @@
     my @fields = $options{attrs}
         ? @{ $options{attrs} }
-        : $self->list_canonicals_fields($srcobj->type, 'w');
+        : $self->list_canonical_fields($srcobj->type, 'w');
     my %data;
     foreach (@fields) {

LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Unix.pm

@@ -96 +96 @@
 }
 
-sub list_canonicals_fields {
+sub list_canonical_fields {
     my ($self, $type, $for) = @_;
     $for ||= 'rw';

LATMOS-Accounts/lib/LATMOS/Accounts/Synchro.pm

@@ -197 +197 @@
             my %fields = ();
             my %delayed = map { $_ => 1 } $to->delayed_fields($otype);
-            foreach ($from->list_canonicals_fields($otype, 'r')) {
+            foreach ($from->list_canonical_fields($otype, 'r')) {
                 $delayed{$_} and next;
                 $fields{$_} ||= 0; # avoid 
                 $fields{$_}++;
             }
-            foreach ($to->list_canonicals_fields($otype, 'w')) {
+            foreach ($to->list_canonical_fields($otype, 'w')) {
                 $delayed{$_} and next;
                 $fields{$_} ||= 0; # avoid 
@@ -216 +216 @@
             my %fields = ();
             my %delayed = map { $_ => 1 } $to->delayed_fields($otype);
-            foreach ($from->list_canonicals_fields($otype, 'r')) {
+            foreach ($from->list_canonical_fields($otype, 'r')) {
                 $delayed{$_} or next;
                 $fields{$_} ||= 0; # avoid 
                 $fields{$_}++;
             }
-            foreach ($to->list_canonicals_fields($otype, 'w')) {
+            foreach ($to->list_canonical_fields($otype, 'w')) {
                 $delayed{$_} or next;
                 $fields{$_} ||= 0; # avoid 

LATMOS-Accounts/t/10_bases.t

@@ -17 +17 @@
 
 ok(eq_set(
-    [ $dummyb->list_canonicals_fields('user') ],
+    [ $dummyb->list_canonical_fields('user') ],
     [qw(username homeDirectory) ],
 ), "Can get canonicals fields");