Changeset 2385


Ignore:
Timestamp:
06/05/20 12:16:02 (4 years ago)
Author:
nanardon
Message:

Add OCHelper for Address and Employment

Location:
trunk/LATMOS-Accounts
Files:
2 added
3 edited

Legend:

Unmodified
Added
Removed

  • trunk/LATMOS-Accounts/MANIFEST

    r2352 r2385  
    8282lib/LATMOS/Accounts/Bases/Mail/objects.pm 
    8383lib/LATMOS/Accounts/Bases/OCHelper.pm 
     84lib/LATMOS/Accounts/Bases/OCHelper/Address.pm 
     85lib/LATMOS/Accounts/Bases/OCHelper/Employment.pm 
    8486lib/LATMOS/Accounts/Bases/OCHelper/Group.pm 
    8587lib/LATMOS/Accounts/Bases/OCHelper/Nethost.pm 

  • trunk/LATMOS-Accounts/bin/la-create

    r2383 r2385  
    119119 
    120120            $ochelper->Automate($info) or 
    121                 die "Cannot create object (not enough information ?)\n"; 
     121                die "Cannot create object:" . LATMOS::Accounts::Log::lastmessage() . "\n"; 
     122 
     123            $labase->commit; 
     124            $LA->call_batch_sync; 
     125 
     126            return 1; 
    122127        }  
    123128    } 

  • trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/Employment.pm

    r2363 r2385  
    375375    my ($class, $base, $obj, %changes) = @_; 
    376376 
    377     my $user = $changes{user} || $obj->get_attributes('user'); 
     377    my $user = $changes{user} || (ref $obj ? $obj->get_attributes('user') : undef); 
     378 
    378379    my $id = ref $obj ? $obj->id : $obj; 
    379380 
Note: See TracChangeset for help on using the changeset viewer.