httemplate/search/elements/grouped-search/html

   1 <%shared>
   2 my $conf = FS::Conf->new;
   3 </%shared>
   4 <%init>
   5 my %opt = @_;
   6 $opt{'name'} ||= PL($opt{'name_singular'});
   7
   8 my $group_info = $m->comp('core', %opt);
   9
  10 my $redirect;
  11
  12 if ( $group_info->{num} == 0 ) {
  13   $redirect = $opt{'redirect_empty'};
  14   $redirect = &$redirect($cgi) if $redirect && ref($redirect) eq 'CODE';
  15   if ($redirect) {
  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');
  21     $m->abort;
  22   }
  23 }
  24
  25 # this mode has a concept of "current group"
  26 my $curr_group = 0;
  27 if ($cgi->param('group') =~ /^(\d+)$/) {
  28   $curr_group = $1;
  29 }
  30
  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} || [];
  35 # pagination
  36 my ($limit, $offset);
  37 my $maxrecords = $conf->config('maxsearchrecordsperpage') || 100;
  38 if ( $cgi->param('maxrecords') =~ /^(\d+)$/ ) {
  39   $maxrecords = $1;
  40 }
  41 if ( $maxrecords ) {
  42   $limit = "LIMIT $maxrecords";
  43   if ( $cgi->param('offset') =~ /^(\d+)$/ ) {
  44     $offset = $1;
  45     $limit .= " OFFSET $offset";
  46   }
  47 }
  48 $query->{order_by} .= $limit if $limit;
  49
  50 #warn Dumper($query); #DEBUG
  51
  52 # run the query
  53 my @rows = $query->qsearch;
  54
  55 #warn Dumper(\@rows); #DEBUG
  56
  57 my $pager = '';
  58 # show pager if needed
  59 if ( $group->num_rows > scalar(@rows) ) {
  60   $pager = include( '/elements/pager.html',
  61     'offset'      => $offset,
  62     'num_rows'    => scalar(@rows),
  63     'total'       => $group->num_rows,
  64     'maxrecords'  => $maxrecords,
  65   );
  66 }
  67
  68 # set up tab bar
  69 my @menubar;
  70 if ($group_info->{num} > 1) {
  71   for (my $i = 0; $i < $group_info->{num}; $i++) {
  72     push @menubar, $group_info->{group_labels}[$i], ";group=$i";
  73   }
  74 }
  75
  76 # not enabled yet; if we need this at some point, enable it on a per-report
  77 # basis and then disable it for search/cust_pay.html, because it's redundant
  78 # to see "Check   Check #130108", "Credit card   Card #401...", etc.
  79
  80 ## if this is the combined view, add a column for the group key
  81 #if ( $curr_group == 0 and $opt{'show_combined'} ) {
  82 #  unshift @{$opt{'header'}}, '';
  83 #  unshift @{$opt{'fields'}}, $opt{group_label};
  84 #  unshift @{$opt{'sort_fields'}}, $opt{group_column} if $opt{'sort_fields'};
  85 #  $opt{'align'} = 'c'.$opt{'align'};
  86 #  foreach (qw(header2 links link_onclicks color size style cell_style xls_format)) {
  87 #    if ( $opt{$_} ) {
  88 #      unshift @{$opt{$_}}, '';
  89 #    }
  90 #  }
  91 #}
  92
  93 my $conf = FS::Conf->new;
  94 my $money = $conf->config('money_char') || '$';
  95 </%init>
  96
  97 <& /elements/header.html, $opt{title} &>
  98
  99 %# tab bar
 100 % $cgi->delete('group');
 101 % $cgi->delete('offset');
 102 % $cgi->delete('type');
 103 <& /elements/menubar.html,
 104   { newstyle => 1,
 105     url_base => $cgi->self_url,
 106     selected => $group_info->{group_labels}[$curr_group] },
 107   @menubar
 108 &>
 109
 110 <DIV CLASS="fstabcontainer">
 111 % if ( $group->num_rows > 0 ) {
 112 <P><% emt('[quant,_1,_2]', $group->num_rows, $opt{name_singular}) %> for <% emt($money.$group->paid) %>
 113 </P>
 114 %# download links
 115 <P><% emt('Download results:') %>
 116 % $cgi->param('type', 'xls');
 117 <A HREF="<% $cgi->self_url %>"><% emt('Spreadsheet') %></A>&nbsp;|&nbsp;
 118 % $cgi->param('type', 'html-print');
 119 <A HREF="<% $cgi->self_url %>"><% emt('webpage') %></A>
 120 % $cgi->delete('type');
 121 </P>
 122 % }
 123
 124 <% $pager %>
 125
 126 <STYLE>
 127   table.grid {
 128     border-spacing: 0;
 129   }
 130 </STYLE>
 131 <table class="grid">
 132   <thead>
 133   <& /search/elements/search-html.html:header_row,
 134     'header'      => $opt{'header'},
 135     'header2'     => $opt{'header2'},
 136     'sort_fields' => ($opt{'sort_fields'} || $opt{'fields'}),
 137   &>
 138   </thead>
 139   <tbody>
 140   <& /search/elements/search-html.html:data_rows,
 141     'rows' => \@rows,
 142     'opt'  => \%opt,
 143   &>
 144   </tbody>
 145   <tfoot>
 146   <& /search/elements/search-html.html:footer_row, row => $footer, opt => \%opt &>
 147 %   if ( scalar @$total_footer ) {
 148   <& /search/elements/search-html.html:footer_row, row => $total_footer, opt => \%opt &>
 149 %   }
 150   </tfoot>
 151 </table>
 152
 153 <% $pager %>
 154 </DIV>
 155
 156 <& /elements/footer.html &>
 157