2 # Copyright 2013 BibLibre
4 # This file is part of Koha
6 # Koha is free software; you can redistribute it and/or modify it under the
7 # terms of the GNU General Public License as published by the Free Software
8 # Foundation; either version 3 of the License, or (at your option) any later
11 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
12 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
13 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
15 # You should have received a copy of the GNU General Public License along
16 # with Koha; if not, write to the Free Software Foundation, Inc.,
17 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
32 use Koha
::Item
::Search
::Field
qw(GetItemSearchFields);
35 my %params = $cgi->Vars;
37 my $format = $cgi->param('format');
38 my ($template_name, $content_type);
39 if (defined $format and $format eq 'json') {
40 $template_name = 'catalogue/itemsearch.json.tt';
41 $content_type = 'json';
43 # Map DataTables parameters with 'regular' parameters
44 $cgi->param('rows', $cgi->param('iDisplayLength'));
45 $cgi->param('page', ($cgi->param('iDisplayStart') / $cgi->param('iDisplayLength')) + 1);
46 my @columns = split /,/, $cgi->param('sColumns');
47 $cgi->param('sortby', $columns[ $cgi->param('iSortCol_0') ]);
48 $cgi->param('sortorder', $cgi->param('sSortDir_0'));
50 my @f = $cgi->param('f');
51 my @q = $cgi->param('q');
52 push @q, '' if @q == 0;
53 my @op = $cgi->param('op');
54 my @c = $cgi->param('c');
55 foreach my $i (0 .. ($cgi->param('iColumns') - 1)) {
56 my $sSearch = $cgi->param("sSearch_$i");
57 if (defined $sSearch and $sSearch ne '') {
58 my @words = split /\s+/, $sSearch;
59 foreach my $word (@words) {
60 push @f, $columns[$i];
69 $cgi->param('op', @op);
71 } elsif (defined $format and $format eq 'csv') {
72 $template_name = 'catalogue/itemsearch.csv.tt';
74 # Retrieve all results
75 $cgi->param('rows', 0);
78 $template_name = 'catalogue/itemsearch.tt';
79 $content_type = 'html';
82 my ($template, $borrowernumber, $cookie) = get_template_and_user
({
83 template_name
=> $template_name,
87 flagsrequired
=> { catalogue
=> 1 },
90 my $notforloan_avcode = GetAuthValCode
('items.notforloan');
91 my $notforloan_values = GetAuthorisedValues
($notforloan_avcode);
93 if (scalar keys %params > 0) {
94 # Parameters given, it's a search
101 foreach my $p (qw(homebranch location itype ccode issues datelastborrowed notforloan)) {
102 if (my @q = $cgi->param($p)) {
108 if (my $op = $cgi->param($p . '_op')) {
109 $f->{operator
} = $op;
111 push @
{ $filter->{filters
} }, $f;
116 my @c = $cgi->param('c');
117 my @fields = $cgi->param('f');
118 my @q = $cgi->param('q');
119 my @op = $cgi->param('op');
122 for (my $i = 0; $i < @fields; $i++) {
123 my $field = $fields[$i];
126 if (defined $q and $q ne '') {
148 push @
{ $filter->{filters
} }, $f;
151 foreach my $p (qw(damaged itemlost)) {
152 my $v = $cgi->param($p) // '';
158 $f->{operator
} = '!=';
159 push @
{ $filter->{filters
} }, $f;
160 } elsif ($v eq 'no') {
161 $f->{operator
} = '=';
162 push @
{ $filter->{filters
} }, $f;
166 if (my $itemcallnumber_from = $cgi->param('itemcallnumber_from')) {
167 push @
{ $filter->{filters
} }, {
168 field
=> 'itemcallnumber',
169 query
=> $itemcallnumber_from,
173 if (my $itemcallnumber_to = $cgi->param('itemcallnumber_to')) {
174 push @
{ $filter->{filters
} }, {
175 field
=> 'itemcallnumber',
176 query
=> $itemcallnumber_to,
181 my $search_params = {
182 rows
=> $cgi->param('rows') // 20,
183 page
=> $cgi->param('page') || 1,
184 sortby
=> $cgi->param('sortby') || 'itemnumber',
185 sortorder
=> $cgi->param('sortorder') || 'asc',
188 my ($results, $total_rows) = SearchItems
($filter, $search_params);
190 # Get notforloan labels
191 my $notforloan_map = {};
192 foreach my $nfl_value (@
$notforloan_values) {
193 $notforloan_map->{$nfl_value->{authorised_value
}} = $nfl_value->{lib
};
196 foreach my $item (@
$results) {
197 $item->{biblio
} = GetBiblio
($item->{biblionumber
});
198 ($item->{biblioitem
}) = GetBiblioItemByBiblioNumber
($item->{biblionumber
});
199 $item->{status
} = $notforloan_map->{$item->{notforloan
}};
205 search_params
=> $search_params,
207 total_rows
=> $total_rows,
211 if ($format eq 'html') {
212 # Build pagination bar
213 my $url = $cgi->url(-absolute
=> 1);
215 foreach my $p (keys %params) {
216 my @v = $cgi->param($p);
217 push @params, map { "$p=" . $_ } @v;
219 $url .= '?' . join ('&', @params);
220 my $nb_pages = 1 + int($total_rows / $search_params->{rows
});
221 my $current_page = $search_params->{page
};
222 my $pagination_bar = pagination_bar
($url, $nb_pages, $current_page, 'page');
224 $template->param(pagination_bar
=> $pagination_bar);
228 if ($format eq 'html') {
229 # Retrieve data required for the form.
231 my $branches = GetBranches
();
233 foreach my $branchcode (keys %$branches) {
235 value
=> $branchcode,
236 label
=> $branches->{$branchcode}->{branchname
},
239 my $locations = GetAuthorisedValues
('LOC');
241 foreach my $location (@
$locations) {
243 value
=> $location->{authorised_value
},
244 label
=> $location->{lib
},
247 my @itemtypes = C4
::ItemType
->all();
248 foreach my $itemtype (@itemtypes) {
249 $itemtype->{value
} = $itemtype->{itemtype
};
250 $itemtype->{label
} = $itemtype->{description
};
252 my $ccode_avcode = GetAuthValCode
('items.ccode') || 'CCODE';
253 my $ccodes = GetAuthorisedValues
($ccode_avcode);
255 foreach my $ccode (@
$ccodes) {
257 value
=> $ccode->{authorised_value
},
258 label
=> $ccode->{lib
},
263 foreach my $value (@
$notforloan_values) {
265 value
=> $value->{authorised_value
},
266 label
=> $value->{lib
},
270 my @items_search_fields = GetItemSearchFields
();
272 my $authorised_values = {};
273 foreach my $field (@items_search_fields) {
274 if (my $category = ($field->{authorised_values_category
})) {
275 $authorised_values->{$category} = GetAuthorisedValues
($category);
280 branches
=> \
@branches,
281 locations
=> \
@locations,
282 itemtypes
=> \
@itemtypes,
284 notforloans
=> \
@notforloans,
285 items_search_fields
=> \
@items_search_fields,
286 authorised_values_json
=> to_json
($authorised_values),
290 if ($format eq 'csv') {
293 attachment
=> 'items.csv',
295 print $template->output;
297 output_with_http_headers
$cgi, $cookie, $template->output, $content_type;