Changeset 1288 for trunk


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases.pm

    r1286 r1288  
    448448    } 
    449449    #keys %data or return 0; # TODO: return an error ? 
    450     my $obj = $self->create_object($otype, $id, %data); 
    451     $obj->ReportChange('Create', 'Object created'); 
     450    my $obj = $self->create_object($otype, $id, %data) or return; 
     451    $obj->ReportChange('Create', 'Object created with %s', join(', ', sort keys %cdata)); 
     452 
     453    foreach my $attrname (keys %data) { 
     454        my $attribute = $self->attribute($obj->type, $attrname) or next; 
     455        $obj->ReportChange('Attributes', '%s set to %s', $attrname, 
     456            (ref $data{$attrname} 
     457                ? join(', ', @{ $data{$attrname} }) 
     458                : $data{$attrname}) || '(none)') if ($attribute->{notify}); 
     459    } 
     460 
    452461    $obj 
    453462} 
Note: See TracChangeset for help on using the changeset viewer.