X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2FClientAPI%2FMyAccount.pm;h=97e4e22bf3ea65f92e8f854bb556947b84069476;hb=0d9c40c559dbead3fb742fe3b7d40df29f28b333;hp=ac3ebdfc596a765862940dea3c37d68198e14164;hpb=687d99781b3a8c555534e0a4f7fd826e59e4cf2f;p=freeside.git

diff --git a/FS/FS/ClientAPI/MyAccount.pm b/FS/FS/ClientAPI/MyAccount.pm
index ac3ebdfc5..97e4e22bf 100644
--- a/FS/FS/ClientAPI/MyAccount.pm
+++ b/FS/FS/ClientAPI/MyAccount.pm
@@ -1569,6 +1569,7 @@ sub process_acct_forward {
                              { 'srcsvc' => $p->{'svcnum'} },
                              'svc_forward',
                            );
+  warn $old;
 
   if ( $p->{'dst'} eq '' ) {
     if ( $old ) {
@@ -1582,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);