|
Lines 204-210
sub apply {
Link Here
|
| 204 |
my $schema = Koha::Database->new->schema; |
204 |
my $schema = Koha::Database->new->schema; |
| 205 |
|
205 |
|
| 206 |
$schema->txn_do( sub { |
206 |
$schema->txn_do( sub { |
| 207 |
while ( my $debit = $debits->next ) { |
207 |
for my $debit ( @{$debits} ) { |
| 208 |
|
208 |
|
| 209 |
unless ( $debit->is_debit ) { |
209 |
unless ( $debit->is_debit ) { |
| 210 |
Koha::Exceptions::Account::IsNotDebit->throw( |
210 |
Koha::Exceptions::Account::IsNotDebit->throw( |
| 211 |
- |
|
|