From d50f5d9f6105536e1c65eea5c0129494bed4f154 Mon Sep 17 00:00:00 2001
From: jeff <jeff>
Date: Tue, 16 Dec 2008 00:08:23 +0000
Subject: [PATCH] proper dates on expire and suspend reasons

---
 FS/FS/cust_pkg.pm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/FS/FS/cust_pkg.pm b/FS/FS/cust_pkg.pm
index e359fc9fc..6807383d9 100644
--- a/FS/FS/cust_pkg.pm
+++ b/FS/FS/cust_pkg.pm
@@ -551,6 +551,7 @@ sub cancel {
   if ( $options{'reason'} ) {
     $error = $self->insert_reason( 'reason' => $options{'reason'},
                                    'action' => $date ? 'expire' : 'cancel',
+                                   'date'   => $date,
                                    'reason_otaker' => $options{'reason_otaker'},
                                  );
     if ( $error ) {
@@ -751,6 +752,7 @@ sub suspend {
   if ( $options{'reason'} ) {
     $error = $self->insert_reason( 'reason' => $options{'reason'},
                                    'action' => $date ? 'adjourn' : 'suspend',
+                                   'date'   => $date,
                                    'reason_otaker' => $options{'reason_otaker'},
                                  );
     if ( $error ) {
-- 
2.11.0