Changeset 1444

Timestamp:

11/01/15 23:12:50 (9 years ago)

Author:

nanardon

Message:

Distinguish 0 of undef value

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/objects.pm (modified) (1 diff)

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

@@ -221 +221 @@
         )
     );
-    $sth->execute(map { $first{$_} || undef } sort keys %first) or return;
+    $sth->execute(map { defined($first{$_}) ? $first{$_} : undef } sort keys %first) or return;
 
     my $sthid = $base->db->prepare_cached(