Lines 151-157
SearchAuthorities will return only authids.
Link Here
|
151 |
sub authorities { |
151 |
sub authorities { |
152 |
my $self = shift; |
152 |
my $self = shift; |
153 |
my $skipmetadata = shift; |
153 |
my $skipmetadata = shift; |
154 |
my ( $results, $total ) = _search( $self, 'match-heading', $skipmetadata ); |
154 |
my $sortorder = shift; |
|
|
155 |
my ( $results, $total ) = _search( $self, 'match-heading', $skipmetadata, $sortorder ); |
155 |
return $results; |
156 |
return $results; |
156 |
} |
157 |
} |
157 |
|
158 |
|
Lines 166-173
that are a preferred form of the heading.
Link Here
|
166 |
|
167 |
|
167 |
sub preferred_authorities { |
168 |
sub preferred_authorities { |
168 |
my $self = shift; |
169 |
my $self = shift; |
169 |
my $skipmetadata = shift || undef; |
170 |
my $skipmetadata = shift; |
170 |
my ( $results, $total ) = _search( 'see-from', $skipmetadata ); |
171 |
my $sortorder = shift; |
|
|
172 |
my ( $results, $total ) = _search( 'see-from', $skipmetadata, $sortorder ); |
171 |
return $results; |
173 |
return $results; |
172 |
} |
174 |
} |
173 |
|
175 |
|
Lines 181-186
sub _search {
Link Here
|
181 |
my $self = shift; |
183 |
my $self = shift; |
182 |
my $index = shift || undef; |
184 |
my $index = shift || undef; |
183 |
my $skipmetadata = shift || undef; |
185 |
my $skipmetadata = shift || undef; |
|
|
186 |
my $sortorder = shift || 'AuthidAsc'; |
184 |
my @marclist; |
187 |
my @marclist; |
185 |
my @and_or; |
188 |
my @and_or; |
186 |
my @excluding = []; |
189 |
my @excluding = []; |
Lines 205-211
sub _search {
Link Here
|
205 |
return C4::AuthoritiesMarc::SearchAuthorities( |
208 |
return C4::AuthoritiesMarc::SearchAuthorities( |
206 |
\@marclist, \@and_or, \@excluding, \@operator, |
209 |
\@marclist, \@and_or, \@excluding, \@operator, |
207 |
\@value, 0, 20, $self->{'auth_type'}, |
210 |
\@value, 0, 20, $self->{'auth_type'}, |
208 |
'AuthidAsc', $skipmetadata |
211 |
$sortorder, $skipmetadata |
209 |
); |
212 |
); |
210 |
} |
213 |
} |
211 |
|
214 |
|