1 package FS::part_event::Action::Mixin::credit_flat;
3 # credit_flat: return a fixed amount for _calc_credit, specified in the
10 'reasonnum' => { 'label' => 'Credit reason',
11 'type' => 'select-reason',
12 'reason_class' => 'R',
14 'amount' => { 'label' => 'Credit amount',
22 my $warnref = $_[2]; #other input not used by credit_flat
23 my $warning = $self->option('amount') ? '' : 'Amount set to zero ';
24 $$warnref .= $warning if ref($warnref);
25 return $self->option('amount');