X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fsvc_phone.pm;h=90ba249456896f3a8ca9432e8b90c8c073a3f0b8;hb=5756baa126e1a349ee1296aba887fc4f3c68e22b;hp=8e39b9f10546a997b8af71b5c971861d94734418;hpb=633c48448d9468690b7ad77eb6ff7c660a286658;p=freeside.git

diff --git a/FS/FS/svc_phone.pm b/FS/FS/svc_phone.pm
index 8e39b9f10..90ba24945 100644
--- a/FS/FS/svc_phone.pm
+++ b/FS/FS/svc_phone.pm
@@ -74,11 +74,13 @@ sub table_info {
         'countrycode' => { label => 'Country code',
                            type  => 'text',
                            disable_inventory => 1,
+                           disable_select => 1,
                          },
         'phonenum'    => 'Phone number',
         'pin'         => { label => 'Personal Identification Number',
                            type  => 'text',
                            disable_inventory => 1,
+                           disable_select => 1,
                          },
     },
   };
@@ -173,6 +175,18 @@ sub check {
   $self->SUPER::check;
 }
 
+=item check_pin
+
+Checks the supplied PIN against the PIN in the database.  Returns true for a
+sucessful authentication, false if no match.
+
+=cut
+
+sub check_pin {
+  my($self, $check_pin) = @_;
+  $check_pin eq $self->pin;
+}
+
 =back
 
 =head1 BUGS