+%><%= include( 'elements/search.html',
+ 'title' => 'Package Search Results',
+ 'name' => 'packages',
+ 'query' => $sql_query,
+ 'count_query' => $count_query,
+ 'redirect' => $link,
+ 'header' => [ '#',
+ 'Package',
+ 'Status',
+ 'Freq.',
+ 'Setup',
+ 'Last bill',
+ 'Next bill',
+ 'Susp.',
+ 'Expire',
+ 'Cancel',
+ FS::UI::Web::cust_header(),
+ 'Services',
+ ],
+ 'fields' => [
+ 'pkgnum',
+ sub { my $part_pkg = $part_pkg{shift->pkgpart};
+ $part_pkg->pkg; # ' - '. $part_pkg->comment;
+ },
+ sub { ucfirst(shift->status); },
+ sub { #shift->part_pkg->freq_pretty;
+ my $part_pkg = $part_pkg{shift->pkgpart};
+ $part_pkg->freq_pretty;
+ },
+
+ #sub { time2str('%b %d %Y', shift->setup); },
+ #sub { time2str('%b %d %Y', shift->last_bill); },
+ #sub { time2str('%b %d %Y', shift->bill); },
+ #sub { time2str('%b %d %Y', shift->susp); },
+ #sub { time2str('%b %d %Y', shift->expire); },
+ #sub { time2str('%b %d %Y', shift->get('cancel')); },
+ ( map { time_or_blank($_) }
+ qw( setup last_bill bill susp expire cancel ) ),
+
+ \&FS::UI::Web::cust_fields,
+ #sub { '<table border=0 cellspacing=0 cellpadding=0 STYLE="border:none">'.
+ # join('', map { '<tr><td align="right" style="border:none">'. $_->[0].
+ # ':</td><td style="border:none">'. $_->[1]. '</td></tr>' }
+ # shift->labels
+ # ).
+ # '</table>';
+ # },
+ sub {
+ [ map {
+ [
+ { 'data' => $_->[0]. ':',
+ 'align'=> 'right',
+ },
+ { 'data' => $_->[1],
+ 'align'=> 'left',
+ 'link' => $p. 'view/' .
+ $_->[2]. '.cgi?'. $_->[3],
+ },
+ ];
+ } shift->labels
+ ];
+ },
+ ],
+ 'color' => [
+ '',
+ '',
+ sub { shift->statuscolor; },
+ '',
+ '',
+ '',
+ '',
+ '',
+ '',
+ '',
+ ( map { '' } FS::UI::Web::cust_header() ),
+ '',
+ ],
+ 'style' => [ '', '', 'b' ],
+ 'size' => [ '', '', '-1', ],
+ 'align' => 'rlclrrrrrr',
+ 'links' => [
+ $link,
+ $link,
+ '',
+ '',
+ '',
+ '',
+ '',
+ '',
+ '',
+ '',
+ ( map { $clink } FS::UI::Web::cust_header() ),
+ '',
+ ],
+ )