Changeset 297 for LATMOS-Accounts/lib

Timestamp:

07/28/09 02:35:27 (15 years ago)

Author:

nanardon

Message:

• add debug messages

File:

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

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

@@ -6 +6 @@
 
 use base qw(LATMOS::Accounts::Bases);
+use LATMOS::Accounts::Log;
 use DBI;
 
@@ -68 +69 @@
                 PrintError => 1,
             }
-        ) or return;
+        ) or do {
+            $self->log(LA_ERR, "Cannot connect to database");   
+            return;
+        };
         $self->{_db}->do(q{set DATESTYLE to 'DMY'});
+        $self->log(LA_DEBUG, 'New connection to DB');
         return $self->{_db};
     }
@@ -87 +92 @@
 sub commit {
     my ($self) = @_;
-    if ($ENV{LA_NO_COMMIT}) { return 1 }
+    if ($ENV{LA_NO_COMMIT}) {
+        $self->log(LA_DEBUG, 'DB::COMMIT (ignore due to LA_NO_COMMIT)');
+        return 1;
+    } else {
+        $self->log(LA_DEBUG, 'DB::COMMIT');
+    }
     $self->db->commit;
 }
@@ -93 +103 @@
 sub rollback {
     my ($self) = @_;
-    if ($ENV{LA_NO_COMMIT}) { return 1 }
+    if ($ENV{LA_NO_COMMIT}) {
+        $self->log(LA_DEBUG, 'DB::ROLLBACK (ignore due to LA_NO_COMMIT)');
+        return 1
+    } else {
+        $self->log(LA_DEBUG, 'DB::ROLLBACK');
+    }
     $self->db->rollback;
 }