diff options
| author | ivan <ivan> | 2010-03-13 23:50:55 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2010-03-13 23:50:55 +0000 |
| commit | 8383d08d3ca2c8e3cd4fec7a3750a929451ea871 (patch) | |
| tree | 62e3facca8452ac2e5cf294d7183df4c33400f98 | |
| parent | 1ace36787c6c9c7091627810f11352dd410c0d6e (diff) | |
quiet extraneous warnings from expire_months/start_1st stuff, getting in the way of debugging for ncic, RT#7780
| -rw-r--r-- | FS/FS/cust_pkg.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/FS/FS/cust_pkg.pm b/FS/FS/cust_pkg.pm index dbce6cbf5..d8b7575b6 100644 --- a/FS/FS/cust_pkg.pm +++ b/FS/FS/cust_pkg.pm @@ -250,14 +250,14 @@ an optional queue name for ticket additions sub insert { my( $self, %options ) = @_; - if ( $self->part_pkg->option('start_1st') && !$self->start_date ) { + if ( $self->part_pkg->option('start_1st', 1) && !$self->start_date ) { my ($sec,$min,$hour,$mday,$mon,$year) = (localtime(time) )[0,1,2,3,4,5]; $mon += 1 unless $mday == 1; until ( $mon < 12 ) { $mon -= 12; $year++; } $self->start_date( timelocal_nocheck(0,0,0,1,$mon,$year) ); } - my $expire_months = $self->part_pkg->option('expire_months'); + my $expire_months = $self->part_pkg->option('expire_months', 1); if ( $expire_months && !$self->expire ) { my $start = $self->start_date || $self->setup || time; |