show location ID (if present) on wholesale agent bill, RT#30856

diff --git a/FS/FS/part_pkg/agent.pm b/FS/FS/part_pkg/agent.pm
index bc3c374..6391fc9 100644 (file)
--- a/FS/FS/part_pkg/agent.pm
+++ b/FS/FS/part_pkg/agent.pm
@@ -104,6 +104,10 @@ sub calc_recur {
 
         my $pkg_details = $cust_main->name_short. ': '; #name?
 
+        my $cust_location = $cust_pkg->cust_location;
+        $pkg_details .= $cust_location->locationname. ': '
+          if $cust_location->locationname;
+
         my $part_pkg = $cust_pkg->part_pkg;
 
         # + something to identify package... primary service probably