if ( $what eq 'base_recur_permonth' ) { #huh. yuck.
if ( $part_pkg->freq !~ /^\d+$/ ) {
die 'WARNING: Not crediting customer '. $cust_main->referral_custnum.
if ( $what eq 'base_recur_permonth' ) { #huh. yuck.
if ( $part_pkg->freq !~ /^\d+$/ ) {
die 'WARNING: Not crediting customer '. $cust_main->referral_custnum.