use strict;
use vars qw( @ISA $noexport_hack $DEBUG );
+use Carp;
use FS::Record qw( qsearch qsearchs fields dbh );
use FS::cust_main_Mixin;
use FS::cust_svc;
$self->{'Hash'} = { map { $_ => $newhash->{$_} } qw(svcnum svcpart) };
$self->setdefault;
$self->{'Hash'}{$_} = $newhash->{$_}
- foreach #grep length($newhash->{$_}),
- keys %$newhash;
+ foreach grep { defined($newhash->{$_}) && length($newhash->{$_}) }
+ keys %$newhash;
foreach my $field ( grep !defined($self->{'Hash'}{$_}), $self->fields ) {
$self->{'Hash'}{$field}='';