diff options
author | ivan <ivan> | 2002-03-27 05:36:10 +0000 |
---|---|---|
committer | ivan <ivan> | 2002-03-27 05:36:10 +0000 |
commit | 8ea299358401bea12bef7c2dd1841cef3cf45c20 (patch) | |
tree | e3d7255a60ed26f3b0f2e4564f5d0ff428fb79d7 /FS/FS | |
parent | 11f0302c9846fb763794f7383c3b1b65e6cb5d34 (diff) |
s/referral/advertising source/
yes, the name sucks. got a better one?
Diffstat (limited to 'FS/FS')
-rw-r--r-- | FS/FS/cust_main.pm | 6 | ||||
-rw-r--r-- | FS/FS/part_referral.pm | 36 |
2 files changed, 24 insertions, 18 deletions
diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm index 9eb569f..b59b0d1 100644 --- a/FS/FS/cust_main.pm +++ b/FS/FS/cust_main.pm @@ -99,7 +99,7 @@ FS::Record. The following fields are currently supported: =item agentnum - agent (see L<FS::agent>) -=item refnum - referral (see L<FS::part_referral>) +=item refnum - Advertising source (see L<FS::part_referral>) =item first - name @@ -531,14 +531,14 @@ sub check { || $self->ut_numbern('referral_custnum') ; #barf. need message catalogs. i18n. etc. - $error .= "Please select a referral." + $error .= "Please select a advertising source." if $error =~ /^Illegal or empty \(numeric\) refnum: /; return $error if $error; return "Unknown agent" unless qsearchs( 'agent', { 'agentnum' => $self->agentnum } ); - return "Unknown referral" + return "Unknown refnum" unless qsearchs( 'part_referral', { 'refnum' => $self->refnum } ); return "Unknown referring custnum ". $self->referral_custnum diff --git a/FS/FS/part_referral.pm b/FS/FS/part_referral.pm index 3f0af4b..23885df 100644 --- a/FS/FS/part_referral.pm +++ b/FS/FS/part_referral.pm @@ -27,26 +27,32 @@ FS::part_referral - Object methods for part_referral objects =head1 DESCRIPTION -An FS::part_referral represents a referral - where a customer heard of your -services. This can be used to track the effectiveness of a particular piece of -advertising, for example. FS::part_referral inherits from FS::Record. The -following fields are currently supported: +An FS::part_referral represents a advertising source - where a customer heard +of your services. This can be used to track the effectiveness of a particular +piece of advertising, for example. FS::part_referral inherits from FS::Record. +The following fields are currently supported: =over 4 =item refnum - primary key (assigned automatically for new referrals) -=item referral - Text name of this referral +=item referral - Text name of this advertising source =back +=head1 NOTE + +These were called B<referrals> before version 1.4.0 - the name was changed +so as not to be confused with the new customer-to-customer referrals. + =head1 METHODS =over 4 =item new HASHREF -Creates a new referral. To add the referral to the database, see L<"insert">. +Creates a new advertising source. To add the referral to the database, see +L<"insert">. =cut @@ -54,8 +60,8 @@ sub table { 'part_referral'; } =item insert -Adds this referral to the database. If there is an error, returns the error, -otherwise returns false. +Adds this advertising source to the database. If there is an error, returns +the error, otherwise returns false. =item delete @@ -76,9 +82,9 @@ returns the error, otherwise returns false. =item check -Checks all fields to make sure this is a valid referral. If there is an error, -returns the error, otherwise returns false. Called by the insert and replace -methods. +Checks all fields to make sure this is a valid advertising source. If there is +an error, returns the error, otherwise returns false. Called by the insert and +replace methods. =cut @@ -92,14 +98,14 @@ sub check { =back -=head1 VERSION - -$Id: part_referral.pm,v 1.1 1999-08-04 09:03:53 ivan Exp $ - =head1 BUGS The delete method is unimplemented. +`Advertising source'. Yes, it's a sucky name. The only other ones I could +come up with were "Marketing channel" and "Heard Abouts" and those are +definately both worse. + =head1 SEE ALSO L<FS::Record>, L<FS::cust_main>, schema.html from the base documentation. |