From: ivan <ivan>
Date: Fri, 3 Mar 2000 18:21:38 +0000 (+0000)
Subject: changes backported from 1.2.3 release, bugfix from web demo
X-Git-Tag: freeside_1_3_0~162
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=12debb17cbd12e68261dc7f98e39bfbc3915e6f6

changes backported from 1.2.3 release, bugfix from web demo
---

diff --git a/FS/FS/Record.pm b/FS/FS/Record.pm
index e486e1ce7..dae9f3707 100644
--- a/FS/FS/Record.pm
+++ b/FS/FS/Record.pm
@@ -204,7 +204,7 @@ sub qsearchs { # $result_record = &FS::Record:qsearchs('table',\%hash);
   my(@result) = qsearch(@_);
   carp "warning: Multiple records in scalar search!" if scalar(@result) > 1;
     #should warn more vehemently if the search was on a primary key?
-  $result[0];
+  scalar(@result) ? ($result[0]) : ();
 }
 
 =back
@@ -825,7 +825,7 @@ sub hfields {
 
 =head1 VERSION
 
-$Id: Record.pm,v 1.2 1999-08-04 10:41:22 ivan Exp $
+$Id: Record.pm,v 1.3 2000-03-03 18:21:38 ivan Exp $
 
 =head1 BUGS