X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fpart_pkg_usage.pm;h=008a2a9336eb81ee4904493d41adbe24d45d4c1b;hb=79981f908752492b00cb4bdce3dceb0636fb81dd;hp=99014d3980d6127fbb25b680c2e8ee15bdfa53da;hpb=3d0a1bb06b895c5be6e3f0517d355442a6b1e125;p=freeside.git

diff --git a/FS/FS/part_pkg_usage.pm b/FS/FS/part_pkg_usage.pm
index 99014d398..008a2a933 100644
--- a/FS/FS/part_pkg_usage.pm
+++ b/FS/FS/part_pkg_usage.pm
@@ -1,8 +1,7 @@
 package FS::part_pkg_usage;
+use base qw( FS::m2m_Common FS::Record );
 
 use strict;
-use base qw( FS::m2m_Common FS::Record );
-use FS::Record qw( qsearch qsearchs );
 use Scalar::Util qw(blessed);
 
 =head1 NAME
@@ -138,10 +137,7 @@ pool.
 sub classnums {
   my $self = shift;
   if (!$self->get('classnums')) {
-    my $classnums = [
-      map { $_->classnum }
-      qsearch('part_pkg_usage_class', { 'pkgusagepart' => $self->pkgusagepart })
-    ];
+    my $classnums = [ map { $_->classnum } $self->part_pkg_usage_class ];
     $self->set('classnums', $classnums);
   }
   @{ $self->get('classnums') };