X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fhardware_type.pm;h=844ea13a81b0df1f386c28e43fe5f671312440f6;hp=f19a3f683f28ef5eaa677c54ca83803fd6aa25cd;hb=HEAD;hpb=825422583d2d510c0f552c513bef4cc1ac921950

diff --git a/FS/FS/hardware_type.pm b/FS/FS/hardware_type.pm
index f19a3f683..844ea13a8 100644
--- a/FS/FS/hardware_type.pm
+++ b/FS/FS/hardware_type.pm
@@ -1,8 +1,7 @@
 package FS::hardware_type;
+use base qw( FS::Record );
 
 use strict;
-use base qw( FS::Record );
-use FS::Record qw( qsearch qsearchs );
 
 =head1 NAME
 
@@ -26,7 +25,7 @@ FS::hardware_type - Object methods for hardware_type records
 =head1 DESCRIPTION
 
 An FS::hardware_type object represents a device type (a model name or 
-number) assignable as a hardware service (L<FS::svc_hardware)>).
+number) assignable as a hardware service (L<FS::svc_hardware>).
 FS::hardware_type inherits from FS::Record.  The following fields are 
 currently supported:
 
@@ -41,6 +40,8 @@ to which this device type belongs.
 
 =item revision - revision name/number, subordinate to model
 
+=item title - external ID
+
 =back
 
 =head1 METHODS
@@ -105,6 +106,7 @@ sub check {
     || $self->ut_foreign_key('classnum', 'hardware_class', 'classnum')
     || $self->ut_text('model')
     || $self->ut_textn('revision')
+    || $self->ut_textn('title')
   ;
   return $error if $error;
 
@@ -115,13 +117,6 @@ sub check {
 
 Returns the L<FS::hardware_class> associated with this device.
 
-=cut
-
-sub hardware_class {
-  my $self = shift;
-  return qsearchs('hardware_class', { 'classnum' => $self->classnum });
-}
-
 =item description
 
 Returns the model and revision number.