X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2FClientAPI%2FMyAccount.pm;h=1b32ce31e429030cd336448ecb589dc8a9d3b617;hb=ed809baa3218f6189f8029ac1e4c4e4f9372110c;hp=6e56d782d937de891bf6555420e7c4fa99c03fd0;hpb=671e8ac887748f07e97e6367b30a16d0247f1790;p=freeside.git

diff --git a/FS/FS/ClientAPI/MyAccount.pm b/FS/FS/ClientAPI/MyAccount.pm
index 6e56d782d..1b32ce31e 100644
--- a/FS/FS/ClientAPI/MyAccount.pm
+++ b/FS/FS/ClientAPI/MyAccount.pm
@@ -1570,6 +1570,7 @@ sub process_acct_forward {
                            );
 
   if ( $p->{'dst'} eq '' ) {
+    warn Dumper($p);
     if ( $old ) {
       my $error = $old->delete;
       return { 'error' => $error };
@@ -1584,9 +1585,17 @@ sub process_acct_forward {
   my $error;
   if ( $old ) {
     $new->svcnum($old->svcnum);
+    my $cust_svc = $old->cust_svc;
+    $new->svcpart($old->svcpart);
+    $new->pkgnuym($old->pkgnum);
     $error = $new->replace($old);
   } else {
+    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 };