typo adding agentnum setting possibility...

diff --git a/fs_signup/FS-SignupClient/Makefile.PL b/fs_signup/FS-SignupClient/Makefile.PL
index 208e850..e740519 100644 (file)
--- 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',
     '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 de269e1..0a6cbfb 100644 (file)
--- 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
   ) };
 
     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;
 
   nstore_fd($signup_data, \*SOCK) or die "can't send customer signup: $!";
   SOCK->flush;