);
if ( $p->{'dst'} eq '' ) {
+ warn Dumper($p);
if ( $old ) {
my $error = $old->delete;
return { 'error' => $error };
my $error;
if ( $old ) {
$new->svcnum($old->svcnum);
+ my $cust_svc = $old->cust_svc;
+ $new->svcpart($old->svcpart);
+ $new->pkgnuym($old->pkgnum);
$error = $new->replace($old);
} else {
+ my $conf = new FS::Conf;
+ $new->svcpart($conf->config('selfservice-svc_forward_svcpart'));
+ $new->pkgnum($old->cust_svc->pkgnum);
+ warn Dumper($new);
$error = $new->insert;
+ warn $error;
}
return { 'error' => $error };