From fd981fae382743704e39df5a32f69a06ab317258 Mon Sep 17 00:00:00 2001 From: ivan Date: Wed, 17 Apr 2002 11:17:02 +0000 Subject: [PATCH] typo adding agentnum setting possibility... --- fs_signup/FS-SignupClient/Makefile.PL | 7 +++++++ fs_signup/FS-SignupClient/SignupClient.pm | 2 +- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/fs_signup/FS-SignupClient/Makefile.PL b/fs_signup/FS-SignupClient/Makefile.PL index 208e8507a..e74051947 100644 --- a/fs_signup/FS-SignupClient/Makefile.PL +++ b/fs_signup/FS-SignupClient/Makefile.PL @@ -8,4 +8,11 @@ WriteMakefile( 'INSTALLSCRIPT' => '/usr/local/sbin', 'INSTALLSITEBIN' => '/usr/local/sbin', 'PERM_RWX' => '750', + 'PREREQ_PM' => { + 'Business::CreditCard' => 0, + 'HTTP::BrowserDetect' => 0, + 'HTTP::Headers::UserAgent' => 3, + 'Storable' => 0, + 'Text::Template' => 0, + }, ); diff --git a/fs_signup/FS-SignupClient/SignupClient.pm b/fs_signup/FS-SignupClient/SignupClient.pm index de269e1c5..0a6cbfba2 100644 --- a/fs_signup/FS-SignupClient/SignupClient.pm +++ b/fs_signup/FS-SignupClient/SignupClient.pm @@ -164,7 +164,7 @@ sub new_customer { referral_custnum pkgpart username _password sec_phrase popnum ) }; - $signup_data->{agentnum} = $hashref->{agentnum} if $hashref->{agentnum} + $signup_data->{agentnum} = $hashref->{agentnum} if $hashref->{agentnum}; nstore_fd($signup_data, \*SOCK) or die "can't send customer signup: $!"; SOCK->flush; -- 2.11.0