Revides the dbquote to use DBI::quote.

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@145 4979c152-3d1c-0410-bac9-87ea11338e46

1 files changed, 5 insertions, 9 deletions

diff --git a/LedgerSMB/Form.pm b/LedgerSMB/Form.pm
index 9e2eeb3a..4813411a 100755
--- a/LedgerSMB/Form.pm
+++ b/LedgerSMB/Form.pm
@@ -1381,17 +1381,13 @@ sub dbconnect_noauto {
 
 sub dbquote {
 
-	my ($self, $var, $type) = @_;
+	my ($self, $var) = @_;
 
-	# DBI does not return NULL for SQL_DATE if the date is empty
-	if ($type eq 'SQL_DATE') {
-		$_ = ($var) ? "'$var'" : "NULL";
-	}
-
-	if ($type eq 'SQL_INT') {
-		$_ = $var * 1;
+	if ($var eq ''){
+		$_ = "NULL";
+	} else {
+		$_ = $self->{dbh}->quote($var);
 	}
-
 	$_;
 }