projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Merge branch 'master' of git.freeside.biz:/home/git/freeside
[freeside.git]
/
FS
/
FS
/
ClientAPI
/
Signup.pm
diff --git
a/FS/FS/ClientAPI/Signup.pm
b/FS/FS/ClientAPI/Signup.pm
index
df276f0
..
e11a47a
100644
(file)
--- a/
FS/FS/ClientAPI/Signup.pm
+++ b/
FS/FS/ClientAPI/Signup.pm
@@
-1295,7
+1295,15
@@
sub new_prospect {
'title' => $title,
});
if (!$part_referral) {
'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} ) {
}
$refnum = $part_referral->refnum;
} elsif ( $packet->{refnum} ) {
@@
-1344,9
+1352,8
@@
sub new_prospect {
}
$location->set('country', $country);
$location->set('state', $state);
}
$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({
return { error => $error } if $error;
my $contact = FS::contact->new({