FS/FS/part_pkg/flat_comission_cust.pm

   1 package FS::part_pkg::flat_comission_cust;
   2
   3 use strict;
   4 use vars qw(@ISA %info);
   5 #use FS::Record qw(qsearch qsearchs);
   6 use FS::part_pkg::flat;
   7
   8 @ISA = qw(FS::part_pkg::flat);
   9
  10 %info = (
  11   'name' => 'Flat rate with recurring commission per active customer',
  12   'shortname' => 'Commission per active customer',
  13   'inherit_fields' => [ 'flat_comission', 'global_Mixin' ],
  14   'fields' => { },
  15   'fieldorder' => [ ],
  16   #'setup' => 'what.setup_fee.value',
  17   #'recur' => '\'my $error = $cust_pkg->cust_main->credit( \' + what.comission_amount.value + \' * scalar($cust_pkg->cust_main->referral_cust_main_ncancelled(\' + what.comission_depth.value+ \')), "commission" ); die $error if $error; \' + what.recur_fee.value + \';\'',
  18   'weight' => '60',
  19 );
  20
  21 sub calc_recur {
  22   my($self, $cust_pkg ) = @_;
  23
  24   my $amount = $self->option('comission_amount');
  25   my $num_active = scalar(
  26     $cust_pkg->cust_main->referral_cust_main_ncancelled(
  27       $self->option('comission_depth')
  28     )
  29   );
  30
  31   if ( $amount && $num_active ) {
  32     my $error =
  33       $cust_pkg->cust_main->credit( $amount*$num_active, "commission",
  34                                     'reason_type'=>$self->option('reason_type'),
  35                                   );
  36     die $error if $error;
  37   }
  38
  39   $self->option('recur_fee');
  40 }
  41
  42 sub can_discount { 0; }
  43
  44 1;