From: ivan <ivan>
Date: Sun, 30 Jun 2002 07:17:48 +0000 (+0000)
Subject: oops, very bad
X-Git-Tag: freeside_1_4_0_beta1~39
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=a486765cc7b6e1cb110720ba199788cf0f7c1280;hp=33aa71dbc113342361b6872e9587945bbcfe88a3

oops, very bad
---

diff --git a/FS/FS/Record.pm b/FS/FS/Record.pm
index 3404a67fe..e6126a13b 100644
--- a/FS/FS/Record.pm
+++ b/FS/FS/Record.pm
@@ -132,7 +132,7 @@ sub new {
 
   my $hashref = $self->{'Hash'} = shift;
 
-  foreach my $field ( grep defined($hashref->{$_}), $self->fields ) { 
+  foreach my $field ( grep !defined($hashref->{$_}), $self->fields ) { 
     $hashref->{$field}='';
   }