[freeside-commits] freeside/FS/FS prospect_main.pm,1.1,1.2

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory wavetail.420.am:/tmp/cvs-serv16759/FS/FS

Modified Files:
	prospect_main.pm 
Log Message:
prospect qualifications default to prospect address if there's one, other UI cleanups RT#7111

Index: prospect_main.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/prospect_main.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -w -d -r1.1 -r1.2
--- prospect_main.pm	28 Dec 2009 19:18:18 -0000	1.1
+++ prospect_main.pm	11 Mar 2011 00:45:51 -0000	1.2
@@ -41,14 +41,13 @@
 
 primary key
 
-=item company
-
-company
+=item agentnum
 
-=item locationnum
+Agent
 
-locationnum
+=item company
 
+company
 
 =back
 
@@ -222,6 +221,17 @@
   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)