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;
   7
   8 @ISA = qw(FS::part_pkg::flat);
   9
  10 %info = (
  11     'name' => 'Flat rate with recurring commission per active customer',
  12     'fields' => {
  13       'setup_fee' => { 'name' => 'Setup fee for this package',
  14                        'default' => 0,
  15                      },
  16       'recur_fee' => { 'name' => 'Recurring fee for this package',
  17                        'default' => 0,
  18                      },
  19       'comission_amount' => { 'name' => 'Commission amount per month (per active customer)',
  20                               'default' => 0,
  21                             },
  22       'comission_depth'  => { 'name' => 'Number of layers',
  23                               'default' => 1,
  24                             },
  25     },
  26     'fieldorder' => [ 'setup_fee', 'recur_fee', 'comission_depth', 'comission_amount' ],
  27     #'setup' => 'what.setup_fee.value',
  28     #'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 + \';\'',
  29     'weight' => '60',
  30 );
  31
  32 sub calc_recur {
  33   my($self, $cust_pkg ) = @_;
  34
  35   my $amount = $self->option('comission_amount');
  36   my $num_active = scalar(
  37     $cust_pkg->cust_main->referral_cust_pkgcust_main_ncancelled(
  38       $self->option('comission_depth')
  39     )
  40   );
  41
  42   my $error = $cust_pkg->cust_main->credit( $amount*$num_active, "commission" );
  43   die $error if $error;
  44
  45   $self->option('recur_fee');
  46 }
  47
  48 1;