projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
3515445
)
add sdate and edate to cust_bill_pay_pkg and cust_credit_bill_pkg tables
author
ivan
<ivan>
Fri, 15 Sep 2006 05:10:36 +0000
(
05:10
+0000)
committer
ivan
<ivan>
Fri, 15 Sep 2006 05:10:36 +0000
(
05:10
+0000)
FS/FS/Schema.pm
patch
|
blob
|
history
FS/FS/cust_bill_ApplicationCommon.pm
patch
|
blob
|
history
FS/FS/cust_bill_pay_pkg.pm
patch
|
blob
|
history
FS/FS/cust_credit_bill_pkg.pm
patch
|
blob
|
history
diff --git
a/FS/FS/Schema.pm
b/FS/FS/Schema.pm
index
9f9770c
..
ef697b9
100644
(file)
--- 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, '', '',
'billpkgnum', 'int', '', '', '', '',
'amount', @money_type, '', '',
'setuprecur', 'varchar', '', $char_d, '', '',
+ 'sdate', @date_type, '', '',
+ 'edate', @date_type, '', '',
],
'primary_key' => 'creditbillpkgnum',
'unique' => [],
],
'primary_key' => 'creditbillpkgnum',
'unique' => [],
@@
-565,6
+567,8
@@
sub tables_hashref {
'billpkgnum', 'int', '', '', '', '',
'amount', @money_type, '', '',
'setuprecur', 'varchar', '', $char_d, '', '',
'billpkgnum', 'int', '', '', '', '',
'amount', @money_type, '', '',
'setuprecur', 'varchar', '', $char_d, '', '',
+ 'sdate', @date_type, '', '',
+ 'edate', @date_type, '', '',
],
'primary_key' => 'billpaypkgnum',
'unique' => [],
],
'primary_key' => 'billpaypkgnum',
'unique' => [],
diff --git
a/FS/FS/cust_bill_ApplicationCommon.pm
b/FS/FS/cust_bill_ApplicationCommon.pm
index
fa5f53b
..
a214ebe
100644
(file)
--- 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' ),
'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 ) {
});
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
(file)
--- 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 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
=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
=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_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;
;
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
(file)
--- 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 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
=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
=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_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;
;
return $error if $error;