[freeside-commits] freeside/FS/FS/part_pkg delayed_Mixin.pm, 1.1.2.2, 1.1.2.3 flat.pm, 1.65, 1.65.2.1
Ivan,,,
ivan at wavetail.420.am
Wed Aug 10 17:38:15 PDT 2011
- Previous message: [freeside-commits] freeside/httemplate/elements tr-select-cust-part_pkg.html, 1.4, 1.5 order_pkg.js, 1.1, 1.2 select-part_pkg.html, 1.7, 1.8
- Next message: [freeside-commits] freeside/FS/FS cust_pkg.pm, 1.204.2.3, 1.204.2.4 part_pkg.pm, 1.123.2.1, 1.123.2.2
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
Update of /home/cvs/cvsroot/freeside/FS/FS/part_pkg
In directory wavetail.420.am:/tmp/cvs-serv14660/FS/FS/part_pkg
Modified Files:
Tag: FREESIDE_2_3_BRANCH
delayed_Mixin.pm flat.pm
Log Message:
hide start date on package order for specific package definitions, RT#13783
Index: flat.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_pkg/flat.pm,v
retrieving revision 1.65
retrieving revision 1.65.2.1
diff -u -w -d -r1.65 -r1.65.2.1
--- flat.pm 17 Jun 2011 09:47:04 -0000 1.65
+++ flat.pm 11 Aug 2011 00:38:13 -0000 1.65.2.1
@@ -219,6 +219,8 @@
sub is_prepaid { 0; } #no, we're postpaid
+sub can_start_date { ! shift->option('start_1st', 1) }
+
#XXX discounts only on recurring fees for now (no setup/one-time or usage)
sub can_discount {
my $self = shift;
Index: delayed_Mixin.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_pkg/delayed_Mixin.pm,v
retrieving revision 1.1.2.2
retrieving revision 1.1.2.3
diff -u -w -d -r1.1.2.2 -r1.1.2.3
--- delayed_Mixin.pm 10 Aug 2011 23:43:46 -0000 1.1.2.2
+++ delayed_Mixin.pm 11 Aug 2011 00:38:13 -0000 1.1.2.3
@@ -25,7 +25,7 @@
sub calc_setup {
my($self, $cust_pkg, $time ) = @_;
- unless ( $self->option('delay_setup') ) {
+ unless ( $self->option('delay_setup', 1) ) {
my $d = $cust_pkg->bill || $time;
$d += 86400 * $self->option('free_days');
$cust_pkg->bill($d);
@@ -37,7 +37,7 @@
sub calc_remain {
my ($self, $cust_pkg, %options) = @_;
- unless ( $self->option('delay_setup') ) {
+ unless ( $self->option('delay_setup', 1) ) {
my $last_bill = $cust_pkg->last_bill || 0;
my $next_bill = $cust_pkg->getfield('bill') || 0;
my $free_days = $self->option('free_days');
@@ -49,4 +49,6 @@
return $self->SUPER::calc_remain($cust_pkg, %options);
}
+sub can_start_date { ! shift->option('delay_setup', 1) }
+
1;
- Previous message: [freeside-commits] freeside/httemplate/elements tr-select-cust-part_pkg.html, 1.4, 1.5 order_pkg.js, 1.1, 1.2 select-part_pkg.html, 1.7, 1.8
- Next message: [freeside-commits] freeside/FS/FS cust_pkg.pm, 1.204.2.3, 1.204.2.4 part_pkg.pm, 1.123.2.1, 1.123.2.2
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
More information about the freeside-commits
mailing list