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

[freeside.git] / FS / FS / ClientAPI / MyAccount.pm

diff --git a/FS/FS/ClientAPI/MyAccount.pm b/FS/FS/ClientAPI/MyAccount.pm
index 4021397..97e4e22 100644 (file)
--- a/FS/FS/ClientAPI/MyAccount.pm
+++ b/FS/FS/ClientAPI/MyAccount.pm
@@ -1560,6 +1560,7 @@ sub acct_forward_info {
 
 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';
@@ -1568,6 +1569,7 @@ sub process_acct_forward {
                              { 'srcsvc' => $p->{'svcnum'} },
                              'svc_forward',
                            );
+  warn $old;
 
   if ( $p->{'dst'} eq '' ) {
     if ( $old ) {
@@ -1581,8 +1583,11 @@ sub process_acct_forward {
                                   'dst'    => $p->{'dst'},
                                 };
 
+  warn $new;
+
   my $error;
   if ( $old ) {
+    warn "old: $old\n";
     $new->svcnum($old->svcnum);
     my $cust_svc = $old->cust_svc;
     $new->svcpart($old->svcpart);
@@ -1592,7 +1597,9 @@ sub process_acct_forward {
     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 };