X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fpart_event%2FAction%2FMixin%2Fcredit_agent_pkg_class.pm;h=cb61f1b77b145b55795025d11041febb539c984b;hb=81451a5988a5985a26101e2bb469679888c53e8f;hp=73d32e0a7e4e63cff57db8f8d456a54f8829886d;hpb=0af38652da3b3be7da2d35b048285ef6f2194e1a;p=freeside.git

diff --git a/FS/FS/part_event/Action/Mixin/credit_agent_pkg_class.pm b/FS/FS/part_event/Action/Mixin/credit_agent_pkg_class.pm
index 73d32e0a7..cb61f1b77 100644
--- a/FS/FS/part_event/Action/Mixin/credit_agent_pkg_class.pm
+++ b/FS/FS/part_event/Action/Mixin/credit_agent_pkg_class.pm
@@ -2,6 +2,7 @@ package FS::part_event::Action::Mixin::credit_agent_pkg_class;
 use base qw( FS::part_event::Action::Mixin::credit_pkg );
 
 use strict;
+use FS::Record qw(qsearchs);
 
 sub option_fields {
   my $class = shift;
@@ -15,7 +16,7 @@ sub _calc_credit_percent {
 
   my $agent_pkg_class = qsearchs( 'agent_pkg_class', {
     'agentnum' => $self->cust_main($cust_pkg)->agentnum,
-    'classnum' => $cust_pkg->classnum,
+    'classnum' => $cust_pkg->part_pkg->classnum,
   });
 
   $agent_pkg_class ? $agent_pkg_class->commission_percent : 0;