- warn $DEBUG_PRE . "\$duration = ${duration}" if $DEBUG;
- warn $DEBUG_PRE . "\$intro_end = ${intro_end}" if $DEBUG;
- warn $DEBUG_PRE . "$$time < " . &UnixDate($intro_end, '%s') if $DEBUG;
+ my ($duration) = ($self->option('intro_duration') =~ /^\s*(\d+)\s*$/);
+ unless (length($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);