Attachment #153028 for bug #16223

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

Lines 39-45 use Koha::Account::DebitTypes; Link Here

(-)a/Koha/Account.pm (-3 lines)
39	use Koha::Exceptions;	39	use Koha::Exceptions;
40	use Koha::Exceptions::Account;	40	use Koha::Exceptions::Account;
41	use Koha::Plugins;	41	use Koha::Plugins;
42	use Koha::Patron::Debarments;
43		42
44	=head1 NAME	43	=head1 NAME
45		44
Lines 118-125 sub pay { Link Here
118	}	117	}
119	);	118	);
120		119
121	Koha::Patron::Debarments::del_restrictions_after_payment({ borrowernumber => $self->{patron_id} });
122
123	# NOTE: Pay historically always applied as much credit as it could to all	120	# NOTE: Pay historically always applied as much credit as it could to all
124	# existing outstanding debits, whether passed specific debits or otherwise.	121	# existing outstanding debits, whether passed specific debits or otherwise.
125	if ( $payment->amountoutstanding ) {	122	if ( $payment->amountoutstanding ) {

Lines 28-33 use Koha::Database; Link Here

(-)a/Koha/Account/Line.pm (-1 / +3 lines)
28	use Koha::DateUtils qw( dt_from_string );	28	use Koha::DateUtils qw( dt_from_string );
29	use Koha::Exceptions::Account;	29	use Koha::Exceptions::Account;
30	use Koha::Items;	30	use Koha::Items;
		31	use Koha::Patron::Debarments;
31		32
32	use base qw(Koha::Object Koha::Object::Mixin::AdditionalFields);	33	use base qw(Koha::Object Koha::Object::Mixin::AdditionalFields);
33		34
Lines 699-704 sub apply { Link Here
699	}	700	}
700	});	701	});
701		702
		703	Koha::Patron::Debarments::del_restrictions_after_payment({ borrowernumber => $self->borrowernumber });
		704
702	return $self;	705	return $self;
703	}	706	}
704		707
705	-

Return to bug 16223