From: ivan <ivan>
Date: Fri, 25 Jun 2004 08:44:54 +0000 (+0000)
Subject: move up next bill date on unsuspend
X-Git-Tag: BEFORE_FINAL_MASONIZE~1016
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=ebccee59f6339778da851c5c13e7238e457f3e62

move up next bill date on unsuspend
---

diff --git a/FS/FS/cust_pkg.pm b/FS/FS/cust_pkg.pm
index db0f7d423..fb41dfcf8 100644
--- a/FS/FS/cust_pkg.pm
+++ b/FS/FS/cust_pkg.pm
@@ -452,7 +452,10 @@ sub unsuspend {
 
   unless ( ! $self->getfield('susp') ) {
     my %hash = $self->hash;
+    my $inactive = time - $hash{'susp'};
     $hash{'susp'} = '';
+    $hash{'bill'} = ( $hash{'bill'} || $hash{'setup'} ) + $inactive
+      if $inactive > 0 && ( $hash{'bill'} || $hash{'setup'} );
     my $new = new FS::cust_pkg ( \%hash );
     $error = $new->replace($self);
     if ( $error ) {