Changeset 328

Timestamp:

08/11/09 04:41:45 (15 years ago)

Author:

nanardon

Message:

• try to catch error in sql statement

File:

• LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/objects.pm (modified) (3 diffs)

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

@@ -292 +292 @@
         if ($inline{$field}) {
         # TODO check fields exists !
-        push(@fields, sprintf("%s = ?", $self->db->quote_identifier($field)));
-        push(@vals, $data{$field});
+            push(@fields, sprintf("%s = ?", $self->db->quote_identifier($field)));
+            push(@vals, $data{$field});
         } else {
             $ext{$field} = $data{$field};
@@ -307 +307 @@
             )
         );
-        $sth->execute(@vals, $self->id) or return;
+        $sth->execute(@vals, $self->id) or do {
+            $self->base->log(LA_ERR, "Cannot update inline field %s" .
+                $self->base->db->strerr);
+            return;
+        };
     }
     
@@ -332 +336 @@
         my $okey = $self->_get_ikey($self->base, $self->id);
         foreach (keys %ext) {
+            warn "$_ $ext{$_}";
             if ($ext{$_}) {
-                $sthu->execute($ext{$_}, $okey, $_) != 0 ||
-                $sthx->execute($okey, $_, $ext{$_}) or return;
+                my $res = $sthu->execute($ext{$_}, $okey, $_);
+                defined($res) or do {
+                    $self->base->log(LA_ERR,
+                        "Error while udapting attributes: %s",
+                        $self->base->db->strerr
+                    );
+                    return;
+                };
+                if ($res == 0) {
+                    $res = $sthx->execute($okey, $_, $ext{$_});
+                    defined($res) or do {
+                        $self->base->log(LA_ERR,
+                            "Error while udapting attributes: %s",
+                            $self->base->db->strerr
+                        );
+                        return;
+                    };
+                }
             } else {
-                $sthd->execute($okey, $_) or return;
+                defined($sthd->execute($okey, $_)) or do {
+                    $self->base->log(LA_ERR,
+                        "Error while deleting attributes: %s",
+                        $self->base->db->strerr
+                    );
+                    return;
+                };
             }
         }