[freeside-commits] freeside/FS/FS/part_event/Condition cust_bill_has_noauto.pm, NONE, 1.1 cust_bill_hasnt_noauto.pm, NONE, 1.1

Ivan,,, ivan at wavetail.420.am
Thu Mar 18 00:59:54 PDT 2010


Update of /home/cvs/cvsroot/freeside/FS/FS/part_event/Condition
In directory wavetail.420.am:/tmp/cvs-serv20243/FS/FS/part_event/Condition

Added Files:
	cust_bill_has_noauto.pm cust_bill_hasnt_noauto.pm 
Log Message:
disable auto-billing of specific customer packages, RT#6378

--- NEW FILE: cust_bill_has_noauto.pm ---
package FS::part_event::Condition::cust_bill_has_noauto;

use strict;
use FS::cust_bill;

use base qw( FS::part_event::Condition );

sub description {
  'Invoice ineligible for automatic collection';
}

sub eventtable_hashref {
    { 'cust_main' => 0,
      'cust_bill' => 1,
      'cust_pkg'  => 0,
    };
}

sub condition {
  #my($self, $cust_bill, %opt) = @_;
  my($self, $cust_bill) = @_;

  $cust_bill->no_auto;
}

#sub condition_sql {
#  my( $class, $table ) = @_;
#  
#  my $sql = qq|  |;
#  return $sql;
#}

1;

--- NEW FILE: cust_bill_hasnt_noauto.pm ---
package FS::part_event::Condition::cust_bill_hasnt_noauto;

use strict;
use FS::cust_bill;

use base qw( FS::part_event::Condition );

sub description {
  'Invoice eligible for automatic collection';
}

sub eventtable_hashref {
    { 'cust_main' => 0,
      'cust_bill' => 1,
      'cust_pkg'  => 0,
    };
}

sub condition {
  #my($self, $cust_bill, %opt) = @_;
  my($self, $cust_bill) = @_;

  ! $cust_bill->no_auto;
}

#sub condition_sql {
#  my( $class, $table ) = @_;
#  
#  my $sql = qq|  |;
#  return $sql;
#}

1;



More information about the freeside-commits mailing list