From: ivan <ivan>
Date: Mon, 24 Jan 2011 00:22:51 +0000 (+0000)
Subject: scalar_sql return an empty string on no row as documented
X-Git-Tag: freeside_2_3_0~707
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=a32c9f2fff7814979894fa1fca729b7dd70f6af7;hp=08180f31475affb0047af48ef7fd182a55c06d57

scalar_sql return an empty string on no row as documented
---

diff --git a/FS/FS/Record.pm b/FS/FS/Record.pm
index 2e2612e35..29e5322ef 100644
--- a/FS/FS/Record.pm
+++ b/FS/FS/Record.pm
@@ -2909,7 +2909,8 @@ sub scalar_sql {
   my $sth = dbh->prepare($sql) or die dbh->errstr;
   $sth->execute(@_)
     or die "Unexpected error executing statement $sql: ". $sth->errstr;
-  my $scalar = $sth->fetchrow_arrayref->[0];
+  my $row = $sth->fetchrow_arrayref or return '';
+  my $scalar = $row->[0];
   defined($scalar) ? $scalar : '';
 }