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

(-)a/Koha/Patrons/Import.pm (-7 / +5 lines)
Lines 29-35 use C4::Letters qw( GetPreparedLetter EnqueueLetter ); Link Here
29
use Koha::Libraries;
29
use Koha::Libraries;
30
use Koha::Patrons;
30
use Koha::Patrons;
31
use Koha::Patron::Categories;
31
use Koha::Patron::Categories;
32
use Koha::Patron::Debarments qw( AddDebarment GetDebarments );
32
use Koha::Patron::Debarments qw( AddDebarment );
33
use Koha::DateUtils qw( dt_from_string output_pref );
33
use Koha::DateUtils qw( dt_from_string output_pref );
34
34
35
=head1 NAME
35
=head1 NAME
Lines 290-305 sub import_patrons { Link Here
290
                    if ( $borrower{debarred} && ( ( $borrower{debarred} ne $member->{debarred} ) || ( $borrower{debarredcomment} ne $member->{debarredcomment} ) ) ) {
290
                    if ( $borrower{debarred} && ( ( $borrower{debarred} ne $member->{debarred} ) || ( $borrower{debarredcomment} ne $member->{debarredcomment} ) ) ) {
291
291
292
                        # Check to see if this debarment already exists
292
                        # Check to see if this debarment already exists
293
                        my $debarrments = GetDebarments(
293
                        my $restrictions = $patron->restrictions->search(
294
                            {
294
                            {
295
                                borrowernumber => $borrowernumber,
295
                                expiration => $borrower{debarred},
296
                                expiration     => $borrower{debarred},
296
                                comment    => $borrower{debarredcomment}
297
                                comment        => $borrower{debarredcomment}
298
                            }
297
                            }
299
                        );
298
                        );
300
299
301
                        # If it doesn't, then add it!
300
                        # If it doesn't, then add it!
302
                        unless (@$debarrments) {
301
                        unless ($restrictions->count) {
303
                            AddDebarment(
302
                            AddDebarment(
304
                                {
303
                                {
305
                                    borrowernumber => $borrowernumber,
304
                                    borrowernumber => $borrowernumber,
306
- 

Return to bug 31095