|
Lines 244-251
sub validate_hold_sibling {
Link Here
|
| 244 |
return 1 if $params->{branchcode} eq $self->id; |
244 |
return 1 if $params->{branchcode} eq $self->id; |
| 245 |
|
245 |
|
| 246 |
my $branchcode = $params->{branchcode}; |
246 |
my $branchcode = $params->{branchcode}; |
| 247 |
my @hold_libraries = $self->get_hold_libraries; |
247 |
return $self->get_hold_libraries->search( { branchcode => $branchcode } ) |
| 248 |
return grep {$_->branchcode eq $branchcode} @hold_libraries; |
248 |
->count > 0; |
| 249 |
} |
249 |
} |
| 250 |
|
250 |
|
| 251 |
=head2 Internal methods |
251 |
=head2 Internal methods |
| 252 |
- |
|
|