- Timestamp:
- 12/28/15 12:01:15 (9 years ago)
- Location:
- trunk/LATMOS-Accounts/lib/LATMOS/Accounts
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases.pm
r1531 r1545 335 335 foreach my $cfield (keys %cdata) { 336 336 $self->check_allowed_values($otype, $cfield, $cdata{$cfield}) or do { 337 $self->log(LA_ERR, "Cannot create $otype, wrong value"); 337 my $last = LATMOS::Accounts::Log::lastmessage(LA_ERR); 338 $self->log(LA_ERR, "Cannot create $otype, wrong value%s", ($last ? ": $last" : '')); 338 339 return; 339 340 }; … … 394 395 395 396 if (!$pclass->checkValues($self, $id, %data)) { 397 my $last = LATMOS::Accounts::Log::lastmessage(LA_ERR); 396 398 la_log(LA_ERR, 397 'Cannot create %s (%s) in base %s (%s): wrong values', 398 $id, $otype, $self->label, $self->type 399 'Cannot create %s (%s) in base %s (%s): wrong value%s', 400 $id, $otype, $self->label, $self->type, 401 ($last ? ": $last" : ''), 399 402 ); 400 403 return; -
trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Objects.pm
r1536 r1545 418 418 419 419 if (!$self->checkValues($self->base, $self, %cdata)) { 420 my $last = LATMOS::Accounts::Log::lastmessage(LA_ERR); 420 421 $self->base->log(LA_ERR, 421 "Cannot update %s (%s): wrong values", 422 $self->id, $self->type 422 "Cannot update %s (%s): wrong value%s", 423 $self->id, $self->type, 424 ($last ? ": $last" : $last) 423 425 ); 424 426 return;
Note: See TracChangeset
for help on using the changeset viewer.