|
Lines 22-27
use CGI;
Link Here
|
| 22 |
use JSON qw( to_json ); |
22 |
use JSON qw( to_json ); |
| 23 |
|
23 |
|
| 24 |
use C4::Auth qw( get_template_and_user ); |
24 |
use C4::Auth qw( get_template_and_user ); |
|
|
25 |
use C4::Circulation qw( barcodedecode ); |
| 25 |
use C4::Output qw( output_with_http_headers output_html_with_http_headers ); |
26 |
use C4::Output qw( output_with_http_headers output_html_with_http_headers ); |
| 26 |
use C4::Items qw( SearchItems ); |
27 |
use C4::Items qw( SearchItems ); |
| 27 |
use C4::Koha qw( GetAuthorisedValues ); |
28 |
use C4::Koha qw( GetAuthorisedValues ); |
|
Lines 50-55
if (defined $format and $format eq 'json') {
Link Here
|
| 50 |
|
51 |
|
| 51 |
my @f = $cgi->multi_param('f'); |
52 |
my @f = $cgi->multi_param('f'); |
| 52 |
my @q = $cgi->multi_param('q'); |
53 |
my @q = $cgi->multi_param('q'); |
|
|
54 |
|
| 55 |
# If index indicates the value is a barocode, we need to preproccess it before searching |
| 56 |
for ( my $i = 0; $i < @q; $i++ ) { |
| 57 |
$q[$i] = barcodedecode($q[$i]) if $f[$i] eq 'barcode'; |
| 58 |
} |
| 59 |
|
| 53 |
push @q, '' if @q == 0; |
60 |
push @q, '' if @q == 0; |
| 54 |
my @op = $cgi->multi_param('op'); |
61 |
my @op = $cgi->multi_param('op'); |
| 55 |
my @c = $cgi->multi_param('c'); |
62 |
my @c = $cgi->multi_param('c'); |
| 56 |
- |
|
|