Changeset 2385 for trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases

Timestamp:

06/05/20 12:16:02 (4 years ago)

Author:

nanardon

Message:

Add OCHelper for Address and Employment

Location:

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases

Files:

• OCHelper/Address.pm (added)
• OCHelper/Employment.pm (added)
• Sql/Employment.pm (modified) (1 diff)

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

@@ -375 +375 @@
     my ($class, $base, $obj, %changes) = @_;
 
-    my $user = $changes{user} || $obj->get_attributes('user');
+    my $user = $changes{user} || (ref $obj ? $obj->get_attributes('user') : undef);
+
     my $id = ref $obj ? $obj->id : $obj;