diff options
author | ivan <ivan> | 2012-01-19 01:20:34 +0000 |
---|---|---|
committer | ivan <ivan> | 2012-01-19 01:20:34 +0000 |
commit | ebdbf6c90faba1234940028e024b41628055485c (patch) | |
tree | 19b005c5643c1974624ae2b6960ae0e208b102a7 | |
parent | 697df286084b490b9371471ae736337776c248e4 (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) |