sub quote_number {
    my($dbh, $value) = @_;
    if (defined $value) {
      # force to number
      return $value + 0;
    } else {
      return $dbh->quote($value);
    }
  }