Changeset 1358 for trunk/LATMOS-Accounts/lib/LATMOS
- Timestamp:
- 06/25/15 15:38:45 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Objects.pm
r1357 r1358 78 78 # finding perl class: 79 79 my $pclass = $base->_load_obj_class($otype) or return; 80 my $newobj = "$pclass"->new($base, $id, @args) or return; 80 my $newobj = "$pclass"->new($base, $id, @args); 81 82 defined($newobj) or do { 83 $base->log(LA_DEBUG, "$pclass->new() returned undef for $otype / $id"); 84 return; 85 }; 81 86 82 87 $newobj->{_base} = $base;
Note: See TracChangeset
for help on using the changeset viewer.