|
Lines 191-197
sub apply {
Link Here
|
| 191 |
my $schema = Koha::Database->new->schema; |
191 |
my $schema = Koha::Database->new->schema; |
| 192 |
|
192 |
|
| 193 |
$schema->txn_do( sub { |
193 |
$schema->txn_do( sub { |
| 194 |
while ( my $debit = $debits->next ) { |
194 |
for my $debit ( @{$debits} ) { |
| 195 |
|
195 |
|
| 196 |
unless ( $debit->is_debit ) { |
196 |
unless ( $debit->is_debit ) { |
| 197 |
Koha::Exceptions::Account::IsNotDebit->throw( |
197 |
Koha::Exceptions::Account::IsNotDebit->throw( |
| 198 |
- |
|
|