From: ivan Date: Wed, 27 Mar 2002 05:36:10 +0000 (+0000) Subject: s/referral/advertising source/ X-Git-Tag: freeside_1_4_0_pre12~117 X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=8ea299358401bea12bef7c2dd1841cef3cf45c20 s/referral/advertising source/ yes, the name sucks. got a better one? --- 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) -=item refnum - referral (see L) +=item refnum - Advertising source (see L) =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 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, L, 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 @@ <% -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.

", &table(), < - Referral + Advertising source END @@ -27,7 +27,7 @@ END print < - Add a new referral + Add a new advertising source 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 @@
  • After creating a new agent type, you must create an agent. Click on View/Edit agents and Add a new agent. -
  • 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 View/Edit referrals and Add a new - referral. +
  • 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 View/Edit advertising + sources and Add a new advertising source.
  • Click on New Customer and create a new customer for your system accounts with billing type Complimentary. 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!Error: !, $cgi->param('error'), @@ -32,13 +32,11 @@ print qq!!, "Referral #", $hashref->{refnum} ? $hashref->{refnum} : "(NEW)"; print < -Referral - +Advertising source END print qq!
    {refnum} ? "Apply changes" : "Add advertising source", qq!">!; print <View/Edit agents - Agents are resellers of your service. Agents may be limited to a subset of your full offerings (via their type). -
  • View/Edit referrals +
  • View/Edit advertising sources - Where a customer heard about your service. Tracked for informational purposes.
  • View/Edit locales and tax rates