{ 'srcsvc' => $p->{'svcnum'} },
'svc_forward',
);
+ warn $old;
if ( $p->{'dst'} eq '' ) {
if ( $old ) {
'dst' => $p->{'dst'},
};
+ warn $new;
+
my $error;
if ( $old ) {
+ warn "old: $old\n";
$new->svcnum($old->svcnum);
my $cust_svc = $old->cust_svc;
$new->svcpart($old->svcpart);