%   if ( exists($opt{'redirect'}) && $opt{'redirect'}
%        && scalar(@$rows) == 1 && $total == 1
%        && $type ne 'html-print'
%      ) {
%     my $redirect = $opt{'redirect'};
%     $redirect = &{$redirect}($rows->[0], $cgi) if ref($redirect) eq 'CODE';
%     my( $url, $method ) = @$redirect;
%     redirect( $url. $rows->[0]->$method() );
%   } elsif ( exists($opt{'redirect_empty'}) && ! scalar(@$rows) && $total == 0
%             && $type ne 'html-print'
%             && $opt{'redirect_empty'}
%             && ( ref($opt{'redirect_empty'}) ne 'CODE'
%                  || &{$opt{'redirect_empty'}}($cgi)    )
%      ) {
%     my $redirect = $opt{'redirect_empty'};
%     $redirect = &{$redirect}($cgi) if ref($redirect) eq 'CODE';
%     redirect( $redirect );
%   } else {
%     if ( $opt{'name_singular'} ) {
%       $opt{'name'} = PL($opt{'name_singular'});
%     }
%     ( my $xlsname = $opt{'name'} ) =~ s/\W//g;
%     if ( $total == 1 ) {
%       if ( $opt{'name_singular'} ) {
%         $opt{'name'} = $opt{'name_singular'}
%       } else {
%         #$opt{'name'} =~ s/s$// if $total == 1;
%         $opt{'name'} =~ s/((s)e)?s$/$2/ if $total == 1;
%       }
%     }
%
%     unless ( $opt{nohtmlheader} ) {
%
%       if ( $type eq 'html-print' ) {
          <& /elements/header-popup.html, $opt{'title'} &>
%       } else {
%         if ( $type eq 'select' ) {
            <&/elements/header-popup.html, $opt{'title'} &>
%         } else {
%
%           my @menubar = ();
%           if ( $opt{'menubar'} ) {
%             @menubar = @{ $opt{'menubar'} };
%           #} else {
%           #  @menubar = ( 'Main menu' => $p );
%           }

            <& /elements/header.html, $opt{'title'},
                 include( '/elements/menubar.html', @menubar )
            &>

%         }
%       }
%
%     }
%
%     unless ( $type eq 'html-print' ) {

%       if ( $opt{'add_link'} ) { #or after html_init?
          <A HREF="<%$p%>edit/<% $opt{query}->{table} %>.html"><I>Add a <% $opt{'name_singular'} %></I></A><BR><BR>
%       }

        <% defined($opt{'html_init'}) 
              ? ( ref($opt{'html_init'})
                    ? &{$opt{'html_init'}}()
                    : $opt{'html_init'}
                )
              : ''
        %>

%     }

%     unless ( $total ) { 
%       unless ( $opt{'disable_nonefound'} ) { 
          <BR><BR>No matching <% $opt{'name'} %> found.<BR>
%       } 
%     }
%
%     if ( $total || $opt{'disableable'} ) { #hmm... and there *are* ones to show??

        <TABLE>
          <TR>

            <TD VALIGN="bottom">

              <FORM>

%               if (! $opt{'disable_total'}) {
                  <% $total %> total <% $opt{'name'} %>
%               }

%               if ( $confmax && $total > $confmax
%                    && ! $opt{'disable_maxselect'}
%                    && $type ne 'html-print' )
%               {
%                 $cgi->delete('maxrecords');
%                 $cgi->param('_dummy', 1);

                  ( show <SELECT NAME="maxrecords" onChange="window.location = '<% "$self_url?". $cgi->query_string %>;maxrecords=' + this.options[this.selectedIndex].value;">

%                   foreach my $max ( map { $_ * $confmax } qw( 1 5 10 25 ) ) {
                  <OPTION VALUE="<% $max %>" <% ( $maxrecords == $max ) ? 'SELECTED' : '' %>><% $max %></OPTION>
%                   }

	          </SELECT> per page )

%                 $cgi->param('maxrecords', $maxrecords);
%               }

%               if ( defined($opt{'html_posttotal'}) && $type ne 'html-print' ) {
                    <% ref($opt{'html_posttotal'})
                         ? &{$opt{'html_posttotal'}}()
                         : $opt{'html_posttotal'}
                    %>
%               }
                <BR>

%               if ( $opt{'count_addl'} ) { 
%                 my $n=0;
%                 foreach my $count ( @{$opt{'count_addl'}} ) { 
%                   my $data = $count_arrayref->[++$n];
%                   if ( ref($count) ) {
                      <% &{ $count }( $data ) %>
%                   } else {
                      <% sprintf( $count, $data ) %><BR>
%                   }
%                 } 
%               } 
              </FORM>

            </TD>

%           if ( $curuser->access_right('Download report data')
%                 and !$opt{'disable_download'}
%                 and $type ne 'html-print' ) { 

              <TD ALIGN="right" CLASS="noprint">

                <% $opt{'download_label'} || 'Download full results' %><BR>

%               $cgi->param('_type', "$xlsname.xls" ); 
                as <A HREF="<% "$self_url?". $cgi->query_string %>">Excel spreadsheet</A><BR>

%               $cgi->param('_type', 'csv'); 
                as <A HREF="<% "$self_url?". $cgi->query_string %>">CSV file</A><BR>

%             if ( defined($opt{xml_elements}) ) {
%               $cgi->param('_type', 'xml'); 
                as <A HREF="<% "$self_url?". $cgi->query_string %>">XML file</A><BR>
%             }

%               $cgi->param('_type', 'html-print'); 
                as <A HREF="<% "$self_url?". $cgi->query_string %>">printable copy</A>

              </TD>
%             $cgi->param('_type', "html" ); 
%           } 

          </TR>
          <TR>
            <TD COLSPAN=2>

%             my $pager = '';
%             unless ( $type eq 'html_print' ) {

                <% $pager = include( '/elements/pager.html',
                                       'offset'     => $offset,
                                       'num_rows'   => scalar(@$rows),
                                       'total'      => $total,
                                       'maxrecords' => $maxrecords,
                                   )
                %>

                <% defined($opt{'html_form'}) 
                     ? ( ref($opt{'html_form'})
                           ? &{$opt{'html_form'}}()
                           : $opt{'html_form'}
                       )
                     : ''
                %>

%             }

              <& SELF:data_table,
                  rows            => $rows,
                  null_link       => $null_link,
                  link_agentnums  => \@link_agentnums,
                  self_url        => $self_url,
                  %opt
              &>

              <% $pager %>
  
            </TD>
          </TR>
        </TABLE>
%     }

%     if ( $type eq 'html-print' ) {
%       unless ( $opt{nohtmlheader} ) {

        </BODY></HTML>
      
%       }
%     } else {

        <% defined($opt{'html_foot'}) 
              ? ( ref($opt{'html_foot'})
                    ? &{$opt{'html_foot'}}()
                    : $opt{'html_foot'}
                )
              : ''
        %>

        <% $opt{nohtmlheader}
             ? ''
             : include( '/elements/footer.html' )
        %>

%     }

%   } 
<%init>

my $curuser = $FS::CurrentUser::CurrentUser;

my %args = @_;
my $type           = $args{'type'};
my $header         = $args{'header'};
my $rows           = $args{'rows'};
my @link_agentnums = @{ $args{'link_agentnums'} };
my $null_link      = $args{'null_link'};
my $confmax        = $args{'confmax'};
my $maxrecords     = $args{'maxrecords'};
my $offset         = $args{'offset'};
my %opt            = %{ $args{'opt'} };

# must be an arrayref of the row count, followed by any other totals
my $count_arrayref = $args{'totals'};
my $total = $count_arrayref->[0];

# there used to be an option to override this, for highly dubious reasons
my $self_url = $cgi->url('-path_info' => 1, '-full' =>1);

</%init>
<%method data_table>
% my %opt = @_;
% my $rows = delete $opt{rows};
% my $self_url = delete $opt{self_url};
<& /elements/table-grid.html &>

<THEAD>
<& SELF:header_row,
  'header'      => $opt{'header'},
  'header2'     => $opt{'header2'},
  'sort_fields' => ($opt{'sort_fields'} || $opt{'fields'}),
&>
</THEAD>

<TBODY>
<& SELF:data_rows, rows => $rows, opt => \%opt &>
</TBODY>

% if ( $opt{'footer'} ) {
<TFOOT>
<& SELF:footer_row, row => $opt{'footer'}, opt => \%opt &>
</TFOOT> 
% } 
</TABLE>
</%method>
<%method header_row>
<%args>
@sort_fields
@header
@header2 => ()
</%args>
  <TR>
% my $h2 = 0;
% my $colspan = 0;
% my $order_by = $cgi->param('order_by');
% my $self_url = $cgi->url('-path_info' => 1, '-full' =>1);
% foreach my $header ( @header ) { 
%
%   my $field = shift @sort_fields;
%
%   $colspan-- if $colspan > 0;
%   next if $colspan;
%
%   my $label = ref($header) ? $header->{label} : $header;
%   unless ( ref($field) || !$field ) {
%     if ( $order_by eq $field ) {
%       $cgi->param('order_by', "$field DESC");
%     } else {
%       $cgi->param('order_by', $field);
%     }
%     $label = qq(<A HREF="$self_url?). $cgi->query_string.
%              qq(">$label</A>);
%   }
%
%   $colspan = ref($header) ? $header->{colspan} : 0;
%   my $rowspan = 1;
%   my $style = '';
%   if ( @header2 ) {
%     if ( !length($header2[$h2]) ) {
%       $rowspan = 2;
%       splice @header2, $h2, 1;
%     } else {
%       $h2++;
%       $style = 'STYLE="border-bottom: none"'
%     }
%   }
    <TH CLASS   = "grid"
        BGCOLOR = "#cccccc"
        ROWSPAN = "<% $rowspan %>"
        <% $colspan ? 'COLSPAN = "'.$colspan.'"' : '' %>
        <% $style %>

    >
      <% $label %>
    </TH>
% } 
  </TR>

% if ( @header2 ) {
  <TR>
%   foreach my $header ( @header2 ) { 
%     my $label = ref($header) ? $header->{label} : $header;
      <TH CLASS="grid" BGCOLOR="#cccccc">
        <FONT SIZE="-1"><% $label %></FONT>
      </TH>
%   } 
  </TR>
% }
</%method>
<%method data_rows>
<%args>
$rows => []
%opt
</%args>
% my %align = (
%   'l' => 'left',
%   'r' => 'right',
%   'c' => 'center',
%   ' ' => '',
%   '.' => '',
% );
% if ( $opt{align} and !ref($opt{align}) ) {
%   $opt{align} = [ map $align{$_}, split(//, $opt{align}) ];
% }

% my $i = 0; # for row striping # XXX CSS - nth-child
% my $id = 0;
% foreach my $row ( @$rows ) {
%
%   my $rowstyle = '';
%   if ( $row eq $opt{'footer_data'} ) { # XXX CSS - tfoot
%     $rowstyle = ' STYLE="border-top: dashed 1px black; font-style: italic background-color=#dddddd"';
%   }
%
%   my $trid = '';
%   if ( $opt{'link_field' } ) {
%     my $link_field = $opt{'link_field'};
%     if ( ref($link_field) eq 'CODE' ) {
%       $trid = &{$link_field}($row);
%     } else {
%       $trid = $row->$link_field();
%     }
%   }
    <TR ID="<%$trid |h%>" CLASS="row<% $i % 2 %>"<%$rowstyle%>>

%   if ( $opt{'fields'} ) {
%
%     my $links    = $opt{'links'} ? [ @{$opt{'links'}} ] : '';
%     my $onclicks = $opt{'link_onclicks'} ? [ @{$opt{'link_onclicks'}} ] : [];
%     my $tooltips = $opt{'tooltips'} ? [ @{$opt{'tooltips'}} ] : [];
%     my $aligns   = $opt{'align'} ? [ @{$opt{'align'}} ] : '';
%     my $colors   = $opt{'color'} ? [ @{$opt{'color'}} ] : [];
%     my $sizes    = $opt{'size'}  ? [ @{$opt{'size'}}  ] : [];
%     my $styles   = $opt{'style'} ? [ @{$opt{'style'}} ] : [];
%     my $cstyles  = $opt{'cell_style'} ? [ @{$opt{'cell_style'}} ] : [];
%     my $formats  = $opt{'format'} ? [ @{$opt{'format'}} ] : [];
%
%     foreach my $field (
%
%       # if the value of the field is an arrayref, then construct a table in
%       # the cell.
%       # if it's a (non-empty) scalar, and a format has been specified, then
%       # format the scalar with that.
%       # otherwise, just output the value.
%       # XXX we should also do date formats like this
%       map {
%             if ( ref($_) eq 'ARRAY' ) {
%
%               my $tableref = $_;
%
%               '<TABLE CLASS="inv" CELLSPACING=0 CELLPADDING=0 WIDTH="100%">'.
%
%               join('', map {
%
%                 my $rowref = $_;
%
%                 '<tr>'.
%
%                 join('', map {
%
%                   my $e = $_;
%
%                   '<TD '.
%                     join(' ', map {
%                       uc($_).'="'. $e->{$_}. '"';
%                     }
%                     grep exists($e->{$_}),
%                          qw( align bgcolor colspan rowspan
%                              style valign width )
%                     ).
%                   '>'.
%
%                   ( $e->{'link'}
%                       ? '<A HREF="'. $e->{'link'}. '">'
%                       : ''
%                   ).
%                   ( $e->{'onclick'} # don't use with 'link'
%                       ? '<A HREF="#" onclick="' .
%                         $e->{'onclick'}.'">'
%                       : ''
%                   ).
%                   ( $e->{'size'}
%                      ? '<FONT SIZE="'.uc($e->{'size'}).'">'
%                      : ''
%                   ).
%                   ( $e->{'data_style'}
%                       ? '<'. uc($e->{'data_style'}). '>'
%                       : ''
%                   ).
%                   $e->{'data'}.
%                   ( $e->{'data_style'}
%                       ? '</'. uc($e->{'data_style'}). '>'
%                       : ''
%                   ).
%                   ( $e->{'size'} ? '</FONT>' : '' ).
%                   ( $e->{'link'} || $e->{'onclick'} 
%                       ? '</A>'
%                       : '' ).
%                   '</td>';
%
%                 } @$rowref ).
%
%                 '</tr>';
%               } @$tableref ).
%
%               '</table>';
%
%             } else {
%               if ( length($_) > 0 and my $format = shift @$formats ) {
%                 $_ = sprintf($format, $_);
%               }
%               $_;
%             }
%           }
%
%       # get the value of the field spec:
%       # - if the spec is a coderef, evaluate the coderef
%       # - if the spec is a string, call that string as a method
%       # - if the spec is an integer, get the field in that position
%       map {
%             if ( ref($_) eq 'CODE' ) {
%               &{$_}($row);
%             } elsif ( ref($row) eq 'ARRAY' and 
%                       $_ =~ /^\d+$/ ) {
%             # for the 'straight SQL' case: specify fields
%             # by position
%               encode_entities($row->[$_]);
%             } else {
%               encode_entities($row->$_());
%             }
%           }
%       @{$opt{'fields'}}
%
%     ) {
%
%       my $class = ( $field =~ /^<TABLE/i ) ? 'inv' : 'grid';
%       my $class = 'grid';
%
%       my $align = $aligns ? shift @$aligns : '';
%       $align = " ALIGN=$align" if $align;
%
%       my $a = '';
%       if ( $links ) {
%         my $link = shift @$links;
%         my $onclick = shift @$onclicks;
%         my $tooltip = shift @$tooltips;
%
%         if (    ! $opt{'agent_virt'}
%              || ( $opt{'null_link'} && ! $row->agentnum )
%              || grep { $row->agentnum == $_ }
%                      @{ $opt{link_agentnums} }
%            ) {
%
%           $link = &{$link}($row)
%             if ref($link) eq 'CODE';
%
%           $onclick = &{$onclick}($row)
%             if ref($onclick) eq 'CODE';
%           $onclick = qq( onClick="$onclick") if $onclick;
%
%           $tooltip = &{$tooltip}($row)
%             if ref($tooltip) eq 'CODE';
%           $tooltip = qq! id="a$id" !.
%             qq! onmouseover="return overlib(!.
%             $m->interp->apply_escapes($tooltip, 'h', 'js_string').
%             qq!, FGCLASS, 'tooltip', REF, 'a$id', !.
%             qq!REFC, 'LL', REFP, 'UL')"! if $tooltip;
%
%           if ( $link ) {
%             my( $url, $method ) = @{$link};
%             if ( ref($method) eq 'CODE' ) {
%               $a = $url. &{$method}($row);
%             } else {
%               $a = $url. $row->$method();
%             }
%             $a = qq(<A HREF="$a"$onclick$tooltip>);
%           }
%           elsif ( $onclick ) {
%             $a = qq(<A HREF="javascript:void(0);"$onclick>);
%           }
%           elsif ( $tooltip ) {
%             $a = qq(<A $tooltip>);
%           }
%           $id++;

%         }
%
%       }
%
%       my $font = '';
%       my $color = shift @$colors;
%       $color = &{$color}($row) if ref($color) eq 'CODE';
%       my $size = shift @$sizes;
%       $size = &{$size}($row) if ref($size) eq 'CODE';
%       if ( $color || $size ) {
%         $font = '<FONT '.
%                 ( $color ? "COLOR=#$color "   : '' ).
%                 ( $size  ? qq(SIZE="$size" )  : '' ).
%                 '>';
%       }
%
%       my($s, $es) = ( '', '' );
%       my $style = shift @$styles;
%       $style = &{$style}($row) if ref($style) eq 'CODE';
%       if ( $style ) {
%         $s = join( '', map "<$_>", split('', $style) );
%         $es = join( '', map "</$_>", split('', $style) );
%       }
%
%       my $cstyle = shift @$cstyles;
%       $cstyle = &{$cstyle}($row) if ref($cstyle) eq 'CODE';
%       $cstyle = qq(STYLE="$cstyle")
%         if $cstyle;

        <TD CLASS="<% $class %>" <% $align %> <% $cstyle %>><% $a %><% $font %><% $s %><% $field %><% $es %><% $font ? '</FONT>' : '' %><% $a ? '</A>' : '' %></TD>

%     } 
%
%   } else { # not $opt{'fields'}
%
%     foreach ( @$row ) { 
        <TD CLASS="grid"><% $_ %></TD>
%     }
%
%   }

    </TR>

%   $i++;
%
% } # foreach $row
</%method>
<%method footer_row>
<%args>
$row
%opt
</%args>
%# don't try to respect all the styling options, just the ones that are
%# hard to replicate with CSS
% my %align = (
%   'l' => 'left',
%   'r' => 'right',
%   'c' => 'center',
%   ' ' => '',
%   '.' => '',
% );
% if ( $opt{align} and !ref($opt{align}) ) {
%   $opt{align} = [ map $align{$_}, split(//, $opt{align}) ];
% }
% my @aligns = @{ $opt{align} };

<TR>
% foreach my $footer ( @$row ) {
%   $footer = &{$footer}() if ref($footer) eq 'CODE';
%   my $align = shift @aligns;
%   my $style = '';
%   $style .= "text-align: $align;" if $align;
    <TD CLASS="grid" STYLE="<% $style %>"><% $footer %></TD>
% } 
</TR>
</%method>