Changeset 1058 for branches

Timestamp:

07/20/12 17:10:34 (12 years ago)

Author:

nanardon

Message:

• ressurect still used functions

File:

• branches/3.0/LATMOS-Accounts/lib/LATMOS/Accounts.pm (modified) (2 diffs)

branches/3.0/LATMOS-Accounts/lib/LATMOS/Accounts.pm

@@ -281 +281 @@
 }
 
+sub _sync_from_name {
+    my ($self, $syncname) = @_;
+    return if (!$syncname);
+    $self->val("sync:$syncname", 'from', $self->default_base_name);
+}
+
 =head2 sync_access($name, %options)
 
@@ -293 +299 @@
     if ($name) {
         @obases =
-        (map { $self->base($_) } ($self->sync_from_name($name), $self->val("sync:$name", 'to')));
+        (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'))
+            ($self->_sync_from_name($sname), $self->val("sync:$sname", 'to'))
         );
     }