X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fhardware_class.pm;h=a76de0097ccba54600fb95a71feffa5c79815220;hp=073a97f88d221d6628a5ee3619687ce3ee82cd82;hb=a36e0f8a0f69349dafaa16d1d2d57dfb6e5dbc85;hpb=b5c4237a34aef94976bc343c8d9e138664fc3984

diff --git a/FS/FS/hardware_class.pm b/FS/FS/hardware_class.pm
index 073a97f88..a76de0097 100644
--- a/FS/FS/hardware_class.pm
+++ b/FS/FS/hardware_class.pm
@@ -1,8 +1,8 @@
 package FS::hardware_class;
+use base qw( FS::Record );
 
 use strict;
-use base qw( FS::Record );
-use FS::Record qw( qsearch qsearchs );
+use FS::Record qw( qsearch ); #qsearchs );
 
 =head1 NAME
 
@@ -112,7 +112,11 @@ Returns all L<FS::hardware_type> objects belonging to this class.
 
 sub hardware_type {
   my $self = shift;
-  return qsearch('hardware_type', { 'classnum' => $self->classnum });
+  qsearch({
+      table   => 'hardware_type',
+      hashref => { 'classnum' => $self->classnum },
+      order_by=> 'ORDER BY model, revision',
+  })
 }
 
 =back