diff options
author | ivan <ivan> | 2012-01-19 01:20:30 +0000 |
---|---|---|
committer | ivan <ivan> | 2012-01-19 01:20:30 +0000 |
commit | a1d44174ae0b33e000bd341d859198c74f2c02c4 (patch) | |
tree | adcb4a3e87d8f5741598d79df6c9954aee30d077 | |
parent | 5cdba011616de4afd742655a4a0250a26d5d049d (diff) |
fix error in svc_broadband, RT#16137
-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) |