'dst' => $p->{'dst'},
};
- warn $new;
-
my $error;
if ( $old ) {
warn "old: $old\n";
$new->pkgnuym($old->pkgnum);
$error = $new->replace($old);
} else {
+ warn "new: $new\n";
my $conf = new FS::Conf;
$new->svcpart($conf->config('selfservice-svc_forward_svcpart'));
$new->pkgnum($old->cust_svc->pkgnum);