[freeside-commits] freeside/FS/FS cust_pkg.pm, 1.139.2.13, 1.139.2.14

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory wavetail.420.am:/tmp/cvs-serv17674

Modified Files:
      Tag: FREESIDE_1_9_BRANCH
	cust_pkg.pm 
Log Message:
quiet extraneous warnings from expire_months/start_1st stuff, getting in the way of debugging for ncic, RT#7780

Index: cust_pkg.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cust_pkg.pm,v
retrieving revision 1.139.2.13
retrieving revision 1.139.2.14
diff -u -w -d -r1.139.2.13 -r1.139.2.14
--- cust_pkg.pm	12 Mar 2010 03:36:46 -0000	1.139.2.13
+++ cust_pkg.pm	13 Mar 2010 23:50:55 -0000	1.139.2.14
@@ -250,14 +250,14 @@
 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;