diff options
author | ivan <ivan> | 2011-03-11 00:45:53 +0000 |
---|---|---|
committer | ivan <ivan> | 2011-03-11 00:45:53 +0000 |
commit | fced2ed0147049fded427862a3517c172f86513e (patch) | |
tree | d719e4d1a86921802056e09c3ce41ab217734f5a /FS/FS | |
parent | a46d6ebede6bab9d05b054e82004e07ea8aabbb5 (diff) |
prospect qualifications default to prospect address if there's one, other UI cleanups RT#7111
Diffstat (limited to 'FS/FS')
-rw-r--r-- | FS/FS/prospect_main.pm | 20 |
1 files changed, 15 insertions, 5 deletions
diff --git a/FS/FS/prospect_main.pm b/FS/FS/prospect_main.pm index 369029bab..bace1f040 100644 --- a/FS/FS/prospect_main.pm +++ b/FS/FS/prospect_main.pm @@ -41,14 +41,13 @@ from FS::Record. The following fields are currently supported: primary key -=item company - -company +=item agentnum -=item locationnum +Agent -locationnum +=item company +company =back @@ -222,6 +221,17 @@ sub contact { qsearch( 'contact', { 'prospectnum' => $self->prospectnum } ); } +=item cust_location + +Returns the locations (see L<FS::cust_location>) associated with this prospect. + +=cut + +sub cust_location { + my $self = shift; + qsearch( 'cust_location', { 'prospectnum' => $self->prospectnum } ); +} + =item search HASHREF (Class method) |