X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fpart_event%2FCondition%2Fhas_pkgpart.pm;h=5505a99c5749f6788d1a66779805269134e1e30e;hb=38e8bacd564b497854017c54dff8ebc0abe2cb33;hp=c54b7e256ac3ecad80e6b886fb8560bf718d7284;hpb=fb4ab1073f0d15d660c6cdc4e07afebf68ef3924;p=freeside.git diff --git a/FS/FS/part_event/Condition/has_pkgpart.pm b/FS/FS/part_event/Condition/has_pkgpart.pm index c54b7e256..5505a99c5 100644 --- a/FS/FS/part_event/Condition/has_pkgpart.pm +++ b/FS/FS/part_event/Condition/has_pkgpart.pm @@ -1,10 +1,9 @@ package FS::part_event::Condition::has_pkgpart; +use base qw( FS::part_event::Condition ); use strict; -use base qw( FS::part_event::Condition ); - -sub description { 'Customer has uncancelled package of specified definitions'; } +sub description { 'Customer has uncancelled specific package(s)'; } sub eventtable_hashref { { 'cust_main' => 1, @@ -27,7 +26,6 @@ sub condition { my $cust_main = $self->cust_main($object); - #XXX test my $if_pkgpart = $self->option('if_pkgpart') || {}; grep $if_pkgpart->{ $_->pkgpart }, $cust_main->ncancelled_pkgs;