fix redefinition warning and add ordered_cust_main sub for completeness, RT#27442

1 files changed, 5 insertions, 4 deletions

diff --git a/FS/FS/agent.pm b/FS/FS/agent.pm
index fcb5c24ff..9f85c61c4 100644
--- a/FS/FS/agent.pm
+++ b/FS/FS/agent.pm
@@ -421,14 +421,15 @@ sub num_ordered_cust_main {
   shift->num_sql(FS::cust_main->ordered_sql);
 }
 
-=item active_cust_main
+=item ordered_cust_main
 
-Returns the active customers for this agent, as cust_main objects.
+Returns the ordered customers for this agent (customers with packages ordered,
+but not yet billed), as cust_main objects.
 
 =cut
 
-sub active_cust_main {
-  shift->cust_main_sql(FS::cust_main->active_sql);
+sub ordered_cust_main {
+  shift->cust_main_sql(FS::cust_main->ordered_sql);
 }