From: ivan <ivan>
Date: Wed, 4 Aug 2010 18:50:11 +0000 (+0000)
Subject: fix scalar_sql not to return empty string for zero
X-Git-Tag: freeside_1_9_5~84
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=cf0f715a49586ee141193605e6dbf5ae6685cd58

fix scalar_sql not to return empty string for zero
---

diff --git a/FS/FS/Record.pm b/FS/FS/Record.pm
index 94f69b126..f2d18d9ff 100644
--- a/FS/FS/Record.pm
+++ b/FS/FS/Record.pm
@@ -2807,7 +2807,8 @@ sub scalar_sql {
   my $sth = dbh->prepare($sql) or die dbh->errstr;
   $sth->execute
     or die "Unexpected error executing statement $sql: ". $sth->errstr;
-  $sth->fetchrow_arrayref->[0] || '';
+  my $scalar = $sth->fetchrow_arrayref->[0];
+  defined($scalar) ? $scalar : '';
 }
 
 =back