diff options
| author | ivan <ivan> | 2006-09-15 05:10:36 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2006-09-15 05:10:36 +0000 |
| commit | 685ebecc66bd944f82f997b990fe4a668360d8ed (patch) | |
| tree | 5697ad26ad4207e9f8c5b2491491f4271b5cb7a4 /FS | |
| parent | 35154452fe5ad96338e79f984236d265e1cbbbdf (diff) | |
add sdate and edate to cust_bill_pay_pkg and cust_credit_bill_pkg tables
Diffstat (limited to 'FS')
| -rw-r--r-- | FS/FS/Schema.pm | 4 | ||||
| -rw-r--r-- | FS/FS/cust_bill_ApplicationCommon.pm | 2 | ||||
| -rw-r--r-- | FS/FS/cust_bill_pay_pkg.pm | 9 | ||||
| -rw-r--r-- | FS/FS/cust_credit_bill_pkg.pm | 9 |
4 files changed, 24 insertions, 0 deletions
diff --git a/FS/FS/Schema.pm b/FS/FS/Schema.pm index 9f9770c..ef697b9 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 fa5f53b..a214ebe 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 af331cd..cdbace9 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 98521d6..7252be5 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; |