freeside/FS/FS part_pkg.pm,1.38,1.39

[ivan]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory pouncequick:/tmp/cvs-serv8843

Modified Files:
	part_pkg.pm 
Log Message:
use new pkg_svc.pkgsvcnum primary key when modifying pkg_svc records, closes: Bug#1221

Index: part_pkg.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_pkg.pm,v
retrieving revision 1.38
retrieving revision 1.39
diff -u -d -r1.38 -r1.39
--- part_pkg.pm	19 Apr 2005 09:48:38 -0000	1.38
+++ part_pkg.pm	4 May 2005 09:33:09 -0000	1.39
@@ -375,6 +375,7 @@
     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,