Changeset 1269 for branches

Timestamp:

12/15/14 15:47:01 (9 years ago)

Author:

nanardon

Message:

backport: correction fonction rennomage

Location:

branches/4.0

Files:

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

branches/4.0/LATMOS-Accounts/lib/LATMOS/Accounts/SynchAccess/base.pm

@@ -97 +97 @@
 }
 
+=head2 rename_object
+
+=cut
+
+sub rename_object {
+    my ($self, $otype, $uid, $newuid) = @_;
+    foreach ($self->bases) {
+        if ($_->is_supported_object($otype)) {
+            $_->rename_object($otype, $uid, $newuid) or do {
+                la_log(LA_ERR,
+                    "Cannot get object $otype/$uid in %s/%s",
+                    $_->type,
+                    $_->label
+                );
+                return;
+            };
+        }
+    }
+    return 1;
+}
+
 sub DESTROY {}