|
Lines 165-170
sub import_patrons {
Link Here
|
| 165 |
if ( defined($matchpoint) && ( $matchpoint eq 'cardnumber' ) && ( $borrower{'cardnumber'} ) ) { |
165 |
if ( defined($matchpoint) && ( $matchpoint eq 'cardnumber' ) && ( $borrower{'cardnumber'} ) ) { |
| 166 |
$member = Koha::Patrons->find( { cardnumber => $borrower{'cardnumber'} } ); |
166 |
$member = Koha::Patrons->find( { cardnumber => $borrower{'cardnumber'} } ); |
| 167 |
} |
167 |
} |
|
|
168 |
elsif ( ($matchpoint eq 'userid') && ($borrower{'userid'}) ) { |
| 169 |
$member = Koha::Patrons->find( { userid => $borrower{userid} } ); |
| 170 |
} |
| 168 |
elsif ($extended) { |
171 |
elsif ($extended) { |
| 169 |
if ( defined($matchpoint_attr_type) ) { |
172 |
if ( defined($matchpoint_attr_type) ) { |
| 170 |
foreach my $attr (@$patron_attributes) { |
173 |
foreach my $attr (@$patron_attributes) { |
|
Lines 244-250
sub import_patrons {
Link Here
|
| 244 |
); |
247 |
); |
| 245 |
next LINE; |
248 |
next LINE; |
| 246 |
} |
249 |
} |
| 247 |
if ( $borrower{debarred} ) { |
250 |
# Don't add a new restriction if the existing 'combined' restriction matches this one |
|
|
251 |
if ( $borrower{debarred} && ( ( $borrower{debarred} ne $member->{debarred} ) || ( $borrower{debarredcomment} ne $member->{debarredcomment} ) ) ) { |
| 248 |
|
252 |
|
| 249 |
# Check to see if this debarment already exists |
253 |
# Check to see if this debarment already exists |
| 250 |
my $debarrments = GetDebarments( |
254 |
my $debarrments = GetDebarments( |
| 251 |
- |
|
|