diff options
| author | ivan <ivan> | 2008-07-07 21:38:49 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2008-07-07 21:38:49 +0000 |
| commit | 104972679d3122d6fcba9e137cb951d161d08a2e (patch) | |
| tree | de4e83d95335343d00e55daff9af5df0bb93baa4 /FS | |
| parent | 816c0391a63ae673d03baa3ee39dc22289c28d7f (diff) | |
SQL_FLOAT is probably unnecessary and causes probelms on old (v1.x?) DBD::Pg
Diffstat (limited to 'FS')
| -rw-r--r-- | FS/FS/Record.pm | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/FS/FS/Record.pm b/FS/FS/Record.pm index 730d81afe..c2b128463 100644 --- a/FS/FS/Record.pm +++ b/FS/FS/Record.pm @@ -308,12 +308,14 @@ sub qsearch { my $TYPE = SQL_VARCHAR; if ( $type =~ /(int|(big)?serial)/i && $value =~ /^\d+(\.\d+)?$/ ) { $TYPE = SQL_INTEGER; - } elsif ( ( $type =~ /(numeric)/i && $value =~ /^[+-]?\d+(\.\d+)?$/) - || ( $type =~ /(real|float4)/i - && $value =~ /[-+]?\d*\.?\d+([eE][-+]?\d+)?/ - ) - ) { - $TYPE = SQL_FLOAT; + + #DBD::Pg 1.49: Cannot bind ... unknown sql_type 6 + #} elsif ( ( $type =~ /(numeric)/i && $value =~ /^[+-]?\d+(\.\d+)?$/) + # || ( $type =~ /(real|float4)/i + # && $value =~ /[-+]?\d*\.?\d+([eE][-+]?\d+)?/ + # ) + # ) { + # $TYPE = SQL_FLOAT; } if ( $DEBUG > 2 ) { |