From: ivan <ivan>
Date: Tue, 11 Mar 2003 10:41:50 +0000 (+0000)
Subject: another pg7.3 fix
X-Git-Tag: freeside_1_4_1beta7~2
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=b60dae0e1044ab0bb1501d368332c22ba2a14ecc;hp=9393572515459abd1e357e2a8818d16834c23b82;p=freeside.git

another pg7.3 fix
---

diff --git a/httemplate/edit/part_pkg.cgi b/httemplate/edit/part_pkg.cgi
index f046e91ba..f5b33f255 100755
--- a/httemplate/edit/part_pkg.cgi
+++ b/httemplate/edit/part_pkg.cgi
@@ -131,11 +131,12 @@ my $columns = 3;
 my @part_svc = qsearch( 'part_svc', { 'disabled' => '' } );
 foreach my $part_svc ( @part_svc ) {
   my $svcpart = $part_svc->svcpart;
-  my $pkg_svc = qsearchs( 'pkg_svc', {
-    'pkgpart'  => $cgi->param('clone') || $part_pkg->pkgpart,
+  my $pkgpart = $cgi->param('clone') || $part_pkg->pkgpart;
+  my $pkg_svc = $pkgpart && qsearchs( 'pkg_svc', {
+    'pkgpart'  => $pkgpart,
     'svcpart'  => $svcpart,
   } ) || new FS::pkg_svc ( {
-    'pkgpart'  => $cgi->param('clone') || $part_pkg->pkgpart,
+    'pkgpart'  => $pkgpart,
     'svcpart'  => $svcpart,
     'quantity' => 0,
   });