FS/FS/part_pkg/flat_delayed.pm

   1 package FS::part_pkg::flat_delayed;
   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);
   9
  10 %info = (
  11     'name' => 'Free (or setup fee) for X days, then flat rate'.
  12               ' (anniversary billing)',
  13     'fields' =>  {
  14       'setup_fee' => { 'name' => 'Setup fee for this package',
  15                        'default' => 0,
  16                      },
  17       'free_days' => { 'name' => 'Initial free days',
  18                        'default' => 0,
  19                      },
  20       'recur_fee' => { 'name' => 'Recurring fee for this package',
  21                        'default' => 0,
  22                       },
  23     },
  24     'fieldorder' => [ 'free_days', 'setup_fee', 'recur_fee' ],
  25     #'setup' => '\'my $d = $cust_pkg->bill || $time; $d += 86400 * \' + what.free_days.value + \'; $cust_pkg->bill($d); $cust_pkg_mod_flag=1; \' + what.setup_fee.value',
  26     #'recur' => 'what.recur_fee.value',
  27     'weight' => 50,
  28 );
  29
  30 sub calc_setup {
  31   my($self, $cust_pkg, $time ) = @_;
  32
  33   my $d = $cust_pkg->bill || $time;
  34   $d += 86400 * $self->option('free_days');
  35   $cust_pkg->bill($d);
  36
  37   $self->option('setup_fee');
  38 }
  39
  40 sub calc_recur {
  41   my($self, $cust_pkg ) = @_;
  42   $self->option('recur_fee');
  43 }
  44
  45 1;