Changeset 178 for LATMOS-Accounts/lib/LATMOS/Accounts.pm

Timestamp:

05/24/09 17:55:03 (15 years ago)

Author:

nanardon

Message:

• fix cryptmd5 salt
• w/o options sync_access use defaults values

File:

• LATMOS-Accounts/lib/LATMOS/Accounts.pm (modified) (1 diff)

LATMOS-Accounts/lib/LATMOS/Accounts.pm

@@ -134 +134 @@
     my ($self, $name, %options) = @_;
 
-    my @obases = $name 
-        ? (map { $self->base($_) } ($self->sync_from_name($name), $self->val("sync:$name", 'to')))
-        : map { $self->base($_) } @{ $options{bases} || []};
+    my @obases;
+    if ($name) {
+        @obases =
+        (map { $self->base($_) } ($self->sync_from_name($name), $self->val("sync:$name", 'to')));
+    } elsif(@{ $options{bases} || []}) {
+        @obases = map { $self->base($_) } @{ $options{bases} || []};
+    } elsif (my $sname = $self->default_synchro_name) {
+        @obases = (map { $self->base($_) }
+            ($self->sync_from_name($sname), $self->val("sync:$sname", 'to'))
+        );
+    }
+
     LATMOS::Accounts::SynchAccess->new([ @obases ]);
 }