From 20c649e7838f9448e53e0ba1c8e49820f031fc3e Mon Sep 17 00:00:00 2001
From: Ivan Kohler <ivan@freeside.biz>
Date: Wed, 12 Jun 2013 02:55:14 -0700
Subject: export pkg_change hook, RT#22596

---
 FS/FS/cust_svc.pm | 11 +++++++++++
 1 file changed, 11 insertions(+)

(limited to 'FS/FS/cust_svc.pm')

diff --git a/FS/FS/cust_svc.pm b/FS/FS/cust_svc.pm
index 94f04e9..6aa254f 100644
--- a/FS/FS/cust_svc.pm
+++ b/FS/FS/cust_svc.pm
@@ -295,6 +295,17 @@ sub replace {
 #    }
 #  }
 
+  #trigger a pkg_change export on pkgnum changes
+  if ( $new->pkgnum != $old->pkgnum ) {
+    my $error = $new->svc_x->export('pkg_change', $new->cust_pkg,
+                                                  $old->cust_pkg,
+                                   );
+    if ( $error ) {
+      $dbh->rollback if $oldAutoCommit;
+      return $error if $error;
+    }
+  }
+
   #my $error = $new->SUPER::replace($old, @_);
   my $error = $new->SUPER::replace($old);
   if ( $error ) {
-- 
cgit v1.1