FS/FS/part_event/Condition/pkg_recurring.pm

   1 package FS::part_event::Condition::pkg_recurring;
   2
   3 use strict;
   4
   5 use base qw( FS::part_event::Condition );
   6
   7 sub description { 'Package is recurring'; }
   8
   9 sub eventtable_hashref {
  10     { 'cust_main' => 0,
  11       'cust_bill' => 0,
  12       'cust_pkg'  => 1,
  13     };
  14 }
  15
  16 sub condition {
  17   my( $self, $cust_pkg ) = @_;
  18
  19   $cust_pkg->part_pkg->freq !~ /^0+\D?$/; #just in case, probably just != '0'
  20
  21 }
  22
  23 sub condition_sql {
  24   FS::cust_pkg->recurring_sql()
  25 }
  26
  27 1;
  28