From: jeff <jeff>
Date: Tue, 16 Dec 2008 00:08:56 +0000 (+0000)
Subject: proper dates on expire and suspend reasons
X-Git-Tag: freeside_1_7_4rc1~135
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=754f0cc394f5d4e576a9f8d308ceab2ba1bf26da;p=freeside.git

proper dates on expire and suspend reasons
---

diff --git a/FS/FS/cust_pkg.pm b/FS/FS/cust_pkg.pm
index 184826452..1bce7d0df 100644
--- a/FS/FS/cust_pkg.pm
+++ b/FS/FS/cust_pkg.pm
@@ -486,6 +486,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 ) {
@@ -663,6 +664,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 ) {