add "Ordered" status to customer number/link on agent browse, RT#27442

1 files changed, 22 insertions, 0 deletions

diff --git a/FS/FS/agent.pm b/FS/FS/agent.pm
index b476847c5..0fdc5f542 100644
--- a/FS/FS/agent.pm
+++ b/FS/FS/agent.pm
@@ -419,6 +419,28 @@ sub cust_main_sql {
   );
 }
 
+=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