package FS::hardware_type;
+use base qw( FS::Record );
use strict;
-use base qw( FS::Record );
-use FS::Record qw( qsearch qsearchs );
=head1 NAME
=item model - descriptive model name or number
+=item revision - revision name/number, subordinate to model
+
+=item title - external ID
+
=back
=head1 METHODS
$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;
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