|
Lines 78-86
sub all {
Link Here
|
| 78 |
|
78 |
|
| 79 |
sub pickup_locations { |
79 |
sub pickup_locations { |
| 80 |
my ($self, $params) = @_; |
80 |
my ($self, $params) = @_; |
| 81 |
$params->{search_params} ||= {}; |
81 |
|
| 82 |
$params->{search_params}->{pickup_location} = 1; |
82 |
my $selected = $params->{selected}; |
| 83 |
return $self->all($params); |
83 |
my $libraries = Koha::Libraries->pickup_locations($params); |
|
|
84 |
for my $l ( @$libraries ) { |
| 85 |
if ( defined $selected and $l->{branchcode} eq $selected |
| 86 |
or not defined $selected and C4::Context->userenv and $l->{branchcode} eq C4::Context->userenv->{branch} |
| 87 |
) { |
| 88 |
$l->{selected} = 1; |
| 89 |
} |
| 90 |
} |
| 91 |
|
| 92 |
return $libraries; |
| 84 |
} |
93 |
} |
| 85 |
|
94 |
|
| 86 |
1; |
95 |
1; |
| 87 |
- |
|
|