X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2FClientAPI%2FMyAccount.pm;h=6a21da8b36f78b7802523b183d33181a961c7820;hb=648c3048ddb4114ad3adf5495d716e02c2ea8ee4;hp=abb93e8ecffab4ff0640a5157079760ac7edfcc6;hpb=4c29dbc650a92a3fa95fe74a86ed59530eda26dc;p=freeside.git

diff --git a/FS/FS/ClientAPI/MyAccount.pm b/FS/FS/ClientAPI/MyAccount.pm
index abb93e8ec..6a21da8b3 100644
--- a/FS/FS/ClientAPI/MyAccount.pm
+++ b/FS/FS/ClientAPI/MyAccount.pm
@@ -1585,12 +1585,14 @@ sub process_acct_forward {
 
   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);