X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2FRecord.pm;h=f2d18d9ff75afb8b11bf686ab36de28eef6e890c;hb=9763666a4eee2120c46b1decb8584b2c0d27ed12;hp=3b1967e429adf8e7562e4e3ebb1adf6b0512bac3;hpb=7c4c6e090b363b84c2b01e7c7d49c6823d5d376f;p=freeside.git

diff --git a/FS/FS/Record.pm b/FS/FS/Record.pm
index 3b1967e42..f2d18d9ff 100644
--- a/FS/FS/Record.pm
+++ b/FS/FS/Record.pm
@@ -795,6 +795,17 @@ sub setfield {
   $self->set(@_);
 }
 
+=item exists COLUMN
+
+Returns true if the column/field/key COLUMN exists.
+
+=cut
+
+sub exists {
+  my($self,$field) = @_;
+  exists($self->{Hash}->{$field});
+}
+
 =item AUTLOADED METHODS
 
 $record->column is a synonym for $record->get('column');
@@ -2796,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