diff options
author | steve <steve> | 2002-12-23 14:36:20 +0000 |
---|---|---|
committer | steve <steve> | 2002-12-23 14:36:20 +0000 |
commit | c35cabf3a4100f03b62800e3894077eb6a3df349 (patch) | |
tree | 6f85d2cb39534d66956dbfee171870cdcf47b63f /fs_signup | |
parent | a7ac7ab3af0dd4f9773aec7c59515fefc8eaedec (diff) |
added stuff for selfservice_server-quiet, signup_server-quiet, and
emailcancel messages.
signup server can set user's comment field.
Diffstat (limited to 'fs_signup')
-rw-r--r-- | fs_signup/FS-SignupClient/SignupClient.pm | 4 | ||||
-rwxr-xr-x | fs_signup/fs_signup_server | 9 |
2 files changed, 11 insertions, 2 deletions
diff --git a/fs_signup/FS-SignupClient/SignupClient.pm b/fs_signup/FS-SignupClient/SignupClient.pm index 0a6cbfba2..842064de6 100644 --- a/fs_signup/FS-SignupClient/SignupClient.pm +++ b/fs_signup/FS-SignupClient/SignupClient.pm @@ -56,6 +56,7 @@ FS::SignupClient - Freeside signup client API 'payname' => $payname, 'invoicing_list' => $invoicing_list, 'referral_custnum' => $referral_custnum, + 'comments' => $comments, 'pkgpart' => $pkgpart, 'username' => $username, '_password' => $password, @@ -141,6 +142,7 @@ a paramater with the following keys: payname invoicing_list referral_custnum + comments pkgpart username _password @@ -161,7 +163,7 @@ sub new_customer { my $signup_data = { map { $_ => $hashref->{$_} } qw( first last ss company address1 address2 city county state zip country daytime night fax payby payinfo paydate payname invoicing_list - referral_custnum pkgpart username _password sec_phrase popnum + referral_custnum comments pkgpart username _password sec_phrase popnum ) }; $signup_data->{agentnum} = $hashref->{agentnum} if $hashref->{agentnum}; diff --git a/fs_signup/fs_signup_server b/fs_signup/fs_signup_server index e0fa9ba5f..36af40a57 100755 --- a/fs_signup/fs_signup_server +++ b/fs_signup/fs_signup_server @@ -14,6 +14,8 @@ use FS::Conf; use FS::Record qw( qsearch qsearchs ); use FS::cust_main_county; use FS::cust_main; +use FS::cust_bill; +use FS::cust_pkg; use FS::Msgcat qw(gettext); use vars qw( $opt $Debug ); @@ -25,6 +27,11 @@ my $user = shift or die &usage; my $conf = new FS::Conf; +if ($conf->exists('signup_server-quiet')) { + $FS::cust_bill::quiet = 1; + $FS::cust_pkg::quiet = 1; +} + #my @payby = qw(CARD PREPAY); my @payby = $conf->config('signup_server-payby'); my $smtpmachine = $conf->config('smtpmachine'); @@ -136,7 +143,7 @@ while (1) { map { $_ => $signup_data->{$_} } qw( last first ss company address1 address2 city county state zip country - daytime night fax payby payinfo paydate payname referral_custnum + daytime night fax payby payinfo paydate payname referral_custnum comments ), } ); |