projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
add advertising source selection and display to prospect report
[freeside.git]
/
FS
/
FS
/
prospect_main.pm
diff --git
a/FS/FS/prospect_main.pm
b/FS/FS/prospect_main.pm
index
1c47a80
..
a6b593d
100644
(file)
--- a/
FS/FS/prospect_main.pm
+++ b/
FS/FS/prospect_main.pm
@@
-11,6
+11,7
@@
use FS::cust_location;
use FS::cust_main;
use FS::contact;
use FS::qual;
use FS::cust_main;
use FS::contact;
use FS::qual;
+use FS::part_referral;
$DEBUG = 0;
$DEBUG = 0;
@@
-323,6
+324,17
@@
sub agent {
qsearchs( 'agent', { 'agentnum' => $self->agentnum } );
}
qsearchs( 'agent', { 'agentnum' => $self->agentnum } );
}
+=item part_referral
+
+Returns the advertising source (see L<FS::part_referral>) for this customer.
+
+=cut
+
+sub part_referral {
+ my $self = shift;
+ qsearchs( 'part_referral', { 'refnum' => $self->refnum } );
+}
+
=item convert_cust_main
Converts this prospect to a customer.
=item convert_cust_main
Converts this prospect to a customer.
@@
-394,15
+406,18
@@
sub search {
my @where = ();
my $orderby;
my @where = ();
my $orderby;
- ##
- # parse agent
- ##
-
+ #agent
if ( $params->{'agentnum'} =~ /^(\d+)$/ and $1 ) {
push @where,
"prospect_main.agentnum = $1";
}
if ( $params->{'agentnum'} =~ /^(\d+)$/ and $1 ) {
push @where,
"prospect_main.agentnum = $1";
}
+ #refnum
+ if ( $params->{'refnum'} =~ /^(\d+)$/ and $1 ) {
+ push @where,
+ "prospect_main.refnum = $1";
+ }
+
##
# setup queries, subs, etc. for the search
##
##
# setup queries, subs, etc. for the search
##