diff options
author | ivan <ivan> | 2005-11-28 16:59:55 +0000 |
---|---|---|
committer | ivan <ivan> | 2005-11-28 16:59:55 +0000 |
commit | 7e849b9ceaccba63eaeab7e724e531b7a26ff8f6 (patch) | |
tree | fbf3aedbfbd9c898c0096ed3a15c4fb9c4783e25 /FS | |
parent | 6e261010ac03cc635036da835b3cfd6f45071dca (diff) |
allow defaults to override empty values for new objects
Diffstat (limited to 'FS')
-rw-r--r-- | FS/FS/svc_Common.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/FS/FS/svc_Common.pm b/FS/FS/svc_Common.pm index b58b11cfa..d5083fd79 100644 --- a/FS/FS/svc_Common.pm +++ b/FS/FS/svc_Common.pm @@ -51,7 +51,7 @@ sub new { $self->{'Hash'} = { map { $_ => $newhash->{$_} } qw(svcnum svcpart) }; $self->setdefault; $self->{'Hash'}{$_} = $newhash->{$_} - foreach #grep length($newhash->{$_}), + foreach grep length($newhash->{$_}), keys %$newhash; foreach my $field ( grep !defined($self->{'Hash'}{$_}), $self->fields ) { |