sub quotestr {
    my( $dbh, $str ) = @_;
    $str = ''
        if  ! defined $str;
    return $dbh->quote( $str );
}