From: ivan <ivan>
Date: Wed, 4 May 2005 09:33:09 +0000 (+0000)
Subject: use new pkg_svc.pkgsvcnum primary key when modifying pkg_svc records, closes: Bug... 
X-Git-Tag: SQL_LEDGER_2_4_4~1^2~316
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=699f1de4842d7939d13ddd37b6b2756b36665189;p=freeside.git

use new pkg_svc.pkgsvcnum primary key when modifying pkg_svc records, closes: Bug#1221
---

diff --git a/FS/FS/part_pkg.pm b/FS/FS/part_pkg.pm
index 182be87ea..bf040c8e5 100644
--- a/FS/FS/part_pkg.pm
+++ b/FS/FS/part_pkg.pm
@@ -375,6 +375,7 @@ sub replace {
     next unless $old_quantity != $quantity || $old_primary_svc ne $primary_svc;
   
     my $new_pkg_svc = new FS::pkg_svc( {
+      'pkgsvcnum'   => ( $old_pkg_svc ? $old_pkg_svc->pkgsvcnum : '' ),
       'pkgpart'     => $new->pkgpart,
       'svcpart'     => $part_svc->svcpart,
       'quantity'    => $quantity,