From 9a34cb208f355e2046580232eb731b00deac4b89 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Fri, 28 Jan 2000 22:56:13 +0000
Subject: [PATCH] track full phone number

---
 FS/FS/svc_acct_pop.pm          |  5 ++++-
 bin/fs-setup                   |  9 ++++++---
 htdocs/browse/svc_acct_pop.cgi | 10 ++++++++--
 3 files changed, 18 insertions(+), 6 deletions(-)

diff --git a/FS/FS/svc_acct_pop.pm b/FS/FS/svc_acct_pop.pm
index a64adb25a..5e755ef73 100644
--- a/FS/FS/svc_acct_pop.pm
+++ b/FS/FS/svc_acct_pop.pm
@@ -42,6 +42,8 @@ inherits from FS::Record.  The following fields are currently supported:
 
 =item exch - exchange
 
+=item loc - rest of number
+
 =back
 
 =head1 METHODS
@@ -87,6 +89,7 @@ sub check {
       or $self->ut_text('state')
       or $self->ut_number('ac')
       or $self->ut_number('exch')
+      or $self->ut_numbern('loc')
   ;
 
 }
@@ -95,7 +98,7 @@ sub check {
 
 =head1 VERSION
 
-$Id: svc_acct_pop.pm,v 1.1 1999-08-04 09:03:53 ivan Exp $
+$Id: svc_acct_pop.pm,v 1.2 2000-01-28 22:55:06 ivan Exp $
 
 =head1 BUGS
 
diff --git a/bin/fs-setup b/bin/fs-setup
index aae9c5739..6ba07e897 100755
--- a/bin/fs-setup
+++ b/bin/fs-setup
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -Tw
 #
-# $Id: fs-setup,v 1.19 1999-07-29 08:50:35 ivan Exp $
+# $Id: fs-setup,v 1.20 2000-01-28 22:53:33 ivan Exp $
 #
 # ivan@sisd.com 97-nov-8,9
 #
@@ -32,7 +32,10 @@
 # fix radius attributes ivan@sisd.com 98-sep-27
 #
 # $Log: fs-setup,v $
-# Revision 1.19  1999-07-29 08:50:35  ivan
+# Revision 1.20  2000-01-28 22:53:33  ivan
+# track full phone number
+#
+# Revision 1.19  1999/07/29 08:50:35  ivan
 # wrong type for cust_pay_batch.exp
 #
 # Revision 1.18  1999/04/15 22:46:30  ivan
@@ -591,7 +594,7 @@ sub tables_hash_hack {
         'state',     'varchar',   '',   $char_d,
         'ac',        'char',   '',   3,
         'exch',      'char',   '',   3,
-        #rest o' number?
+        'loc',       'char',   'NULL',   4, #NULL for legacy purposes
       ],
       'primary_key' => 'popnum',
       'unique' => [ [] ],
diff --git a/htdocs/browse/svc_acct_pop.cgi b/htdocs/browse/svc_acct_pop.cgi
index 1ddbcdc2e..8094a9fd1 100755
--- a/htdocs/browse/svc_acct_pop.cgi
+++ b/htdocs/browse/svc_acct_pop.cgi
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -Tw
 #
-# $Id: svc_acct_pop.cgi,v 1.7 1999-04-09 04:22:34 ivan Exp $
+# $Id: svc_acct_pop.cgi,v 1.8 2000-01-28 22:56:13 ivan Exp $
 #
 # ivan@sisd.com 98-mar-8
 #
@@ -10,7 +10,10 @@
 # lose background, FS::CGI ivan@sisd.com 98-sep-2
 #
 # $Log: svc_acct_pop.cgi,v $
-# Revision 1.7  1999-04-09 04:22:34  ivan
+# Revision 1.8  2000-01-28 22:56:13  ivan
+# track full phone number
+#
+# Revision 1.7  1999/04/09 04:22:34  ivan
 # also table()
 #
 # Revision 1.6  1999/04/09 03:52:55  ivan
@@ -55,6 +58,7 @@ print $cgi->header( '-expires' => 'now' ), header('POP Listing', menubar(
         <TH>State</TH>
         <TH>Area code</TH>
         <TH>Exchange</TH>
+        <TH>Local</TH>
       </TR>
 END
 
@@ -74,6 +78,8 @@ foreach $svc_acct_pop ( sort {
           $hashref->{ac}</A></TD>
         <TD><A HREF="${p}edit/svc_acct_pop.cgi?$hashref->{popnum}">
           $hashref->{exch}</A></TD>
+        <TD><A HREF="${p}edit/svc_acct_pop.cgi?$hashref->{popnum}">
+          $hashref->{loc}</A></TD>
       </TR>
 END
 
-- 
2.11.0