View | Details | Raw Unified | Return to bug 24081
Collapse All | Expand All

(-)a/Koha/Account/Line.pm (-3 / +2 lines)
Lines 339-352 sub reduce { Link Here
339
"Amount to reduce ($params->{amount}) is higher than original amount ($original)"
339
"Amount to reduce ($params->{amount}) is higher than original amount ($original)"
340
    ) unless ( $original >= $params->{amount} );
340
    ) unless ( $original >= $params->{amount} );
341
    my $reduced =
341
    my $reduced =
342
      $self->credits( { credit_type_code => [ 'REFUND' ] } )->total;
342
      $self->credits( { credit_type_code => [ 'DISCOUNT', 'REFUND' ] } )->total;
343
    Koha::Exceptions::ParameterTooHigh->throw( error =>
343
    Koha::Exceptions::ParameterTooHigh->throw( error =>
344
"Combined reduction ($params->{amount} + $reduced) is higher than original amount ("
344
"Combined reduction ($params->{amount} + $reduced) is higher than original amount ("
345
          . abs($original)
345
          . abs($original)
346
          . ")" )
346
          . ")" )
347
      unless ( $original >= ( $params->{amount} + abs($reduced) ) );
347
      unless ( $original >= ( $params->{amount} + abs($reduced) ) );
348
348
349
    my $status = { 'REFUND' => 'REFUNDED' };
349
    my $status = { 'REFUND' => 'REFUNDED', 'DISCOUNT' => 'DISCOUNTED' };
350
350
351
    my $reduction;
351
    my $reduction;
352
    $self->_result->result_source->schema->txn_do(
352
    $self->_result->result_source->schema->txn_do(
353
- 

Return to bug 24081