Changeset 353 for LATMOS-Accounts

Timestamp:

08/17/09 02:28:58 (15 years ago)

Author:

nanardon

Message:

• revaliases can exists in Sql base only is the corresponding exists, checking this or ignoring creation

File:

• LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/Revaliases.pm (modified) (2 diffs)

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

@@ -6 +6 @@
 
 use base qw(LATMOS::Accounts::Bases::Sql::objects);
+use LATMOS::Accounts::Log;
 
 our $VERSION = (q$Rev: 341 $ =~ /^Rev: (\d+) /)[0];
@@ -43 +44 @@
 sub has_extended_attributes { 0 }
 
+sub _create {
+    my ($class, $base, $id, %data) = @_;
+
+    $base->get_object('user', $id) or do {
+        $base->log(LA_ERR, 'Cannot create revaliases %s: no such user', $id);
+        return;
+    };
+
+    $class->SUPER::_create($base, $id, %data);
+}
+
 1;