svc_hardware: better error messages for bad hw_addr when not validating as a MAC...

[freeside.git] / FS / FS / part_pkg_usage.pm

diff --git a/FS/FS/part_pkg_usage.pm b/FS/FS/part_pkg_usage.pm
index 99014d3..b19c63d 100644 (file)
--- 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
@@ -117,7 +116,7 @@ sub check {
   my $error = 
     $self->ut_numbern('pkgusagepart')
     || $self->ut_foreign_key('pkgpart', 'part_pkg', 'pkgpart')
-    || $self->ut_number('minutes')
+    || $self->ut_float('minutes')
     || $self->ut_numbern('priority')
     || $self->ut_flag('shared')
     || $self->ut_flag('rollover')
@@ -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') };