Select Code to Download

  sub quote_number {
    my($dbh, $value) = @_;
...
      return $dbh->quote($value);
    }
  }

  sub quote_integer {
    my($dbh, $value) = @_;
...
      return $dbh->quote($value);
    }
  }