Changeset 324 for wiki-toolkit/trunk/lib/Wiki/Toolkit/Store/Database.pm

Timestamp:

06/06/06 18:12:20 (6 years ago)

Author:

dom

Message:

Close some active statements (references #6)

Files:

• wiki-toolkit/trunk/lib/Wiki/Toolkit/Store/Database.pm (modified) (7 diffs)

wiki-toolkit/trunk/lib/Wiki/Toolkit/Store/Database.pm

@@ -343 +343 @@
         $sth->execute( $args{name} );
         my $found_name = $sth->fetchrow_array || "";
+        $sth->finish;
         return lc($found_name) eq lc($args{name}) ? 1 : 0;
     }
@@ -712 +713 @@
         $sth->execute($old_name);
         my ($node_id) = $sth->fetchrow_array;
+    $sth->finish;
 
 
@@ -855 +857 @@
     $id_sth->execute($name);
         my ($node_id) = $id_sth->fetchrow_array;
+    $id_sth->finish;
 
         # Check what the current highest moderated version is
@@ -865 +868 @@
         $hv_sth->execute($node_id, "1") or croak $dbh->errstr;
         my ($highest_mod_version) = $hv_sth->fetchrow_array;
+    $hv_sth->finish;
         unless($highest_mod_version) { $highest_mod_version = 0; }
 
@@ -936 +940 @@
     $id_sth->execute($name);
         my ($node_id) = $id_sth->fetchrow_array;
+    $id_sth->finish;
 
         # Mark it as requiring / not requiring moderation
@@ -986 +991 @@
     $id_sth->execute($name);
         my ($node_id) = $id_sth->fetchrow_array;
+    $id_sth->finish;
 
     # Trivial case - delete the whole node and all its history.
@@ -1018 +1024 @@
     $sth->execute() or croak "Deletion failed: " . $dbh->errstr;
     my ($count) = $sth->fetchrow_array;
+    $sth->finish;
         if($count == 1) {
                 # Only one version, so can do the non version delete