diff options
| -rw-r--r-- | httemplate/edit/svc_broadband.cgi | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/httemplate/edit/svc_broadband.cgi b/httemplate/edit/svc_broadband.cgi index b9e2fd2d9..074af3db6 100644 --- a/httemplate/edit/svc_broadband.cgi +++ b/httemplate/edit/svc_broadband.cgi @@ -167,6 +167,13 @@ my $svc_edit_callback = sub { my $field_callback = sub { my ($cgi, $object, $fieldref) = @_; + unless ( $part_svc ) { + my $svcpart = $object->svcnum ? $object->cust_svc->svcpart; + : $cgi->param('svcpart'); + $part_svc = qsearchs( 'part_svc', { svcpart => $svcpart } ); + die "No part_svc entry for svcpart $svcpart!" unless $part_svc; + } + my $columndef = $part_svc->part_svc_column($fieldref->{'field'}); if ($columndef->columnflag eq 'F') { $fieldref->{'type'} = length($columndef->columnvalue) |