Changeset 1288 for trunk

Timestamp:

03/20/15 12:31:07 (9 years ago)

Author:

nanardon

Message:

log attributes changes done at object creation when notify is set

File:

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

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

@@ -448 +448 @@
     }
     #keys %data or return 0; # TODO: return an error ?
-    my $obj = $self->create_object($otype, $id, %data);
-    $obj->ReportChange('Create', 'Object created');
+    my $obj = $self->create_object($otype, $id, %data) or return;
+    $obj->ReportChange('Create', 'Object created with %s', join(', ', sort keys %cdata));
+
+    foreach my $attrname (keys %data) {
+        my $attribute = $self->attribute($obj->type, $attrname) or next;
+        $obj->ReportChange('Attributes', '%s set to %s', $attrname,
+            (ref $data{$attrname}
+                ? join(', ', @{ $data{$attrname} })
+                : $data{$attrname}) || '(none)') if ($attribute->{notify});
+    }
+
     $obj
 }