sub process_acct_forward {
my $p = shift;
+ warn Dumper($p);
my($context, $session, $custnum) = _custoragent_session_custnum($p);
return { 'error' => $session } if $context eq 'error';
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 };