diff options
| -rw-r--r-- | FS/FS/part_svc.pm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/FS/FS/part_svc.pm b/FS/FS/part_svc.pm index ca26074a3..518e847a2 100644 --- a/FS/FS/part_svc.pm +++ b/FS/FS/part_svc.pm @@ -145,9 +145,9 @@ sub insert { foreach my $field (fields($svcdb), @fields) { next if $field eq 'svcnum'; my $prefix = $svcdb.'__'; - if ( defined( $self->getfield($prefix.$_.'_flag')) - or defined($self->getfield($prefix.$_.'_required')) - or length($self->getfield($prefix.$_.'_label')) + if ( defined( $self->getfield($prefix.$field.'_flag')) + or defined($self->getfield($prefix.$field.'_required')) + or length($self->getfield($prefix.$field.'_label')) ) { my $part_svc_column = $self->part_svc_column($field); my $previous = qsearchs('part_svc_column', { @@ -284,9 +284,9 @@ sub replace { foreach my $field (fields($svcdb),@fields) { next if $field eq 'svcnum'; my $prefix = $svcdb.'__'; - if ( defined( $new->getfield($prefix.$_.'_flag')) - or defined($new->getfield($prefix.$_.'_required')) - or length($new->getfield($prefix.$_.'_label')) + if ( defined( $new->getfield($prefix.$field.'_flag')) + or defined($new->getfield($prefix.$field.'_required')) + or length($new->getfield($prefix.$field.'_label')) ) { my $part_svc_column = $new->part_svc_column($field); my $previous = qsearchs('part_svc_column', { |