From 80cba1ee545e6d8799530d9c64521e782b6e7c4f Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Tue, 29 Nov 2011 02:21:40 +0000
Subject: [PATCH 1/1] add forward and spam setting to inter.net portal,
 RT#13656

---
 FS/FS/ClientAPI/MyAccount.pm | 6 ++++++
 FS/FS/Conf.pm                | 7 +++++++
 2 files changed, 13 insertions(+)

diff --git a/FS/FS/ClientAPI/MyAccount.pm b/FS/FS/ClientAPI/MyAccount.pm
index 6e56d782d..402139732 100644
--- a/FS/FS/ClientAPI/MyAccount.pm
+++ b/FS/FS/ClientAPI/MyAccount.pm
@@ -1584,8 +1584,14 @@ 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);
     $error = $new->insert;
   }
 
diff --git a/FS/FS/Conf.pm b/FS/FS/Conf.pm
index a3fabc7d4..acaac7516 100644
--- a/FS/FS/Conf.pm
+++ b/FS/FS/Conf.pm
@@ -2475,6 +2475,13 @@ and customer address. Include units.',
   },
 
   {
+    'key'         => 'selfservice-svc_forward_svcpart',
+    'section'     => 'self-service',
+    'description' => 'Service for self-service forward editing.',
+    'type'        => 'select-part_svc',
+  },
+
+  {
     'key'         => 'selfservice-password_reset_verification',
     'section'     => 'self-service',
     'description' => 'If enabled, specifies the type of verification required for self-service password resets.',
-- 
2.11.0