s/referral/advertising source/

yes, the name sucks.  got a better one?

6 files changed, 38 insertions, 34 deletions

diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm
index 9eb569f96..b59b0d1ac 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 3f0af4b8e..23885dffd 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.
diff --git a/httemplate/browse/part_referral.cgi b/httemplate/browse/part_referral.cgi
index 76cc22659..bbae8d008 100755
--- a/httemplate/browse/part_referral.cgi
+++ b/httemplate/browse/part_referral.cgi
@@ -1,12 +1,12 @@
 <!-- mason kludge -->
 <%
 
-print header("Referral Listing", menubar(
+print header("Advertising source Listing", menubar(
   'Main Menu' => $p,
 #  'Add new referral' => "../edit/part_referral.cgi",
 )), "Where a customer heard about your service. Tracked for informational purposes.<BR><BR>", &table(), <<END;
       <TR>
-        <TH COLSPAN=2>Referral</TH>
+        <TH COLSPAN=2>Advertising source</TH>
       </TR>
 END
 
@@ -27,7 +27,7 @@ END
 
 print <<END;
       <TR>
-        <TD COLSPAN=2><A HREF="${p}edit/part_referral.cgi"><I>Add a new referral</I></A></TD>
+        <TD COLSPAN=2><A HREF="${p}edit/part_referral.cgi"><I>Add a new advertising source</I></A></TD>
       </TR>
     </TABLE>
     </CENTER>
diff --git a/httemplate/docs/admin.html b/httemplate/docs/admin.html
index 17cd62a92..0093fd2b7 100755
--- a/httemplate/docs/admin.html
+++ b/httemplate/docs/admin.html
@@ -34,12 +34,12 @@
   <li>After creating a new agent type, you must create an agent.  Click on
   <u>View/Edit agents</u> and <u>Add a new agent</u>.
 
-  <li>Set up at least one referral.  Referrals will help you keep track of how
-  effective your advertising is, by helping you keep track of where customers
-  heard of your service offerings.  You must create at least one referral.  If
-  you do not wish to use the referral functionality, simply create a single
-  referral only.  Click on <u>View/Edit referrals</u> and <u>Add a new
-  referral</u>.
+  <li>Set up at least one Advertising source.  Advertising sources will help
+  you keep track of how effective your advertising is, tracking where customers
+  heard of your service offerings.  You must create at least one advertising 
+  source.  If you do not wish to use the referral functionality, simply create
+  a single advertising source only.  Click on <u>View/Edit advertising
+  sources</u> and <u>Add a new advertising source</u>.
 
   <li>Click on <u>New Customer</u> and create a new customer for your system
   accounts with billing type <b>Complimentary</b>.  
diff --git a/httemplate/edit/part_referral.cgi b/httemplate/edit/part_referral.cgi
index 73be9e337..617f5dfca 100755
--- a/httemplate/edit/part_referral.cgi
+++ b/httemplate/edit/part_referral.cgi
@@ -17,9 +17,9 @@ my $action = $part_referral->refnum ? 'Edit' : 'Add';
 my $hashref = $part_referral->hashref;
 
 my $p1 = popurl(1);
-print header("$action Referral", menubar(
+print header("$action Advertising source", menubar(
   'Main Menu' => popurl(2),
-  'View all referrals' => popurl(2). "browse/part_referral.cgi",
+  'View all advertising sources' => popurl(2). "browse/part_referral.cgi",
 ));
 
 print qq!<FONT SIZE="+1" COLOR="#ff0000">Error: !, $cgi->param('error'),
@@ -32,13 +32,11 @@ print qq!<INPUT TYPE="hidden" NAME="refnum" VALUE="$hashref->{refnum}">!,
       "Referral #", $hashref->{refnum} ? $hashref->{refnum} : "(NEW)";
 
 print <<END;
-<PRE>
-Referral   <INPUT TYPE="text" NAME="referral" SIZE=32 VALUE="$hashref->{referral}">
-</PRE>
+Advertising source <INPUT TYPE="text" NAME="referral" SIZE=32 VALUE="$hashref->{referral}">
 END
 
 print qq!<BR><INPUT TYPE="submit" VALUE="!,
-      $hashref->{refnum} ? "Apply changes" : "Add referral",
+      $hashref->{refnum} ? "Apply changes" : "Add advertising source",
       qq!">!;
 
 print <<END;
diff --git a/httemplate/index.html b/httemplate/index.html
index 4558a3289..c44b8e3db 100644
--- a/httemplate/index.html
+++ b/httemplate/index.html
@@ -175,7 +175,7 @@
           <LI><A HREF="browse/agent.cgi">View/Edit agents</A>
             - Agents are resellers of your service.  Agents may be limited
               to a subset of your full offerings (via their type).
-          <LI><A HREF="browse/part_referral.cgi">View/Edit referrals</A>
+          <LI><A HREF="browse/part_referral.cgi">View/Edit advertising sources</A>
             - Where a customer heard about your service.  Tracked for
               informational purposes.
           <LI><A HREF="browse/cust_main_county.cgi">View/Edit locales and tax rates</A>