- push @header, 'Paid time';
- push @fields, sub {
- my $svc_acct = shift;
- my $seconds = $svc_acct->seconds;
- my $cust_pkg = $svc_acct->cust_svc->cust_pkg;
- my $part_pkg = $cust_pkg->part_pkg;
- my $timepermonth = $part_pkg->option('seconds');
- $timepermonth = $timepermonth / $part_pkg->freq
- if $part_pkg->freq =~ /^\d+$/ && $part_pkg->freq != 0;
- return format_time($seconds) unless $timepermonth;
- #my $recur = $part_pkg->calc_recur($cust_pkg);
- my $recur = $part_pkg->base_recur($cust_pkg);
- my $balance = $cust_pkg->cust_main->balance;
- my $months_unpaid = $balance / $recur;
- my $time_unpaid = $months_unpaid * $timepermonth;
- format_time($seconds-$time_unpaid).
- sprintf(' (%.2fx monthly)', ( $seconds-$time_unpaid ) / $timepermonth );
- };
- push @links, '';
- $align .= 'r';
- push @color, '';
- push @style, '';
+ push @header, 'Paid time', 'Last 30', 'Last 60', 'Last 90';
+ push @fields,
+ sub {
+ my $svc_acct = shift;
+ my $seconds = $svc_acct->seconds;
+ my $cust_pkg = $svc_acct->cust_svc->cust_pkg;
+ my $part_pkg = $cust_pkg->part_pkg;
+ #my $timepermonth = $part_pkg->option('seconds');
+ $timepermonth = $part_pkg->option('seconds');
+ $timepermonth = $timepermonth / $part_pkg->freq
+ if $part_pkg->freq =~ /^\d+$/ && $part_pkg->freq != 0;
+ return format_time($seconds) unless $timepermonth;
+ #my $recur = $part_pkg->calc_recur($cust_pkg);
+ my $recur = $part_pkg->base_recur($cust_pkg);
+ my $balance = $cust_pkg->cust_main->balance;
+ my $months_unpaid = $balance / $recur;
+ my $time_unpaid = $months_unpaid * $timepermonth;
+ format_time($seconds-$time_unpaid).
+ sprintf(' (%.2fx monthly)', ( $seconds-$time_unpaid ) / $timepermonth );
+ },
+ sub { timelast( shift, 30, $timepermonth ); },
+ sub { timelast( shift, 60, $timepermonth ); },
+ sub { timelast( shift, 90, $timepermonth ); },
+ ;
+ push @links, '', '', '', '';
+ $align .= 'rrrr';
+ push @color, '', '', '', '';
+ push @style, '', '', '', '';