Changeset 108

Timestamp:

05/14/09 03:40:52 (15 years ago)

Author:

nanardon

Message:

• report error on object delete

File:

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

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

@@ -169 +169 @@
             foreach (keys %exists) {
                 if (!$srcexists{$_}) {
-                    print "delete " . $destbase->name . '::' . $otype . '::' . "$_\n";
-                    $destbase->delete_object($otype, $_);
+                    if ($destbase->delete_object($otype, $_)) {
+                        print "delete " . $destbase->name . '::' . $otype . '::' . "$_\n";
+                    } else {
+                        warn "cannot delete " . $destbase->name . '::' . $otype . '::' . "$_\n";
+                    }
                 }
             }