diff options
Diffstat (limited to 'FS')
| -rw-r--r-- | FS/FS/ClientAPI/Signup.pm | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/FS/FS/ClientAPI/Signup.pm b/FS/FS/ClientAPI/Signup.pm index df276f049..e11a47a06 100644 --- a/FS/FS/ClientAPI/Signup.pm +++ b/FS/FS/ClientAPI/Signup.pm @@ -1295,7 +1295,15 @@ sub new_prospect { 'title' => $title, }); if (!$part_referral) { - return { error => "Unknown referral type: '$title'" }; + $part_referral = FS::part_referral->new({ + 'agentnum' => $agentnum, + 'title' => $title, + 'referral' => $title, + }); + $error = $part_referral->insert; + if ( $error ) { + warn "ERROR: could not create referral type '$title': $error\n"; + } } $refnum = $part_referral->refnum; } elsif ( $packet->{refnum} ) { @@ -1344,9 +1352,8 @@ sub new_prospect { } $location->set('country', $country); $location->set('state', $state); - $prospect->set('cust_location', $location); - $error ||= $prospect->insert; # also does location + $error ||= $prospect->insert( cust_location => $location ); return { error => $error } if $error; my $contact = FS::contact->new({ |