Changeset 1974 for trunk/LATMOS-Accounts/lib
- Timestamp:
- 03/17/17 17:23:36 (7 years ago)
- Location:
- trunk/LATMOS-Accounts/lib/LATMOS/Accounts
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases.pm
r1973 r1974 379 379 my $attribute = $self->attribute($otype, $cfield) or next; 380 380 $attribute->ro and next; 381 $data{$ attribute->iname} = $cdata{$cfield};381 $data{$cfield} = $cdata{$cfield}; 382 382 } 383 383 $self->create_object($otype, $id, %data) or return; … … 409 409 sub create_object { 410 410 my ($self, $otype, $id, %data) = @_; 411 411 412 "$id" or do { 412 413 $self->log(LA_ERR, l("Cannot create %s object with empty id"), -
trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/objects.pm
r1972 r1974 311 311 : $attr->input($data{$_}); 312 312 if ($attr->{inline} && ! $attr->{delayed}) { 313 $first{$_} = $formatted; 313 my $iname = $attr->iname; 314 $first{$iname} = $formatted; 314 315 } else { 316 # the real internal name will be translate by _set_c_field 315 317 $second{$_} = $formatted if(defined($formatted)); 316 318 }
Note: See TracChangeset
for help on using the changeset viewer.