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   #'name' => 'Prepaid (no automatic recurring)', #maybe use it here too
  18   'shortname' => 'Prepaid, no automatic cycle',
  19   'fields' => {
  20     'setup_fee'   =>  { 'name' => 'One-time setup fee for this package',
  21                         'default' => 0,
  22                       },
  23     'recur_fee'   =>  { 'name' => 'Initial and recharge fee for this package',
  24                         'default' => 0,
  25                       },
  26     'recur_action' => { 'name' => 'Action to take upon reaching end of prepaid preiod',
  27                         'type' => 'select',
  28                         'select_options' => \%recur_action,
  29                       },
  30   },
  31   'fieldorder' => [ 'setup_fee', 'recur_fee', 'recur_action', ],
  32   'weight' => 25,
  33 );
  34
  35 sub is_prepaid {
  36   1;
  37 }
  38
  39 1;
  40