FS/FS/part_pkg/prorate_delayed.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

package FS::part_pkg::prorate_delayed;
use base qw( FS::part_pkg::delayed_Mixin FS::part_pkg::prorate );

use strict;
use vars qw(%info);

%info = (
  'name' => 'Free (or setup fee) for X days, then prorate, then flat-rate ' .
         '(1st of month billing)',
  'shortname' => 'Prorate (Nth of month billing), with intro period', #??
  'inherit_fields' => [qw( global_Mixin delayed_Mixin )],
  'fields' =>  {
    #shouldn't this be inherited from somewhere?
    'suspend_bill' => { 'name' => 'Continue recurring billing while suspended',
                        'type' => 'checkbox',
                      },
  },
  'fieldorder' => [ 'suspend_bill', ],
  'weight' => 22,
);

1;