X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=fs_signup%2FFS-SignupClient%2FSignupClient.pm;h=5769c18fcf27f6828097654481e18178076e26f8;hb=51984ac3d3da3006809c6866fdecd4ad83610731;hp=d3118467ba140acff921d233124a5df825794eb8;hpb=76b34eacaaa4237ef73b24a028a01b45020d77b3;p=freeside.git

diff --git a/fs_signup/FS-SignupClient/SignupClient.pm b/fs_signup/FS-SignupClient/SignupClient.pm
index d3118467b..5769c18fc 100644
--- a/fs_signup/FS-SignupClient/SignupClient.pm
+++ b/fs_signup/FS-SignupClient/SignupClient.pm
@@ -4,6 +4,7 @@ use strict;
 use vars qw($VERSION @ISA @EXPORT_OK $fs_signupd_socket);
 use Exporter;
 use Socket;
+use FileHandle;
 use IO::Handle;
 
 $VERSION = '0.01';
@@ -133,12 +134,14 @@ sub signup_info {
     chop ( my $state  = <SOCK> ); 
     chop ( my $ac     = <SOCK> );
     chop ( my $exch   = <SOCK> );
+    chop ( my $loc    = <SOCK> );
     {
       'popnum' => $popnum,
       'city'   => $city,
       'state'  => $state,
       'ac'     => $ac,
       'exch'   => $exch,
+      'loc'    => $loc,
     };
   } 1 .. $n_svc_acct_pop;
 
@@ -201,7 +204,7 @@ sub new_customer {
 
 =head1 VERSION
 
-$Id: SignupClient.pm,v 1.1 1999-08-24 07:56:38 ivan Exp $
+$Id: SignupClient.pm,v 1.3 2000-02-02 07:44:00 ivan Exp $
 
 =head1 BUGS