2 my $conf = FS::Conf->new;
6 $opt{'name'} ||= PL($opt{'name_singular'});
8 my $group_info = $m->comp('core', %opt);
12 if ( $group_info->{num} == 0 ) {
13 $redirect = $opt{'redirect_empty'};
15 $redirect = &$redirect($cgi) if ref($redirect) eq 'CODE';
16 redirect( $redirect );
17 } else { # just print this stuff and exit
18 $m->comp('/elements/header.html', $opt{'title'});
19 $m->print('<BR><BR>No matching ' . $opt{'name'} . ' found.<BR>');
20 $m->comp('/elements/footer.html');
25 # this mode has a concept of "current group"
27 if ($cgi->param('group') =~ /^(\d+)$/) {
31 my $group = $group_info->{groups}[$curr_group];
32 my $query = $group_info->{queries}[$curr_group];
33 my $footer = $group_info->{group_footers}[$curr_group];
34 my $total_footer = $group_info->{total_footer} || [];
37 my $maxrecords = $conf->config('maxsearchrecordsperpage') || 50;
38 if ( $cgi->param('maxrecords') =~ /^(\d+)$/ ) {
42 $limit = "LIMIT $maxrecords";
43 if ( $cgi->param('offset') =~ /^(\d+)$/ ) {
45 $limit .= " OFFSET $offset";
48 $query->{order_by} .= $limit if $limit;
50 #warn Dumper($query); #DEBUG
53 my @rows = $query->qsearch;
55 #warn Dumper(\@rows); #DEBUG
58 # show pager if needed
59 if ( $group->num_rows > scalar(@rows) ) {
60 $pager = include( '/elements/pager.html',
62 'num_rows' => scalar(@rows),
63 'total' => $group->num_rows,
64 'maxrecords' => $maxrecords,
70 for (my $i = 0; $i < $group_info->{num}; $i++) {
71 push @menubar, $group_info->{group_labels}[$i], ";group=$i";
74 # not enabled yet; if we need this at some point, enable it on a per-report
75 # basis and then disable it for search/cust_pay.html, because it's redundant
76 # to see "Check Check #130108", "Credit card Card #401...", etc.
78 ## if this is the combined view, add a column for the group key
79 #if ( $curr_group == 0 and $opt{'show_combined'} ) {
80 # unshift @{$opt{'header'}}, '';
81 # unshift @{$opt{'fields'}}, $opt{group_label};
82 # unshift @{$opt{'sort_fields'}}, $opt{group_column} if $opt{'sort_fields'};
83 # $opt{'align'} = 'c'.$opt{'align'};
84 # foreach (qw(header2 links link_onclicks color size style cell_style xls_format)) {
86 # unshift @{$opt{$_}}, '';
93 <& /elements/header.html, $opt{title} &>
96 % $cgi->delete('group');
97 % $cgi->delete('offset');
98 % $cgi->delete('type');
99 <& /elements/menubar.html,
101 url_base => $cgi->self_url,
102 selected => $group_info->{group_labels}[$curr_group] },
106 <DIV CLASS="fstabcontainer">
108 <P><% emt('Download full results') %><BR>
109 % $cgi->param('type', 'xls');
110 <A HREF="<% $cgi->self_url %>"><% emt('as Excel spreadsheet') %></A><BR>
111 % $cgi->param('type', 'html-print');
112 <A HREF="<% $cgi->self_url %>"><% emt('as printable copy') %></A><BR>
113 % $cgi->delete('type');
125 <& /search/elements/search-html.html:header_row,
126 'header' => $opt{'header'},
127 'header2' => $opt{'header2'},
128 'sort_fields' => ($opt{'sort_fields'} || $opt{'fields'}),
132 <& /search/elements/search-html.html:data_rows,
138 <& /search/elements/search-html.html:footer_row, row => $footer, opt => \%opt &>
139 % if ( scalar @$total_footer ) {
140 <& /search/elements/search-html.html:footer_row, row => $total_footer, opt => \%opt &>
148 <& /elements/footer.html &>