-%
+%die "access denied"
+% unless $FS::CurrentUser::CurrentUser->access_right('List customers');
%
%my $conf = new FS::Conf;
%my $maxrecords = $conf->config('maxsearchrecordsperpage');
% }
%
% if ( $cgi->param('otaker_on') ) {
+% die "access denied"
+% unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
% $cgi->param('otaker') =~ /^(\w{1,32})$/ or eidiot "Illegal otaker\n";
% $search{otaker} = $1;
% } elsif ( $cgi->param('agentnum_on') ) {
% if ( $cgi->param('search_cust') ) {
% $sortby = \*company_sort;
% $orderby = "ORDER BY LOWER(company || ' ' || last || ' ' || first )";
-% warn "smart searching for: ". $cgi->param('search_cust');
% push @cust_main, smart_search( 'search' => $cgi->param('search_cust') );
% }
%
<% $total %> matching customers found
-%
-% #begin pager
-% my $pager = '';
-% if ( $total != scalar(@cust_main) && $maxrecords ) {
-% unless ( $offset == 0 ) {
-% $cgi->param('offset', $offset - $maxrecords);
-% $pager .= '<A HREF="'. $cgi->self_url.
-% '"><B><FONT SIZE="+1">Previous</FONT></B></A> ';
-% }
-% my $poff;
-% my $page;
-% for ( $poff = 0; $poff < $total; $poff += $maxrecords ) {
-% $page++;
-% if ( $offset == $poff ) {
-% $pager .= qq!<FONT SIZE="+2">$page</FONT> !;
-% } else {
-% $cgi->param('offset', $poff);
-% $pager .= qq!<A HREF="!. $cgi->self_url. qq!">$page</A> !;
-% }
-% }
-% unless ( $offset + $maxrecords > $total ) {
-% $cgi->param('offset', $offset + $maxrecords);
-% $pager .= '<A HREF="'. $cgi->self_url.
-% '"><B><FONT SIZE="+1">Next</FONT></B></A> ';
-% }
-% }
-% #end pager
+
+% my $pager = include( '/elements/pager.html',
+% 'offset' => $offset,
+% 'num_rows' => scalar(@cust_main),
+% 'total' => $total,
+% 'maxrecords' => $maxrecords,
+% );
%
% unless ( $cgi->param('cancelled') ) {
% if ( $cgi->param('showcancelledcustomers') eq '0' #see if it was set by me
%
% print "<BR><BR>". $pager. include('/elements/table-grid.html'). <<END;
% <TR>
-% <TH CLASS="grid" BGCOLOR="#cccccc"></TH>
+% <TH CLASS="grid" BGCOLOR="#cccccc">#</TH>
+% <TH CLASS="grid" BGCOLOR="#cccccc">Status</TH>
% <TH CLASS="grid" BGCOLOR="#cccccc">(bill) name</TH>
% <TH CLASS="grid" BGCOLOR="#cccccc">company</TH>
%END
% ? qq!<A HREF="$view"><FONT SIZE=-1>$company</FONT></A>!
% : '<FONT SIZE=-1> </FONT>';
%
-
+% my $status = $cust_main->status;
+% my $statuscol = $FS::cust_main::statuscolor{$status};
<TR>
- <TD CLASS="grid" BGCOLOR="<% $bgcolor %>" ROWSPAN=<% $rowspan || 1 %>><A HREF="<% $view %>"><FONT SIZE=-1><% $custnum %></FONT></A></TD>
+ <TD CLASS="grid" ALIGN="right" BGCOLOR="<% $bgcolor %>" ROWSPAN=<% $rowspan || 1 %>><A HREF="<% $view %>"><FONT SIZE=-1><% $custnum %></FONT></A></TD>
+ <TD CLASS="grid" ALIGN="center" BGCOLOR="<% $bgcolor %>" ROWSPAN=<% $rowspan || 1 %>><FONT SIZE=-1 COLOR=<% $statuscol %>><B><% ucfirst($status) %></B></FONT></TD>
<TD CLASS="grid" BGCOLOR="<% $bgcolor %>" ROWSPAN=<% $rowspan || 1 %>><A HREF="<% $view %>"><FONT SIZE=-1><% "$last, $first" %></FONT></A></TD>
<TD CLASS="grid" BGCOLOR="<% $bgcolor %>" ROWSPAN=<% $rowspan || 1 %>><% $pcompany %></TD>
%
% my($label, $value, $svcdb) = $cust_svc->label;
% my($svcnum) = $cust_svc->svcnum;
% my($sview) = $p.'view';
-% print $n2,qq!<TD CLASS="grid" BGCOLOR="$bgcolor" ><A HREF="$sview/$svcdb.cgi?$svcnum"><FONT SIZE=-1>$label</FONT></A></TD>!,
-% qq!<TD CLASS="grid" BGCOLOR="$bgcolor" ><A HREF="$sview/$svcdb.cgi?$svcnum"><FONT SIZE=-1>$value</FONT></A></TD>!;
+% print $n2,
+% qq!<TD CLASS="grid" BGCOLOR="$bgcolor" >!. FS::UI::Web::svc_link($m, $cust_svc->part_svc, $cust_svc) . qq!</TD> !.
+% qq!<TD CLASS="grid" BGCOLOR="$bgcolor" >!. FS::UI::Web::svc_label_link($m, $cust_svc->part_svc, $cust_svc) . qq!</TD> !;
% $n2="</TR><TR>";
% }
%
%
% \@cust_main;
%}
-%
-%
-