[freeside-commits] freeside/FS/FS Schema.pm, 1.28,
1.29 cust_credit_bill_pkg.pm, 1.1, 1.2 cust_bill_pay_pkg.pm,
1.1, 1.2 cust_bill_ApplicationCommon.pm, 1.2, 1.3
Ivan,,,
ivan at wavetail.420.am
Thu Sep 14 22:10:38 PDT 2006
Update of /home/cvs/cvsroot/freeside/FS/FS
In directory wavetail:/tmp/cvs-serv30232
Modified Files:
Schema.pm cust_credit_bill_pkg.pm cust_bill_pay_pkg.pm
cust_bill_ApplicationCommon.pm
Log Message:
add sdate and edate to cust_bill_pay_pkg and cust_credit_bill_pkg tables
Index: Schema.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/Schema.pm,v
retrieving revision 1.28
retrieving revision 1.29
diff -u -d -r1.28 -r1.29
--- Schema.pm 26 Aug 2006 23:15:11 -0000 1.28
+++ Schema.pm 15 Sep 2006 05:10:36 -0000 1.29
@@ -389,6 +389,8 @@
'billpkgnum', 'int', '', '', '', '',
'amount', @money_type, '', '',
'setuprecur', 'varchar', '', $char_d, '', '',
+ 'sdate', @date_type, '', '',
+ 'edate', @date_type, '', '',
],
'primary_key' => 'creditbillpkgnum',
'unique' => [],
@@ -565,6 +567,8 @@
'billpkgnum', 'int', '', '', '', '',
'amount', @money_type, '', '',
'setuprecur', 'varchar', '', $char_d, '', '',
+ 'sdate', @date_type, '', '',
+ 'edate', @date_type, '', '',
],
'primary_key' => 'billpaypkgnum',
'unique' => [],
Index: cust_bill_pay_pkg.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cust_bill_pay_pkg.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- cust_bill_pay_pkg.pm 21 Aug 2006 23:01:43 -0000 1.1
+++ cust_bill_pay_pkg.pm 15 Sep 2006 05:10:36 -0000 1.2
@@ -44,8 +44,15 @@
=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 @@
|| $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;
Index: cust_bill_ApplicationCommon.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cust_bill_ApplicationCommon.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- cust_bill_ApplicationCommon.pm 13 Sep 2006 14:57:06 -0000 1.2
+++ cust_bill_ApplicationCommon.pm 15 Sep 2006 05:10:36 -0000 1.3
@@ -173,6 +173,8 @@
'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 ) {
Index: cust_credit_bill_pkg.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cust_credit_bill_pkg.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- cust_credit_bill_pkg.pm 21 Aug 2006 23:01:43 -0000 1.1
+++ cust_credit_bill_pkg.pm 15 Sep 2006 05:10:36 -0000 1.2
@@ -44,8 +44,15 @@
=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 @@
|| $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;
More information about the freeside-commits
mailing list