diff options
author | ivan <ivan> | 2000-01-28 22:49:28 +0000 |
---|---|---|
committer | ivan <ivan> | 2000-01-28 22:49:28 +0000 |
commit | 5e39e2d7963d6f8304e5afb5d8b5f50aa6eaaf14 (patch) | |
tree | 44d33f11b35026ed97e02a6e3188c032ad0387f0 /fs_signup/FS-SignupClient/SignupClient.pm | |
parent | 7fa1271c9e0be6e154aa12d31466109407bb03b4 (diff) |
full phone number
Diffstat (limited to 'fs_signup/FS-SignupClient/SignupClient.pm')
-rw-r--r-- | fs_signup/FS-SignupClient/SignupClient.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/fs_signup/FS-SignupClient/SignupClient.pm b/fs_signup/FS-SignupClient/SignupClient.pm index d3118467b..7c96609f6 100644 --- a/fs_signup/FS-SignupClient/SignupClient.pm +++ b/fs_signup/FS-SignupClient/SignupClient.pm @@ -133,12 +133,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 +203,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.2 2000-01-28 22:49:28 ivan Exp $ =head1 BUGS |