);
}
+=item num_ordered_cust_main
+
+Returns the number of ordered customers for this agent (customers with packages
+ordered, but not yet billed).
+
+=cut
+
+sub num_ordered_cust_main {
+ shift->num_sql(FS::cust_main->ordered_sql);
+}
+
+=item active_cust_main
+
+Returns the active customers for this agent, as cust_main objects.
+
+=cut
+
+sub active_cust_main {
+ shift->cust_main_sql(FS::cust_main->active_sql);
+}
+
+
=item num_active_cust_main
Returns the number of active customers for this agent (customers with active
<TR>
<TH ALIGN="right" WIDTH="40%">
+ <FONT COLOR="#009999">
+ <% my $num_ordered = $agent->num_ordered_cust_main %>
+ </FONT>
+ </TH>
+
+ <TD>
+% if ( $num_ordered ) {
+
+ <A HREF="<% $cust_main_link %>&ordered=1">
+% }
+ordered
+% if ($num_ordered ) {
+</A>
+% }
+
+ <TD>
+ </TR>
+
+ <TR>
+ <TH ALIGN="right" WIDTH="40%">
<FONT COLOR="#00CC00">
<% my $num_active = $agent->num_active_cust_main %>
</FONT>
</TD>
</TR>
+ <!--ordered-->
+ <TR>
+ <TD> </TD>
+ </TR>
+
<TR>
<TH ALIGN="right" WIDTH="40%">
<FONT COLOR="#00CC00">
push @qual, FS::cust_main->cancel_sql if $cgi->param('cancelled');
push @qual, FS::cust_main->prospect_sql if $cgi->param('prospect');
+ push @qual, FS::cust_main->ordered_sql if $cgi->param('ordered');
push @qual, FS::cust_main->active_sql if $cgi->param('active');
push @qual, FS::cust_main->inactive_sql if $cgi->param('inactive');
push @qual, FS::cust_main->susp_sql if $cgi->param('suspended');