projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
apply discount to setup fees, part 1 of 2, RT11512
[freeside.git]
/
FS
/
FS
/
prospect_main.pm
diff --git
a/FS/FS/prospect_main.pm
b/FS/FS/prospect_main.pm
index
079ad25
..
5a4048f
100644
(file)
--- a/
FS/FS/prospect_main.pm
+++ b/
FS/FS/prospect_main.pm
@@
-8,6
+8,7
@@
use FS::Record qw( dbh qsearch ); #qsearchs );
use FS::agent;
use FS::cust_location;
use FS::contact;
use FS::agent;
use FS::cust_location;
use FS::contact;
+use FS::qual;
$DEBUG = 0;
$DEBUG = 0;
@@
-221,7
+222,7
@@
sub name {
my $contact = ($self->contact)[0]; #first contact? good enough for now
return $contact->line if $contact;
my $contact = ($self->contact)[0]; #first contact? good enough for now
return $contact->line if $contact;
- $self->prospectnum;
+
'Prospect #'.
$self->prospectnum;
}
=item contact
}
=item contact
@@
-246,6
+247,18
@@
sub cust_location {
qsearch( 'cust_location', { 'prospectnum' => $self->prospectnum } );
}
qsearch( 'cust_location', { 'prospectnum' => $self->prospectnum } );
}
+=item qual
+
+Returns the qualifications (see L<FS::qual>) associated with this prospect.
+
+=cut
+
+sub qual {
+ my $self = shift;
+ qsearch( 'qual', { 'prospectnum' => $self->prospectnum } );
+}
+
+
=item search HASHREF
(Class method)
=item search HASHREF
(Class method)