-<% include( 'elements/cust_main_dayranges.html',
+<& elements/cust_main_dayranges.html,
#'title' => 'Prepaid Balance Aging Summary', #???
'title' => 'Unapplied Payments Aging Summary',
'range_sub' => \&unapplied_payments,
- );
+&>
<%init>
die "access denied"
</%init>
<%once>
-#Example:
-#
-# my $balance = balance(
-# $start, $end,
-# 'no_as' => 1, #set to true when using in a WHERE clause (supress AS clause)
-# #or 0 / omit when using in a SELECT clause as a column
-# # ("AS balance_$start_$end")
-# 'sum' => 1, #set to true to get a SUM() of the values, for totals
-#
-# #obsolete? options for totals (passed to cust_main::balance_date_sql)
-# 'total' => 1, #set to true to remove all customer comparison clauses
-# 'join' => $join, #JOIN clause
-# 'where' => \@where, #WHERE clause hashref (elements "AND"ed together)
-# )
-
-#sub balance {
sub unapplied_payments {
- my($start, $end, %opt) = @_;
-
-#XXX fill-in
-# #handle start and end ranges (86400 = 24h * 60m * 60s)
-# my $str2time = str2time_sql;
-# my $closing = str2time_sql_closing;
-# $start = $start ? "( $str2time now() $closing - ".($start * 86400). ' )' : '';
-# $end = $end ? "( $str2time now() $closing - ".($end * 86400). ' )' : '';
-#
-# #$opt{'unapplied_date'} = 1;
-#
-# FS::cust_main->balance_date_sql( $start, $end, %opt ).
+ my($start, $end, $cutoff) = @_;
+ FS::cust_main->unapplied_payments_date_sql( $start, $end,
+ 'cutoff' => $cutoff,
+ );
}
</%once>