+sub contact {
+ my $self = shift;
+ qsearchs( 'contact', { 'contactnum' => $self->contactnum } );
+}
+
+sub phone_type {
+ my $self = shift;
+ qsearchs('phone_type', { 'phonetypenum' => $self->phonetypenum } );
+}
+
+sub typename {
+ my $self = shift;
+ $self->phone_type->typename;
+}
+