fix adding a new location on a quotation, RT#73236

diff --git a/httemplate/edit/process/quick-cust_pkg.cgi b/httemplate/edit/process/quick-cust_pkg.cgi
index 6a346e0..3f1984f 100644 (file)
--- a/httemplate/edit/process/quick-cust_pkg.cgi
+++ b/httemplate/edit/process/quick-cust_pkg.cgi
@@ -191,8 +191,8 @@ if ( $quotationnum ) {
 
   if ( $locationnum == -1 ) {
     my $cust_location = FS::cust_location->new({
-      'custnum'     => $custnum,
-      'prospectnum' => $prospectnum,
+      'custnum'     => $cust_main ? $cust_main->custnum : '',
+      'prospectnum' => $prospect_main ? $prospect_main->prospectnum : '',
       map { $_ => scalar($cgi->param($_)) }
         FS::cust_main->location_fields
     });