eed0db7897
The signatures feature has been "experimental" since Perl 5.20 (May 2014), but expected to stay. After 8 years I'm ready to take the risk :) Have added Perl v5.28 (June 2018) as the minimum requirement, even though the current revbank should work with 5.20, to see if this bothers any users. Perl v5.28 is in Debian "buster", which is now oldstable.
27 lines
862 B
Perl
27 lines
862 B
Perl
#!perl
|
|
|
|
sub hook_deposit_methods($class, $message, $hash, @) {
|
|
$$message = <<"END";
|
|
|
|
Please type one of the following:
|
|
|
|
'iban': IBAN transfer (NL 69 ABNA 0431 1582 07)
|
|
'cash': Cash in the cash box
|
|
'reimburse': Reimbursement of expenses agreed upon in advance
|
|
Note: we require an invoice or receipt with this exact amount!
|
|
'other': Provide a manual description
|
|
END
|
|
|
|
%$hash = (
|
|
iban => { description => "Deposit (IBAN transfer)" },
|
|
cash => { description => "Deposit (Cash)" },
|
|
other => { description => "Deposit (%s)", prompts => [ "Description" ] },
|
|
reimburse => {
|
|
description => "Reimbursement (%s, approval: %s)",
|
|
prompts => [
|
|
"Please provide a short description",
|
|
"Which board member gave approval?",
|
|
],
|
|
},
|
|
);
|
|
}
|