<% include( 'elements/cust_main_dayranges.html', #'title' => 'Prepaid Balance Aging Summary', #??? 'title' => 'Unapplied Payments Aging Summary', 'range_sub' => \&unapplied_payments, ) %> <%init> die "access denied" unless $FS::CurrentUser::CurrentUser->access_right('Financial reports'); <%once> sub unapplied_payments { my($start, $end, $offset) = @_; #handle start and end ranges (86400 = 24h * 60m * 60s) my $str2time = str2time_sql; my $closing = str2time_sql_closing; $start = "( $str2time now() $closing - ".($start + $offset) * 86400 . ' )'; $end = $end ? "( $str2time now() $closing - ".($end + $offset) * 86400 . ' )' : ''; FS::cust_main->unapplied_payments_date_sql( $start, $end ); }