- # add a full period if currently billing for a partial period
- if ( ( $self->option('add_full_period',1)
- or $self->option('prorate_defer_bill',1) ) # necessary
- and $months < $self->freq ) {
- $months += $self->freq;
- $$sdate = $self->add_freq($mstart);
+ if ( $self->option('prorate_verbose',1)
+ and $months > 0 and $months < $self->freq ) {
+ push @$details,
+ 'Prorated (' . time2str('%b %d', $mnow) .
+ ' - ' . time2str('%b %d', $mend) . '): ' . $money_char .
+ sprintf('%.2f', $permonth * $months + 0.00000001 );
+ }
+
+ # add a full period if currently billing for a partial period
+ # or periods up to freq_override if billing for an override interval
+ if ( ($param->{'freq_override'} || 0) > 1 ) {
+ $months += $param->{'freq_override'} - 1;
+ }
+ elsif ( $add_period && $months < $self->freq) {
+
+ if ( $self->option('prorate_verbose',1) ) {
+ # calculate the prorated and add'l period charges
+ push @$details,
+ 'First full month: ' . $money_char .
+ sprintf('%.2f', $permonth);