templates!!!

[freeside.git] / fs_signup / FS-SignupClient / SignupClient.pm

diff --git a/fs_signup/FS-SignupClient/SignupClient.pm b/fs_signup/FS-SignupClient/SignupClient.pm
index d311846..5769c18 100644 (file)
--- 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