projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
bd070d6
)
fix v3 prospect->customer conversion, RT#31965, RT#31202
author
Ivan Kohler
<ivan@freeside.biz>
Thu, 8 Jan 2015 17:00:37 +0000
(09:00 -0800)
committer
Ivan Kohler
<ivan@freeside.biz>
Thu, 8 Jan 2015 17:00:37 +0000
(09:00 -0800)
FS/FS/prospect_main.pm
patch
|
blob
|
history
diff --git
a/FS/FS/prospect_main.pm
b/FS/FS/prospect_main.pm
index
7ae15cd
..
79b3f67
100644
(file)
--- a/
FS/FS/prospect_main.pm
+++ b/
FS/FS/prospect_main.pm
@@
-4,6
+4,7
@@
use base qw( FS::Quotable_Mixin FS::o2m_Common FS::Record );
use strict;
use vars qw( $DEBUG @location_fields );
use Scalar::Util qw( blessed );
use strict;
use vars qw( $DEBUG @location_fields );
use Scalar::Util qw( blessed );
+use FS::Conf;
use FS::Record qw( dbh qsearch ); # qsearchs );
use FS::cust_location;
use FS::cust_main;
use FS::Record qw( dbh qsearch ); # qsearchs );
use FS::cust_location;
use FS::cust_main;
@@
-327,6
+328,9
@@
sub convert_cust_main {
( map { $_ => $self->$_ } qw( agentnum refnum company ) ),
};
( map { $_ => $self->$_ } qw( agentnum refnum company ) ),
};
+ $cust_main->refnum( FS::Conf->new->config('referraldefault') || 1 )
+ unless $cust_main->refnum;
+
#XXX again, arbitrary, if one contact was "billing", that would be better
if ( $contact[0] ) {
$cust_main->set($_, $contact[0]->get($_)) foreach qw( first last );
#XXX again, arbitrary, if one contact was "billing", that would be better
if ( $contact[0] ) {
$cust_main->set($_, $contact[0]->get($_)) foreach qw( first last );