add forward and spam setting to inter.net portal, RT#13656

diff --git a/FS/FS/ClientAPI/MyAccount.pm b/FS/FS/ClientAPI/MyAccount.pm
index 97e4e22..6a21da8 100644 (file)
--- a/FS/FS/ClientAPI/MyAccount.pm
+++ b/FS/FS/ClientAPI/MyAccount.pm
@@ -1583,8 +1583,6 @@ sub process_acct_forward {
                                   'dst'    => $p->{'dst'},
                                 };
 
                                   'dst'    => $p->{'dst'},
                                 };
 

-  warn $new;
-

   my $error;
   if ( $old ) {
     warn "old: $old\n";
   my $error;
   if ( $old ) {
     warn "old: $old\n";


@@ -1594,6 +1592,7 @@ sub process_acct_forward {
     $new->pkgnuym($old->pkgnum);
     $error = $new->replace($old);
   } else {
     $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);
     my $conf = new FS::Conf;
     $new->svcpart($conf->config('selfservice-svc_forward_svcpart'));
     $new->pkgnum($old->cust_svc->pkgnum);