X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fcust_pkg.pm;h=f54b42d7e8dcc3341597f3d3641ed20c8c5bc41b;hp=f45abc6f8ec4b857043b8738e0eb6bcfbfbc9379;hb=2134f9e82324c8920609aa0854abc84b9e5348ae;hpb=45d8ea4c5d8d66f2945c05a71f2e695c0bf00dac

diff --git a/FS/FS/cust_pkg.pm b/FS/FS/cust_pkg.pm
index f45abc6f8..f54b42d7e 100644
--- a/FS/FS/cust_pkg.pm
+++ b/FS/FS/cust_pkg.pm
@@ -4395,8 +4395,10 @@ sub transfer {
     $target{$pkg_svc->svcpart} = $pkg_svc->quantity * ( $dest->quantity || 1 );
   }
 
-  foreach my $cust_svc ($dest->cust_svc) {
-    $target{$cust_svc->svcpart}--;
+  unless ( $self->pkgnum == $dest->pkgnum ) {
+    foreach my $cust_svc ($dest->cust_svc) {
+      $target{$cust_svc->svcpart}--;
+    }
   }
 
   my %svcpart2svcparts = ();