diff options
author | mark <mark> | 2012-02-16 02:13:00 +0000 |
---|---|---|
committer | mark <mark> | 2012-02-16 02:13:00 +0000 |
commit | 825422583d2d510c0f552c513bef4cc1ac921950 (patch) | |
tree | b48078d8a2347212fbb5ad8eb92c99c5782afb2b /FS/FS/hardware_type.pm | |
parent | a7edb84851d2238c7ec449483f5bd34e40813ccd (diff) |
svc_hardware revision number, #16266
Diffstat (limited to 'FS/FS/hardware_type.pm')
-rw-r--r-- | FS/FS/hardware_type.pm | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/FS/FS/hardware_type.pm b/FS/FS/hardware_type.pm index ba19fcb..f19a3f6 100644 --- a/FS/FS/hardware_type.pm +++ b/FS/FS/hardware_type.pm @@ -39,6 +39,8 @@ to which this device type belongs. =item model - descriptive model name or number +=item revision - revision name/number, subordinate to model + =back =head1 METHODS @@ -102,6 +104,7 @@ sub check { $self->ut_numbern('typenum') || $self->ut_foreign_key('classnum', 'hardware_class', 'classnum') || $self->ut_text('model') + || $self->ut_textn('revision') ; return $error if $error; @@ -119,6 +122,17 @@ sub hardware_class { return qsearchs('hardware_class', { 'classnum' => $self->classnum }); } +=item description + +Returns the model and revision number. + +=cut + +sub description { + my $self = shift; + $self->model . ($self->revision ? ' '.$self->revision : ''); +} + =back =head1 SEE ALSO |