- my @cust_pkg = grep { ( $allpkgs || $if_pkgpart{ $_->pkgpart } )
- && $_->part_pkg->freq
- #can remove after fixing discount bug with non-monthly pkgs
- && ( $_->part_pkg->freq =~ /^\d+$/) }
- $cust_main->unsuspended_pkgs;
- return 'No qualifying packages' unless @cust_pkg;
+
+ my @cust_pkg = ();
+ if ( $object->table eq 'cust_pkg' ) {
+
+ return 'Package is suspended' if $object->susp;
+ return 'Package not selected'
+ if ! $allpkgs && ! $if_pkgpart{ $object->pkgpart };
+ return 'Package frequency not monthly or a multiple'
+ if $object->part_pkg->freq !~ /^\d+$/;
+
+ @cust_pkg = ( $object );
+
+ } else {
+
+ @cust_pkg = grep { ( $allpkgs || $if_pkgpart{ $_->pkgpart } )
+ && $_->part_pkg->freq
+ #remove after fixing discount bug with non-monthly pkgs
+ && ( $_->part_pkg->freq =~ /^\d+$/) }
+ $cust_main->unsuspended_pkgs;
+ return 'No qualifying packages' unless @cust_pkg;
+
+ }