FS/FS/part_pkg/prorate_delayed.pm

   1 package FS::part_pkg::prorate_delayed;
   2 use base qw( FS::part_pkg::delayed_Mixin FS::part_pkg::prorate );
   3
   4 use strict;
   5 use vars qw(%info);
   6
   7 %info = (
   8   'name' => 'Free (or setup fee) for X days, then prorate, then flat-rate ' .
   9          '(1st of month billing)',
  10   'shortname' => 'Prorate (Nth of month billing), with intro period', #??
  11   'inherit_fields' => [qw( global_Mixin delayed_Mixin )],
  12   'fields' =>  {
  13     #shouldn't this be inherited from somewhere?
  14     'suspend_bill' => { 'name' => 'Continue recurring billing while suspended',
  15                         'type' => 'checkbox',
  16                       },
  17   },
  18   'fieldorder' => [ 'suspend_bill', ],
  19   'weight' => 22,
  20 );
  21
  22 1;