FS/FS/part_event/Action/Mixin/credit_flat.pm


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

package FS::part_event::Action::Mixin::credit_flat;

# credit_flat: return a fixed amount for _calc_credit, specified in the 
# options

use strict;

sub option_fields {
  (
    'reasonnum' => { 'label'        => 'Credit reason',
                     'type'         => 'select-reason',
                     'reason_class' => 'R',
                   },
    'amount'    => { 'label'        => 'Credit amount',
                     'type'         => 'money',
                   },
  );
}

sub _calc_credit {
  my $self = shift;
  $self->option('amount');
}

1;