From 685ebecc66bd944f82f997b990fe4a668360d8ed Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Fri, 15 Sep 2006 05:10:36 +0000
Subject: [PATCH] add sdate and edate to cust_bill_pay_pkg and
 cust_credit_bill_pkg tables

---
 FS/FS/Schema.pm                      | 4 ++++
 FS/FS/cust_bill_ApplicationCommon.pm | 2 ++
 FS/FS/cust_bill_pay_pkg.pm           | 9 +++++++++
 FS/FS/cust_credit_bill_pkg.pm        | 9 +++++++++
 4 files changed, 24 insertions(+)

diff --git a/FS/FS/Schema.pm b/FS/FS/Schema.pm
index 9f9770c31..ef697b98c 100644
--- a/FS/FS/Schema.pm
+++ b/FS/FS/Schema.pm
@@ -389,6 +389,8 @@ sub tables_hashref {
         'billpkgnum',          'int', '',      '', '', '',
         'amount',            @money_type,          '', '',
         'setuprecur',      'varchar', '', $char_d, '', '',
+        'sdate',   @date_type, '', '', 
+        'edate',   @date_type, '', '', 
       ],
       'primary_key' => 'creditbillpkgnum',
       'unique'      => [],
@@ -565,6 +567,8 @@ sub tables_hashref {
         'billpkgnum',       'int', '', '', '', '',
         'amount',         @money_type,     '', '',
         'setuprecur',      'varchar', '', $char_d, '', '',
+	'sdate',   @date_type, '', '', 
+        'edate',   @date_type, '', '', 
       ],
       'primary_key' => 'billpaypkgnum',
       'unique'      => [],
diff --git a/FS/FS/cust_bill_ApplicationCommon.pm b/FS/FS/cust_bill_ApplicationCommon.pm
index fa5f53b87..a214ebeb6 100644
--- a/FS/FS/cust_bill_ApplicationCommon.pm
+++ b/FS/FS/cust_bill_ApplicationCommon.pm
@@ -173,6 +173,8 @@ sub apply_to_lineitems {
       'billpkgnum' => $cust_bill_pkg->billpkgnum,
       'amount'     => $amount,
       'setuprecur' => ( $cust_bill_pkg->setup > 0 ? 'setup' : 'recur' ),
+      'sdate'      => $cust_bill_pkg->sdate,
+      'edate'      => $cust_bill_pkg->edate,
     });
     my $error = $application->insert;
     if ( $error ) {
diff --git a/FS/FS/cust_bill_pay_pkg.pm b/FS/FS/cust_bill_pay_pkg.pm
index af331cd6f..cdbace960 100644
--- a/FS/FS/cust_bill_pay_pkg.pm
+++ b/FS/FS/cust_bill_pay_pkg.pm
@@ -44,8 +44,15 @@ following fields are currently supported:
 
 =item setuprecur - 'setup' or 'recur', designates whether the payment was applied to the setup or recurring portion of the line item.
 
+=item sdate - starting date of recurring fee
+
+=item edate - ending date of recurring fee
+
 =back
 
+sdate and edate are specified as UNIX timestamps; see L<perlfunc/"time">.  Also
+see L<Time::Local> and L<Date::Parse> for conversion functions.
+
 =head1 METHODS
 
 =over 4
@@ -109,6 +116,8 @@ sub check {
     || $self->ut_foreign_key('billpkgnum', 'cust_bill_pkg', 'billpkgnum' )
     || $self->ut_money('amount')
     || $self->ut_enum('setuprecur', [ 'setup', 'recur' ] )
+    || $self->ut_numbern('sdate')
+    || $self->ut_numbern('edate')
   ;
   return $error if $error;
 
diff --git a/FS/FS/cust_credit_bill_pkg.pm b/FS/FS/cust_credit_bill_pkg.pm
index 98521d611..7252be537 100644
--- a/FS/FS/cust_credit_bill_pkg.pm
+++ b/FS/FS/cust_credit_bill_pkg.pm
@@ -44,8 +44,15 @@ The following fields are currently supported:
 
 =item setuprecur - 'setup' or 'recur', designates whether the payment was applied to the setup or recurring portion of the line item.
 
+=item sdate - starting date of recurring fee
+
+=item edate - ending date of recurring fee
+
 =back
 
+sdate and edate are specified as UNIX timestamps; see L<perlfunc/"time">.  Also
+see L<Time::Local> and L<Date::Parse> for conversion functions.
+
 =head1 METHODS
 
 =over 4
@@ -109,6 +116,8 @@ sub check {
     || $self->ut_foreign_key('billpkgnum', 'cust_bill_pkg', 'billpkgnum' )
     || $self->ut_money('amount')
     || $self->ut_enum('setuprecur', [ 'setup', 'recur' ] )
+    || $self->ut_numbern('sdate')
+    || $self->ut_numbern('edate')
   ;
   return $error if $error;
 
-- 
2.11.0