FS/FS/part_pkg/flat_delayed.pm

   1 package FS::part_pkg::flat_delayed;
   2 use base qw(FS::part_pkg::delayed_Mixin FS::part_pkg::flat );
   3
   4 use strict;
   5 use vars qw(%info);
   6
   7 %info = (
   8   'name' => 'Free (or setup fee) for X days, then flat rate'.
   9             ' (anniversary billing)',
  10   'shortname' => 'Anniversary, 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' => 12,
  20 );
  21
  22 1;