From a98ce69c291c99710fc77a1b06286f44584e1f99 Mon Sep 17 00:00:00 2001
From: Jonathan Prykop <jonathan@freeside.biz>
Date: Wed, 11 Feb 2015 22:07:12 -0600
Subject: [PATCH] RT#14671: Usage for current day when billing outstanding
 usage (for cancelling customers) [added part_pkg_link check]

---
 FS/FS/part_pkg_link.pm | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/FS/FS/part_pkg_link.pm b/FS/FS/part_pkg_link.pm
index aee0131d2..2460e995d 100644
--- a/FS/FS/part_pkg_link.pm
+++ b/FS/FS/part_pkg_link.pm
@@ -260,6 +260,11 @@ sub check {
                ") must be an integer multiple of main package period.";
       }
     }
+    if (( $src_pkg->option('delay_cancel',1) && !$dst_pkg->option('delay_cancel',1) ) ||
+        ( $dst_pkg->option('delay_cancel',1) && !$src_pkg->option('delay_cancel',1) )
+    ) {
+      return "Supplemental package must have same value as main package for automatic suspension on cancel.";
+    }
   }
 
   $self->SUPER::check;
-- 
2.11.0