diff options
| author | Jonathan Prykop <jonathan@freeside.biz> | 2016-06-21 23:07:14 -0500 |
|---|---|---|
| committer | Jonathan Prykop <jonathan@freeside.biz> | 2016-06-22 04:17:08 -0500 |
| commit | 3afb93419e298b765104a6ed4df856d8e4d6fc25 (patch) | |
| tree | 1b43638c3d8065f50f6e5d9284e781e18393ede3 /FS/FS/part_pkg | |
| parent | 3efb9e9aaebde62332f3a03c3c6970747eef9501 (diff) | |
RT#30820: Report not working
Diffstat (limited to 'FS/FS/part_pkg')
| -rw-r--r-- | FS/FS/part_pkg/flat_introrate.pm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/FS/FS/part_pkg/flat_introrate.pm b/FS/FS/part_pkg/flat_introrate.pm index 7337602..1fc9cd2 100644 --- a/FS/FS/part_pkg/flat_introrate.pm +++ b/FS/FS/part_pkg/flat_introrate.pm @@ -4,6 +4,8 @@ use base qw( FS::part_pkg::flat ); use strict; use vars qw( %info ); +use FS::Log; + %info = ( 'name' => 'Introductory price for X months, then flat rate,'. 'relative to setup date (anniversary billing)', @@ -30,7 +32,10 @@ sub base_recur { my ($duration) = ($self->option('intro_duration') =~ /^\s*(\d+)\s*$/); unless (length($duration)) { - die "Invalid intro_duration: " . $self->option('intro_duration'); + my $log = FS::Log->new('FS::part_pkg'); + $log->warning("Invalid intro_duration '".$self->option('intro_duration')."' on pkgpart ".$self->pkgpart + .", defaulting to 0, check package definition"); + $duration = 0; } my $intro_end = $self->add_freq($cust_pkg->setup, $duration); |