Revision 8d926ab8
Von Jan Büren vor etwa 2 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 1502 | 1502 |
{ type => SCALAR, callbacks => { is_valid_kivi_date => sub { shift =~ m/\d+\d+\d+/ } } }, # we have three numers
|
| 1503 | 1503 |
{ type => SCALAR, callbacks => { is_buy_or_sell_rate => sub { shift =~ m/^buy|sell$/ } } },
|
| 1504 | 1504 |
{ type => SCALAR, callbacks => { is_current_form_id => sub { $_[0] == $_[1]->[0]->{id} } }, optional => 1 },
|
| 1505 |
{ type => SCALAR, callbacks => { is_valid_fx_table => sub { shift =~ m/(ar|ap|bank_transactions)/ } }, optional => 1 }
|
|
| 1505 |
{ type => SCALAR, callbacks => { is_valid_fx_table => sub { shift =~ m/(ar|ap)/ } }, optional => 1 }
|
|
| 1506 | 1506 |
); |
| 1507 | 1507 |
my ($self, $myconfig, $currency, $transdate, $fld, $id, $record_table) = @_; |
| 1508 | 1508 |
|
Auch abrufbar als: Unified diff
Form:check_exchangerate: Fall bank_transactions macht keinen Sinn