X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fareacode.pm;h=b6defa2fca5b3bb3d954ed12289e9b58b771c6db;hp=58b498c09b296528242b24dbf8210041e93f1d09;hb=674cb2d9d7105f4cc2871539b2e9f7088cdaa750;hpb=e3a2ca0a7ef6e0931283136321ba8c1494b37c19

diff --git a/FS/FS/areacode.pm b/FS/FS/areacode.pm
index 58b498c09..b6defa2fc 100644
--- a/FS/FS/areacode.pm
+++ b/FS/FS/areacode.pm
@@ -25,27 +25,20 @@ FS::areacode - Object methods for areacode records
 
 =head1 DESCRIPTION
 
-An FS::areacode object represents an example.  FS::areacode inherits from
+An FS::areacode object represents an area code.  FS::areacode inherits from
 FS::Record.  The following fields are currently supported:
 
 =over 4
 
-=item code 
+=item areanum - primary key
 
-area code (primary key)
+=item code - area code
 
-=item country
+=item country - two-letter country code
 
-two-letter country code
-
-=item state
-
-two-letter state code, if appropriate
-
-=item description
-
-description (optional)
+=item state - two-letter state code, if appropriate
 
+=item description - description (optional)
 
 =back
 
@@ -92,7 +85,8 @@ sub check {
   my $self = shift;
 
   my $error = 
-    $self->ut_number('code')
+    $self->ut_numbern('areanum')
+    || $self->ut_number('code')
     || $self->ut_text('country')
     || $self->ut_textn('state')
     || $self->ut_textn('description')