projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
add forward and spam setting to inter.net portal, RT#13656
[freeside.git]
/
FS
/
FS
/
ClientAPI
/
MyAccount.pm
diff --git
a/FS/FS/ClientAPI/MyAccount.pm
b/FS/FS/ClientAPI/MyAccount.pm
index
6e56d78
..
ac3ebdf
100644
(file)
--- a/
FS/FS/ClientAPI/MyAccount.pm
+++ b/
FS/FS/ClientAPI/MyAccount.pm
@@
-1560,6
+1560,7
@@
sub acct_forward_info {
sub process_acct_forward {
my $p = shift;
sub process_acct_forward {
my $p = shift;
+ warn Dumper($p);
my($context, $session, $custnum) = _custoragent_session_custnum($p);
return { 'error' => $session } if $context eq 'error';
my($context, $session, $custnum) = _custoragent_session_custnum($p);
return { 'error' => $session } if $context eq 'error';
@@
-1584,9
+1585,17
@@
sub process_acct_forward {
my $error;
if ( $old ) {
$new->svcnum($old->svcnum);
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 {
$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;
$error = $new->insert;
+ warn $error;
}
return { 'error' => $error };
}
return { 'error' => $error };