FS/FS/part_pkg/prepaid.pm

   1 package FS::part_pkg::prepaid;
   2
   3 use strict;
   4 use vars qw(@ISA %info %recur_action);
   5 use Tie::IxHash;
   6 use FS::part_pkg::flat;
   7
   8 @ISA = qw(FS::part_pkg::flat);
   9
  10 tie %recur_action, 'Tie::IxHash',
  11   'suspend' => 'suspend',
  12   'cancel'  => 'cancel',
  13 ;
  14
  15 %info = (
  16   'name' => 'Prepaid, flat rate',
  17   'fields' => {
  18     'setup_fee'   =>  { 'name' => 'One-time setup fee for this package',
  19                         'default' => 0,
  20                       },
  21     'recur_fee'   =>  { 'name' => 'Initial and recharge fee for this package',
  22                         'default' => 0,
  23                       },
  24     'recur_action' => { 'name' => 'Action to take upon reaching end of prepaid preiod',
  25                         'type' => 'select',
  26                         'select_options' => \%recur_action,
  27                       },
  28   },
  29   'fieldorder' => [ 'setup_fee', 'recur_fee', 'recur_action', ],
  30   'weight' => 25,
  31 );
  32
  33 sub is_prepaid {
  34   1;
  35 }
  36
  37 1;
  38