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';
{ 'srcsvc' => $p->{'svcnum'} },
'svc_forward',
);
+ warn $old;
if ( $p->{'dst'} eq '' ) {
- warn Dumper($p);
if ( $old ) {
my $error = $old->delete;
return { 'error' => $error };
my $error;
if ( $old ) {
+ warn "old: $old\n";
$new->svcnum($old->svcnum);
my $cust_svc = $old->cust_svc;
$new->svcpart($old->svcpart);
$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);