projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix discounts not appearing for one-time charge packages, RT#13654
[freeside.git]
/
FS
/
FS
/
prospect_main.pm
diff --git
a/FS/FS/prospect_main.pm
b/FS/FS/prospect_main.pm
index
78e865a
..
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;
@@
-203,7
+204,7
@@
sub check {
my $error =
$self->ut_numbern('prospectnum')
|| $self->ut_foreign_key('agentnum', 'agent', 'agentnum' )
my $error =
$self->ut_numbern('prospectnum')
|| $self->ut_foreign_key('agentnum', 'agent', 'agentnum' )
- || $self->ut_text('company')
+ || $self->ut_text
n
('company')
;
return $error if $error;
;
return $error if $error;
@@
-216,7
+217,12
@@
sub check {
sub name {
my $self = shift;
sub name {
my $self = shift;
- $self->company; #at least until this is nullable
+ return $self->company if $self->company;
+
+ my $contact = ($self->contact)[0]; #first contact? good enough for now
+ return $contact->line if $contact;
+
+ 'Prospect #'. $self->prospectnum;
}
=item contact
}
=item contact
@@
-241,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)