'payname' => $payname,
'invoicing_list' => $invoicing_list,
'referral_custnum' => $referral_custnum,
+ 'comments' => $comments,
'pkgpart' => $pkgpart,
'username' => $username,
'_password' => $password,
payname
invoicing_list
referral_custnum
+ comments
pkgpart
username
_password
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};
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 );
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');
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
),
} );