Attachment #150028 for bug #16223

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

Lines 36-42 use Koha::Account::DebitTypes; Link Here

(-)a/Koha/Account.pm (-3 lines)
36	use Koha::Exceptions;	36	use Koha::Exceptions;
37	use Koha::Exceptions::Account;	37	use Koha::Exceptions::Account;
38	use Koha::Plugins;	38	use Koha::Plugins;
39	use Koha::Patron::Debarments;
40		39
41	=head1 NAME	40	=head1 NAME
42		41
Lines 103-110 sub pay { Link Here
103	}	102	}
104	);	103	);
105		104
106	Koha::Patron::Debarments::del_restrictions_after_payment({ borrowernumber => $self->{patron_id} });
107
108	# NOTE: Pay historically always applied as much credit as it could to all	105	# NOTE: Pay historically always applied as much credit as it could to all
109	# existing outstanding debits, whether passed specific debits or otherwise.	106	# existing outstanding debits, whether passed specific debits or otherwise.
110	if ( $payment->amountoutstanding ) {	107	if ( $payment->amountoutstanding ) {

Lines 29-34 use Koha::Database; Link Here

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

Return to bug 16223