diff options
author | Ivan Kohler <ivan@freeside.biz> | 2017-11-01 17:30:42 -0700 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2017-11-01 17:30:42 -0700 |
commit | 3e691871dc24b785968e5a3b5c4d12463e154efc (patch) | |
tree | f867a4e4b3d582b77d38eb1dc84b1f0e99c687e8 /FS/FS/API.pm | |
parent | 07f9cdaeaf10e0143897794218ba369991afeb42 (diff) |
fix custom pricing vs. services issue in API order_package call too, RT#77484
Diffstat (limited to 'FS/FS/API.pm')
-rw-r--r-- | FS/FS/API.pm | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/FS/FS/API.pm b/FS/FS/API.pm index 047bb4e..1758744 100644 --- a/FS/FS/API.pm +++ b/FS/FS/API.pm @@ -731,6 +731,9 @@ sub order_package { or ( length($r) && $r != $part_pkg->option('recur_fee') ) ) { + + local($FS::part_pkg::skip_pkg_svc_hack) = 1; + my $custom_part_pkg = $part_pkg->clone; $custom_part_pkg->disabled('Y'); my %options = $part_pkg->options; @@ -738,7 +741,18 @@ sub order_package { $options{'recur_fee'} = $r if length($r); my $error = $custom_part_pkg->insert( options=>\%options ); return ( 'error' => "error customizing package: $error" ) if $error; + + #not ->pkg_svc, we want to ignore links and clone the actual package def + foreach my $pkg_svc ( $part_pkg->_pkg_svc ) { + my $c_pkg_svc = new FS::pkg_svc { $pkg_svc->hash }; + $c_pkg_svc->pkgsvcnum(''); + $c_pkg_svc->pkgpart( $custom_part_pkg->pkgpart ); + my $error = $c_pkg_svc->insert; + return "error customizing package: $error" if $error; + } + $cust_pkg->pkgpart( $custom_part_pkg->pkgpart ); + } my %order_pkg = ( 'cust_pkg' => $cust_pkg ); |