diff options
Diffstat (limited to 'LedgerSMB/Form.pm')
-rwxr-xr-x | LedgerSMB/Form.pm | 14 |
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); } - $_; } |