Changeset 2444

Timestamp:

10/01/20 13:53:45 (4 years ago)

Author:

nanardon

Message:

Improve changes tracing

Location:

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql

Files:

• Aliases.pm (modified) (1 diff)
• Revaliases.pm (modified) (1 diff)
• objects.pm (modified) (1 diff)

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/Aliases.pm

@@ -201 +201 @@
 }
 
+sub ParentObject {
+    my ($self) = @_;
+
+    if (my $user = $self->_get_attributes('user')) {
+        return $self->base->get_object('user', $user);
+    } else {
+        return;
+    }
+}
+
 sub new {
     my ($class, $base, $id) = @_;

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

@@ -55 +55 @@
 }
 
+sub ParentObject {
+    my ($self) = @_;
+
+    return $self->base->get_object('user', $self->id);
+}
+
 sub _create {
     my ($class, $base, $id, %data) = @_;

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/objects.pm

@@ -498 +498 @@
     }
 
+    $obj->ReportChange('Delete', 'Removing %s.%s object', $obj->type, $obj->id);
+
     my @parents = $obj->ParentObject;