X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=fs_signup%2Ffs_signup_server;fp=fs_signup%2Ffs_signup_server;h=36af40a5717d3f48b6b128b8f4dfccd1a40c7ed8;hp=e0fa9ba5fb5eefccfe2500a55ab15b85eeefdb96;hb=c35cabf3a4100f03b62800e3894077eb6a3df349;hpb=a7ac7ab3af0dd4f9773aec7c59515fefc8eaedec 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 ), } );