X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;ds=sidebyside;f=FS%2FFS%2Fpart_event%2FCondition%2Freferred_cust.pm;h=7099e184a13d3a3f8bac8a677fe5ae8dbfccffac;hb=e51c6fef1d3ae307c14c1c488f167d9eae2a93a7;hp=7555bdeb985535d7591893f2cc68f062e4d2b144;hpb=adc8618023c553aaa81bdd7acd25dc86d8867eb4;p=freeside.git

diff --git a/FS/FS/part_event/Condition/referred_cust.pm b/FS/FS/part_event/Condition/referred_cust.pm
index 7555bdeb9..7099e184a 100644
--- a/FS/FS/part_event/Condition/referred_cust.pm
+++ b/FS/FS/part_event/Condition/referred_cust.pm
@@ -34,7 +34,7 @@ sub condition {
   if ( keys %$if_pkg_class ) {
     @referral_cust_main = grep {
       my $cust = $_;
-      grep $if_pkg_class{$_->part_pkg->classnum}, $cust->active_pkgs;
+      grep $if_pkg_class->{$_->part_pkg->classnum}, $cust->active_pkgs;
     } @referral_cust_main;
   }