-<% include( 'elements/search.html',
+<& elements/search.html,
'title' => $title,
- 'name' => 'credits',
+ 'name' => emt('credits'),
'query' => $sql_query,
'count_query' => $count_query,
'count_addl' => \@count_addl,
- #'redirect' => $link,
'header' => \@header,
'fields' => \@fields,
'sort_fields' => \@sort_fields,
'links' => \@links,
'color' => \@color,
'style' => \@style,
- )
-%>
+&>
<%init>
die "access denied"
my $money_char = FS::Conf->new->config('money_char') || '$';
-my $title = 'Credit Search Results';
-#my( $count_query, $sql_query );
+my $title = emt('Credit Search Results');
my $unapplied = $cgi->param('unapplied');
-$title = "Unapplied $title" if $unapplied;
+$title = emt("Unapplied $title") if $unapplied;
my $clink = sub {
my $cust_bill = shift;
$cust_bill->cust_main_custnum
$align = '';
#amount
-push @header, 'Amount';
+push @header, emt('Amount');
push @fields, sub { $money_char .sprintf('%.2f', shift->amount) };
push @sort_fields, 'amount';
$align .= 'r';
# unapplied amount
if ($unapplied) {
- push @header, 'Unapplied';
+ push @header, emt('Unapplied');
push @fields, sub { $money_char .sprintf('%.2f', shift->unapplied_amount) };
push @sort_fields, '';
$align .= 'r';
push @style, '';
}
-push @header, 'Date',
- 'By',
- 'Reason',
+push @header, emt('Date'),
+ emt('By'),
+ emt('Reason'),
FS::UI::Web::cust_header(),
;
push @fields, sub { time2str('%b %d %Y', shift->_date ) },
$title = $agent->agent. " $title";
}
+if ( $cgi->param('refnum') && $cgi->param('refnum') =~ /^(\d+)$/ ) {
+ push @search, "refnum = $1";
+ my $part_referral = qsearchs('part_referral', { 'refnum' => $1 } );
+ die "unknown refnum $1" unless $part_referral;
+ $title = $part_referral->referral. " $title";
+}
+
+
+# cust_classnum (false laziness w/ elements/cust_main_dayranges.html, elements/cust_pay_or_refund.html, prepaid_income.html, cust_bill_pay.html, cust_bill_pkg.html, cust_bill_pkg_referral.html, unearned_detail.html, cust_credit_refund.html, cust_main::Search::search_sql)
+if ( grep { $_ eq 'cust_classnum' } $cgi->param ) {
+ my @classnums = grep /^\d*$/, $cgi->param('cust_classnum');
+ push @search, 'COALESCE( cust_main.classnum, 0) IN ( '.
+ join(',', map { $_ || '0' } @classnums ).
+ ' )'
+ if @classnums;
+}
+
if ( $unapplied ) {
push @search, FS::cust_credit->unapplied_sql . ' > 0';
}