Changeset 324


Ignore:
Timestamp:
Jun 6, 2006, 6:12:20 PM (13 years ago)
Author:
Dominic Hargreaves
Message:

Close some active statements (references #6)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • wiki-toolkit/trunk/lib/Wiki/Toolkit/Store/Database.pm

    r323 r324  
    343343        $sth->execute( $args{name} );
    344344        my $found_name = $sth->fetchrow_array || "";
     345        $sth->finish;
    345346        return lc($found_name) eq lc($args{name}) ? 1 : 0;
    346347    }
     
    712713        $sth->execute($old_name);
    713714        my ($node_id) = $sth->fetchrow_array;
     715    $sth->finish;
    714716
    715717
     
    855857    $id_sth->execute($name);
    856858        my ($node_id) = $id_sth->fetchrow_array;
     859    $id_sth->finish;
    857860
    858861        # Check what the current highest moderated version is
     
    865868        $hv_sth->execute($node_id, "1") or croak $dbh->errstr;
    866869        my ($highest_mod_version) = $hv_sth->fetchrow_array;
     870    $hv_sth->finish;
    867871        unless($highest_mod_version) { $highest_mod_version = 0; }
    868872
     
    936940    $id_sth->execute($name);
    937941        my ($node_id) = $id_sth->fetchrow_array;
     942    $id_sth->finish;
    938943
    939944        # Mark it as requiring / not requiring moderation
     
    986991    $id_sth->execute($name);
    987992        my ($node_id) = $id_sth->fetchrow_array;
     993    $id_sth->finish;
    988994
    989995    # Trivial case - delete the whole node and all its history.
     
    10181024    $sth->execute() or croak "Deletion failed: " . $dbh->errstr;
    10191025    my ($count) = $sth->fetchrow_array;
     1026    $sth->finish;
    10201027        if($count == 1) {
    10211028                # Only one version, so can do the non version delete
Note: See TracChangeset for help on using the changeset viewer.