sub DESTROY {
    my $self = shift;
    if ( $self->{ _error } ) {
        cluck "There was a problem with the transaction: $self->{ _err_str }";
        $self->{ _dbh }->rollback;
    } else {
        $self->{ _dbh }->commit;
    }
    $self->{ _dbh }->disconnect;
}

##</code><code>##

sub update_admin_message {
    my ( $self, $data_hash ) = @_;
    my ( $fields, $values ) = $self->_format_update_data( $data_hash );
    my $sql = "UPDATE adminMessage SET $fields";
    my $data = $self->_update_database( $sql, $values );
    $self->{ _dbh }->commit if ! $self->{ _error };
}