stray closing /TABLE in the no-ticket case

[freeside.git] / FS / FS / contact_phone.pm

diff --git a/FS/FS/contact_phone.pm b/FS/FS/contact_phone.pm
index 7ba8523..46d6a9b 100644 (file)
--- a/FS/FS/contact_phone.pm
+++ b/FS/FS/contact_phone.pm
@@ -1,8 +1,7 @@
 package FS::contact_phone;
 package FS::contact_phone;

+use base qw( FS::Record );

 
 use strict;
 
 use strict;

-use base qw( FS::Record );
-use FS::Record qw( qsearch qsearchs );

 
 =head1 NAME
 
 
 =head1 NAME
 


@@ -25,8 +24,8 @@ FS::contact_phone - Object methods for contact_phone records
 
 =head1 DESCRIPTION
 
 
 =head1 DESCRIPTION
 

-An FS::contact_phone object represents an example.  FS::contact_phone inherits from
-FS::Record.  The following fields are currently supported:
+An FS::contact_phone object represents a contatct's phone number.
+FS::contact_phone inherits from FS::Record.  The following fields are currently supported:

 
 =over 4
 
 
 =over 4
 


@@ -63,15 +62,14 @@ extension
 
 =item new HASHREF
 
 
 =item new HASHREF
 

-Creates a new example.  To add the example to the database, see L<"insert">.
+Creates a new phone number.  To add the phone number to the database, see
+L<"insert">.

 
 Note that this stores the hash reference, not a distinct copy of the hash it
 points to.  You can ask the object for a copy with the I<hash> method.
 
 =cut
 
 
 Note that this stores the hash reference, not a distinct copy of the hash it
 points to.  You can ask the object for a copy with the I<hash> method.
 
 =cut
 

-# the new method can be inherited from FS::Record, if a table method is defined
-

 sub table { 'contact_phone'; }
 
 =item insert
 sub table { 'contact_phone'; }
 
 =item insert


@@ -79,38 +77,23 @@ sub table { 'contact_phone'; }
 Adds this record to the database.  If there is an error, returns the error,
 otherwise returns false.
 
 Adds this record to the database.  If there is an error, returns the error,
 otherwise returns false.
 

-=cut
-
-# the insert method can be inherited from FS::Record
-

 =item delete
 
 Delete this record from the database.
 
 =item delete
 
 Delete this record from the database.
 

-=cut
-
-# the delete method can be inherited from FS::Record
-

 =item replace OLD_RECORD
 
 Replaces the OLD_RECORD with this one in the database.  If there is an error,
 returns the error, otherwise returns false.
 
 =item replace OLD_RECORD
 
 Replaces the OLD_RECORD with this one in the database.  If there is an error,
 returns the error, otherwise returns false.
 

-=cut
-
-# the replace method can be inherited from FS::Record
-

 =item check
 
 =item check
 

-Checks all fields to make sure this is a valid example.  If there is
+Checks all fields to make sure this is a valid phone number.  If there is

 an error, returns the error, otherwise returns false.  Called by the insert
 and replace methods.
 
 =cut
 
 an error, returns the error, otherwise returns false.  Called by the insert
 and replace methods.
 
 =cut
 

-# the check method should currently be supplied - FS::Record contains some
-# data checking routines
-

 sub check {
   my $self = shift;
 
 sub check {
   my $self = shift;
 


@@ -154,13 +137,18 @@ sub phonenum_pretty {
 
 }
 
 
 }
 

+sub typename {
+  my $self = shift;
+  $self->phone_type->typename;
+}
+

 =back
 
 =head1 BUGS
 
 =head1 SEE ALSO
 
 =back
 
 =head1 BUGS
 
 =head1 SEE ALSO
 

-L<FS::Record>, schema.html from the base documentation.
+L<FS::contact>, L<FS::Record>

 
 =cut
 
 
 =cut