diff options
| -rw-r--r-- | FS/FS/ClientAPI/MyAccount.pm | 6 | ||||
| -rw-r--r-- | FS/FS/Conf.pm | 7 |
2 files changed, 13 insertions, 0 deletions
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.', |