2 my $conf = FS::Conf->new;
6 $opt{'name'} ||= PL($opt{'name_singular'});
8 my $amount_field = $opt{amount_field};
10 my $group_info = $m->comp('core', %opt);
14 if ( $group_info->{num} == 0 ) {
15 $redirect = $opt{'redirect_empty'};
16 $redirect = &$redirect($cgi) if $redirect && ref($redirect) eq 'CODE';
18 redirect( $redirect );
19 } else { # just print this stuff and exit
20 $m->comp('/elements/header.html', $opt{'title'});
21 $m->print('<BR><BR>No matching ' . $opt{'name'} . ' found.<BR>');
22 $m->comp('/elements/footer.html');
27 # this mode has a concept of "current group"
29 if ($cgi->param('group') =~ /^(\d+)$/) {
33 my $group = $group_info->{groups}[$curr_group];
34 my $query = $group_info->{queries}[$curr_group];
35 my $footer = $group_info->{group_footers}[$curr_group];
36 my $total_footer = $group_info->{total_footer} || [];
39 my $maxrecords = $conf->config('maxsearchrecordsperpage') || 100;
40 if ( $cgi->param('maxrecords') =~ /^(\d+)$/ ) {
44 $limit = "LIMIT $maxrecords";
45 if ( $cgi->param('offset') =~ /^(\d+)$/ ) {
47 $limit .= " OFFSET $offset";
50 $query->{order_by} .= $limit if $limit;
52 #warn Dumper($query); #DEBUG
55 my @rows = $query->qsearch;
57 #warn Dumper(\@rows); #DEBUG
60 # show pager if needed
61 if ( $group->num_rows > scalar(@rows) ) {
62 $pager = include( '/elements/pager.html',
64 'num_rows' => scalar(@rows),
65 'total' => $group->num_rows,
66 'maxrecords' => $maxrecords,
72 if ($group_info->{num} > 1) {
73 for (my $i = 0; $i < $group_info->{num}; $i++) {
74 push @menubar, $group_info->{group_labels}[$i], ";group=$i";
78 # not enabled yet; if we need this at some point, enable it on a per-report
79 # basis and then disable it for search/cust_pay.html, because it's redundant
80 # to see "Check Check #130108", "Credit card Card #401...", etc.
82 ## if this is the combined view, add a column for the group key
83 #if ( $curr_group == 0 and $opt{'show_combined'} ) {
84 # unshift @{$opt{'header'}}, '';
85 # unshift @{$opt{'fields'}}, $opt{group_label};
86 # unshift @{$opt{'sort_fields'}}, $opt{group_column} if $opt{'sort_fields'};
87 # $opt{'align'} = 'c'.$opt{'align'};
88 # foreach (qw(header2 links link_onclicks color size style cell_style xls_format)) {
90 # unshift @{$opt{$_}}, '';
95 my $conf = FS::Conf->new;
96 my $money = $conf->config('money_char') || '$';
99 <& /elements/header.html, $opt{title} &>
102 % $cgi->delete('group');
103 % $cgi->delete('offset');
104 % $cgi->delete('type');
105 <& /elements/menubar.html,
107 url_base => $cgi->self_url,
108 selected => $group_info->{group_labels}[$curr_group] },
112 <DIV CLASS="fstabcontainer">
113 % if ( $group->num_rows > 0 ) {
114 <P><% emt('[quant,_1,_2]', $group->num_rows, $opt{name_singular}) %> for <% emt($money.$group->$amount_field()) %>
117 <P><% emt('Download results:') %>
118 % $cgi->param('type', 'xls');
119 <A HREF="<% $cgi->self_url %>"><% emt('Spreadsheet') %></A> |
120 % $cgi->param('type', 'html-print');
121 <A HREF="<% $cgi->self_url %>"><% emt('webpage') %></A>
122 % if ( ref($query) && $query->{table} eq 'cust_pay' ) {
123 % $cgi->param('type', 'deposit_slip');
124 | <A HREF="<% $cgi->self_url %>"><% emt('deposit slip') %></A>
126 % $cgi->delete('type');
139 <& /search/elements/search-html.html:header_row,
140 'header' => $opt{'header'},
141 'header2' => $opt{'header2'},
142 'sort_fields' => ($opt{'sort_fields'} || $opt{'fields'}),
146 <& /search/elements/search-html.html:data_rows,
152 <& /search/elements/search-html.html:footer_row, row => $footer, opt => \%opt &>
153 % if ( scalar @$total_footer ) {
154 <& /search/elements/search-html.html:footer_row, row => $total_footer, opt => \%opt &>
162 <& /elements/footer.html &>