Lines 248-254
if ( ( $op eq 'cud-insert' ) and !$nodouble ) {
Link Here
|
248 |
$conditions->{$f} = $newdata{$f} if $newdata{$f}; |
248 |
$conditions->{$f} = $newdata{$f} if $newdata{$f}; |
249 |
} |
249 |
} |
250 |
$nodouble = 1; |
250 |
$nodouble = 1; |
251 |
my $patrons = Koha::Patrons->search($conditions); # FIXME Should be search_limited? |
251 |
my $patrons = Koha::Patrons->search($conditions); |
252 |
if ( $patrons->count > 0) { |
252 |
if ( $patrons->count > 0) { |
253 |
$nodouble = 0; |
253 |
$nodouble = 0; |
254 |
$check_patron = $patrons->next; |
254 |
$check_patron = $patrons->next; |
255 |
- |
|
|