diff options
| -rw-r--r-- | FS/FS/Record.pm | 11 |
1 files changed, 2 insertions, 9 deletions
diff --git a/FS/FS/Record.pm b/FS/FS/Record.pm index 5fa0a466a..3404a67fe 100644 --- a/FS/FS/Record.pm +++ b/FS/FS/Record.pm @@ -132,15 +132,8 @@ sub new { my $hashref = $self->{'Hash'} = shift; - foreach my $field ( $self->fields ) { - $hashref->{$field}='' unless defined $hashref->{$field}; - #trim the '$' and ',' from money fields for Pg (belong HERE?) - #(what about Pg i18n?) - if ( driver_name =~ /^Pg$/i - && $self->dbdef_table->column($field)->type eq 'money' ) { - ${$hashref}{$field} =~ s/^\$//; - ${$hashref}{$field} =~ s/\,//; - } + foreach my $field ( grep defined($hashref->{$_}), $self->fields ) { + $hashref->{$field}=''; } $self->_cache($hashref, shift) if $self->can('_cache') && @_; |