X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fhardware_type.pm;h=85473125cc86a86e7633b5edbb44c9d820391c8b;hp=ba19fcb21b1f221993be0b31fc2bd062f42ee3c7;hb=04f53daab621710db56b075e1aaf56e7c52f9ba9;hpb=b65b8096089410001dfbcd35f9a56f9405b9f5f1

diff --git a/FS/FS/hardware_type.pm b/FS/FS/hardware_type.pm
index ba19fcb21..85473125c 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
 
@@ -39,6 +38,10 @@ to which this device type belongs.
 
 =item model - descriptive model name or number
 
+=item revision - revision name/number, subordinate to model
+
+=item title - external ID
+
 =back
 
 =head1 METHODS
@@ -102,6 +105,8 @@ sub check {
     $self->ut_numbern('typenum')
     || $self->ut_foreign_key('classnum', 'hardware_class', 'classnum')
     || $self->ut_text('model')
+    || $self->ut_textn('revision')
+    || $self->ut_textn('title')
   ;
   return $error if $error;
 
@@ -112,11 +117,15 @@ sub check {
 
 Returns the L<FS::hardware_class> associated with this device.
 
+=item description
+
+Returns the model and revision number.
+
 =cut
 
-sub hardware_class {
+sub description {
   my $self = shift;
-  return qsearchs('hardware_class', { 'classnum' => $self->classnum });
+  $self->model . ($self->revision ? ' '.$self->revision : '');
 }
 
 =back