Attachment #119980 for bug #27428

View | Details | Raw Unified | Return to bug 27428
Collapse All | Expand All





use base qw(Koha::SearchEngine::Elasticsearch);
use Modern::Perl;
use JSON;

=head2 browse


    return $query;
}

sub _build_query_count_record {
    my ($self, $cgi_q, $key, $item) = @_;
    my $query = {
        query => {
            match_phrase => {
                $key  => $item
            }
        }
    };
    return $query;
}

sub count_record {
    my ($self, $cgi_q) = @_;
    my @results_return;
    my $decoded;
    $cgi_q =~ s/\{\'/\{\"/g;
    $cgi_q =~ s/\'\}/\"\}/g;
    #$cgi_q =~ s/\'\:\'/\"\:\"}/g;
    eval {
        $decoded = JSON::XS::decode_json($cgi_q);
    };
    if ($@) {
        warn "Caught JSON::XS decode error: $_";
    }

    foreach my $item (@$decoded)
    {
        for my $key ( keys %$item ){
            my $elasticsearch = $self->get_elasticsearch();
            my $query = $self->_build_query_count_record($cgi_q, $key, $$item{$key});
            my $res = $elasticsearch->search(
                index => $self->index_name,
                body => $query
            );
        push(@results_return, $res->{'hits'}->{'total'});
        }
    }
    return \@results_return;
}

1;

__END__

Line 0 Link Here

(-)a/installer/data/mysql/atomicupdate/bug_27428-number_records_next_to_search_links_opac.perl (+8 lines)
	1	$DBversion = 'XXX'; # will be replaced by the RM
	2	if( CheckVersion( $DBversion ) ) {
	3	# you can use $dbh here like:
	4	$dbh->do(q{INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type) VALUES ('OPACDisplayRecordCount', '0', NULL, NULL, 'YesNo')});
	5
	6	# Always end with this (adjust the bug info)
	7	NewVersion( $DBversion, 27428, "Show the number of records in the detail page in the OPAC");
	8	}

Lines 733-737 INSERT INTO systempreferences ( `variable`, `value`, `options`, `explanation`, ` Link Here

(-)a/installer/data/mysql/mandatory/sysprefs.sql (-1 / +2 lines)
733	('XSLTListsDisplay','default','','Enable XSLT stylesheet control over lists pages display on intranet','Free'),	733	('XSLTListsDisplay','default','','Enable XSLT stylesheet control over lists pages display on intranet','Free'),
734	('XSLTResultsDisplay','default','','Enable XSL stylesheet control over results page display on intranet','Free'),	734	('XSLTResultsDisplay','default','','Enable XSL stylesheet control over results page display on intranet','Free'),
735	('z3950AuthorAuthFields','701,702,700',NULL,'Define the MARC biblio fields for Personal Name Authorities to fill biblio.author','free'),	735	('z3950AuthorAuthFields','701,702,700',NULL,'Define the MARC biblio fields for Personal Name Authorities to fill biblio.author','free'),
736	('z3950NormalizeAuthor','0','','If ON, Personal Name Authorities will replace authors in biblio.author','YesNo')	736	('z3950NormalizeAuthor','0','','If ON, Personal Name Authorities will replace authors in biblio.author','YesNo'),
		737	('OPACDisplayRecordCount','0',NULL,NULL,'YesNo')
737	;	738	;

Lines 276-278 Searching: Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/searching.pref (+8 lines)
276	- LIBRIS base URL	276	- LIBRIS base URL
277	- pref: LibrisURL	277	- pref: LibrisURL
278	- "Please only change this if you are sure it needs changing."	278	- "Please only change this if you are sure it needs changing."
		279	-
		280	- pref: OPACDisplayRecordCount
		281	type: boolean
		282	default: no
		283	choices:
		284	yes: Show
		285	no: "Don't show"
		286	- the number of records next to search links in the bibliographic record detail page in the OPAC.

Lines 47-52 Link Here

(-)a/koha-tmpl/opac-tmpl/bootstrap/en/includes/doc-head-close.inc (+3 lines)
47	[% IF ( Koha.Preference('OPACUserCSS') ) %]	47	[% IF ( Koha.Preference('OPACUserCSS') ) %]
48	<style>[% Koha.Preference('OPACUserCSS') \| $raw %]</style>	48	<style>[% Koha.Preference('OPACUserCSS') \| $raw %]</style>
49	[% END %]	49	[% END %]
		50	[% IF ( Koha.Preference('OPACDisplayRecordCount') ) %]
		51	[% Asset.js("js/opac-display-record-count.js") %]
		52	[% END %]
50	[% IF SCO_login %]	53	[% IF SCO_login %]
51	[% SET SCOUserCSS = Koha.Preference('SCOUserCSS') %]	54	[% SET SCOUserCSS = Koha.Preference('SCOUserCSS') %]
52	[% IF SCOUserCSS %]	55	[% IF SCOUserCSS %]




    [% IF ( Koha.Preference('OPACDetailQRCode') ) %]
        [% Asset.js("lib/kjua/kjua.min.js") | $raw %]
    [% END %]

    [% IF ( Koha.Preference('OPACShowMusicalInscripts') ) %]
        <script>
            var interface = "[% interface | html %]";

    [% END %]

    <script>
        [% IF ( Koha.Preference('OPACDisplayRecordCount') ) %]
            NumberResultsRecord();
        [% END %]
        window.emojiPicker = new EmojiPicker({
        emojiable_selector: '[data-emojiable=true]',
        assetsPath: '[% interface | html %]/lib/emoji-picker/img/',

                    });
                }());
            [% END # /IF ( OPACShelfBrowser ) %]

            [% IF ( OpacStarRatings != 'disable' ) %]
                // -----------------------------------------------------
                // star-ratings code




var url_request = '/cgi-bin/koha/svc/elasticsearch/opac-autocomplete.pl?q=';

const url_param = '_search?filter_path=hits.total&source_content_type=application/json'
/* Regex pour tous les URL avec un recherche */
var regex_es_link = "/cgi-bin/koha/opac-search.pl?q=";
/* key API */
var key_display = 'nb_notice';
/* idx de recherche */
var es_builder = {
    'an' : 'koha-auth-number',
    'Provider' : 'provider',
    'se,phr' : 'title-series',
    'au' : 'author',
    'su,complete-subfield' : 'subject'
}
/* On remplace tous les caractères suivants  */
//https://www.obkb.com/dcljr/charstxt.html
var not_symbols = {
    '\'':'%27',
    '.':'%2E',
    '+': '',
    ',': '%2C',
    ';': '%3B',
    '-': '',
    '=': '',
    '&': '%26',
    '|': '',
    '>': '',
    '<': '',
    '!': '',
    '(': '',
    ')': '',
    '{': '',
    '}': '',
    '[': '',
    ']': '',
    '^': '',
    '"': '',
    '~': '',
    '*': '',
    '?': '',
    ':': '%3A',
    '/': '',
    "\\": '%5C'
};

function NumberResultsRecord(){

    var regex = `a[href*="${regex_es_link}"]`;
    var all_link = $(regex);
    /* array json data to server */
    var json_data=[];

    $.each( all_link, function( i, val ) {
        var url = '';
        var str = val.href;
        /* on prend param de q= */
        str = decodeURIComponent(str.split('?q=').pop());
        /* split query for fields for search [0] */
		var es_search = str.split(':');
        /* Remplacement pour un requete */
		var str_search = str.substring(str.indexOf(":") + 1);
		/* [0] this is field for search */
		str_search = str_search.replace(/[&\/\\#,+()$~%.'":;*?<>{}]/g, function(matched){
			return not_symbols[matched];
        });
        es_search[0] = es_search[0][0] == '(' ? es_search[0].substring(1) : es_search[0];
        var json = {};
        json[es_builder[es_search[0]]] = str_search;
        json_data.push(json);
  });

  $.ajax({
    type: 'GET',
    url: url_request + JSON.stringify(json_data) + '&key=' + key_display,
    success: function (data) {
        console.log(data);
        jQuery.each( all_link, function( i, val ) {
            $(val).after("&nbsp;<span style=\"color:black\"><b>["+data[i]+"]</b></span>");
            console.log(val);
        });
    },
    error: function (data) {
        console.log(data);
    },
  });

}




#!/usr/bin/perl

use strict;
use warnings;
use CGI qw ( -utf8 );
use v5.10;
use JSON;
use utf8;
use Unicode::Normalize;
use CGI::Session;
use Koha::SearchEngine::Elasticsearch::Browse;

my $browser = Koha::SearchEngine::Elasticsearch::Browse->new( { index => 'biblios' } );
my $cgi = CGI->new;
my $session = CGI::Session->new();

$session->param(-name=>'q', -value=>$cgi->param("q"));
$session->param(-name=>'key', -value=>$cgi->param("key"));
$session->expire('+1h');

#Chose GET in key parametre
given ($session->param("key")) {
  when ("nb_notice") {
    my $ses = NFKD( $session->param("q") );    
    $ses =~ s/\p{NonspacingMark}//g;
    my $res = $browser->count_record($ses);
    print $cgi->header("application/json");
    print to_json($res);
  }
  #no key 404
  default {
    response404JSON();
  }
}

sub response404JSON {
  my $json = JSON->new->utf8;
  my $header_type = "application/json";
  my $header_status = "404";
  my $output = $json->encode({
    "error" => "No data",
    "description" => "Bad request",
  });
  print $cgi->header(
    -type => $header_type,
    -charset => "utf-8",
    -status => $header_status
  );
  print $output;
  print "\n";
}

Return to bug 27428

Lines 1454-1460 Link Here

(-)a/koha-tmpl/opac-tmpl/bootstrap/en/modules/opac-detail.tt (-2 / +3 lines)
1454	[% IF ( Koha.Preference('OPACDetailQRCode') ) %]	1454	[% IF ( Koha.Preference('OPACDetailQRCode') ) %]
1455	[% Asset.js("lib/kjua/kjua.min.js") \| $raw %]	1455	[% Asset.js("lib/kjua/kjua.min.js") \| $raw %]
1456	[% END %]	1456	[% END %]
1457
1458	[% IF ( Koha.Preference('OPACShowMusicalInscripts') ) %]	1457	[% IF ( Koha.Preference('OPACShowMusicalInscripts') ) %]
1459	<script>	1458	<script>
1460	var interface = "[% interface \| html %]";	1459	var interface = "[% interface \| html %]";
Lines 1468-1473 Link Here
1468	[% END %]	1467	[% END %]
1469		1468
1470	<script>	1469	<script>
		1470	[% IF ( Koha.Preference('OPACDisplayRecordCount') ) %]
		1471	NumberResultsRecord();
		1472	[% END %]
1471	window.emojiPicker = new EmojiPicker({	1473	window.emojiPicker = new EmojiPicker({
1472	emojiable_selector: '[data-emojiable=true]',	1474	emojiable_selector: '[data-emojiable=true]',
1473	assetsPath: '[% interface \| html %]/lib/emoji-picker/img/',	1475	assetsPath: '[% interface \| html %]/lib/emoji-picker/img/',
Lines 1731-1737 Link Here
1731	});	1733	});
1732	}());	1734	}());
1733	[% END # /IF ( OPACShelfBrowser ) %]	1735	[% END # /IF ( OPACShelfBrowser ) %]
1734
1735	[% IF ( OpacStarRatings != 'disable' ) %]	1736	[% IF ( OpacStarRatings != 'disable' ) %]
1736	// -----------------------------------------------------	1737	// -----------------------------------------------------
1737	// star-ratings code	1738	// star-ratings code

Lines 48-53 as "suggestible" in the database when indexing takes place. Link Here

(-)a/Koha/SearchEngine/Elasticsearch/Browse.pm (+42 lines)
48		48
49	use base qw(Koha::SearchEngine::Elasticsearch);	49	use base qw(Koha::SearchEngine::Elasticsearch);
50	use Modern::Perl;	50	use Modern::Perl;
		51	use JSON;
51		52
52	=head2 browse	53	=head2 browse
53		54
Lines 162-167 sub _build_query { Link Here
162	return $query;	163	return $query;
163	}	164	}
164		165
		166	sub _build_query_count_record {
		167	my ($self, $cgi_q, $key, $item) = @_;
		168	my $query = {
		169	query => {
		170	match_phrase => {
		171	$key => $item
		172	}
		173	}
		174	};
		175	return $query;
		176	}
		177
		178	sub count_record {
		179	my ($self, $cgi_q) = @_;
		180	my @results_return;
		181	my $decoded;
		182	$cgi_q =~ s/\{\'/\{\"/g;
		183	$cgi_q =~ s/\'\}/\"\}/g;
		184	#$cgi_q =~ s/\'\:\'/\"\:\"}/g;
		185	eval {
		186	$decoded = JSON::XS::decode_json($cgi_q);
		187	};
		188	if ($@) {
		189	warn "Caught JSON::XS decode error: $_";
		190	}
		191
		192	foreach my $item (@$decoded)
		193	{
		194	for my $key ( keys %$item ){
		195	my $elasticsearch = $self->get_elasticsearch();
		196	my $query = $self->_build_query_count_record($cgi_q, $key, $$item{$key});
		197	my $res = $elasticsearch->search(
		198	index => $self->index_name,
		199	body => $query
		200	);
		201	push(@results_return, $res->{'hits'}->{'total'});
		202	}
		203	}
		204	return \@results_return;
		205	}
		206
165	1;	207	1;
166		208
167	__END__	209	__END__

Line 0 Link Here

(-)a/koha-tmpl/opac-tmpl/bootstrap/js/opac-display-record-count.js (+88 lines)
		1	var url_request = '/cgi-bin/koha/svc/elasticsearch/opac-autocomplete.pl?q=';
		2
		3	const url_param = '_search?filter_path=hits.total&source_content_type=application/json'
		4	/* Regex pour tous les URL avec un recherche */
		5	var regex_es_link = "/cgi-bin/koha/opac-search.pl?q=";
		6	/* key API */
		7	var key_display = 'nb_notice';
		8	/* idx de recherche */
		9	var es_builder = {
		10	'an' : 'koha-auth-number',
		11	'Provider' : 'provider',
		12	'se,phr' : 'title-series',
		13	'au' : 'author',
		14	'su,complete-subfield' : 'subject'
		15	}
		16	/* On remplace tous les caractères suivants */
		17	//https://www.obkb.com/dcljr/charstxt.html
		18	var not_symbols = {
		19	'\'':'%27',
		20	'.':'%2E',
		21	'+': '',
		22	',': '%2C',
		23	';': '%3B',
		24	'-': '',
		25	'=': '',
		26	'&': '%26',
		27	'\|': '',
		28	'>': '',
		29	'<': '',
		30	'!': '',
		31	'(': '',
		32	')': '',
		33	'{': '',
		34	'}': '',
		35	'[': '',
		36	']': '',
		37	'^': '',
		38	'"': '',
		39	'~': '',
		40	'*': '',
		41	'?': '',
		42	':': '%3A',
		43	'/': '',
		44	"\\": '%5C'
		45	};
		46
		47	function NumberResultsRecord(){
		48
		49	var regex = `a[href*="${regex_es_link}"]`;
		50	var all_link = $(regex);
		51	/* array json data to server */
		52	var json_data=[];
		53
		54	$.each( all_link, function( i, val ) {
		55	var url = '';
		56	var str = val.href;
		57	/* on prend param de q= */
		58	str = decodeURIComponent(str.split('?q=').pop());
		59	/* split query for fields for search [0] */
		60	var es_search = str.split(':');
		61	/* Remplacement pour un requete */
		62	var str_search = str.substring(str.indexOf(":") + 1);
		63	/* [0] this is field for search */
		64	str_search = str_search.replace(/[&\/\\#,+()$~%.'":;*?<>{}]/g, function(matched){
65	return not_symbols[matched];
66	});
67	es_search[0] = es_search[0][0] == '(' ? es_search[0].substring(1) : es_search[0];
68	var json = {};
69	json[es_builder[es_search[0]]] = str_search;
70	json_data.push(json);
71	});
72
73	$.ajax({
74	type: 'GET',
75	url: url_request + JSON.stringify(json_data) + '&key=' + key_display,
76	success: function (data) {
77	console.log(data);
78	jQuery.each( all_link, function( i, val ) {
79	$(val).after(" <span style=\"color:black\"><b>["+data[i]+"]</b></span>");
80	console.log(val);
81	});
82	},
83	error: function (data) {
84	console.log(data);
85	},
86	});
87
88	}

Line 0 Link Here

(-)a/opac/svc/elasticsearch/opac-autocomplete.pl (-1 / +51 lines)
0	-	1	#!/usr/bin/perl
		2
		3	use strict;
		4	use warnings;
		5	use CGI qw ( -utf8 );
		6	use v5.10;
		7	use JSON;
		8	use utf8;
		9	use Unicode::Normalize;
		10	use CGI::Session;
		11	use Koha::SearchEngine::Elasticsearch::Browse;
		12
		13	my $browser = Koha::SearchEngine::Elasticsearch::Browse->new( { index => 'biblios' } );
		14	my $cgi = CGI->new;
		15	my $session = CGI::Session->new();
		16
		17	$session->param(-name=>'q', -value=>$cgi->param("q"));
		18	$session->param(-name=>'key', -value=>$cgi->param("key"));
		19	$session->expire('+1h');
		20
		21	#Chose GET in key parametre
		22	given ($session->param("key")) {
		23	when ("nb_notice") {
		24	my $ses = NFKD( $session->param("q") );
		25	$ses =~ s/\p{NonspacingMark}//g;
		26	my $res = $browser->count_record($ses);
		27	print $cgi->header("application/json");
		28	print to_json($res);
		29	}
		30	#no key 404
		31	default {
		32	response404JSON();
		33	}
		34	}
		35
		36	sub response404JSON {
		37	my $json = JSON->new->utf8;
		38	my $header_type = "application/json";
		39	my $header_status = "404";
		40	my $output = $json->encode({
		41	"error" => "No data",
		42	"description" => "Bad request",
		43	});
		44	print $cgi->header(
		45	-type => $header_type,
		46	-charset => "utf-8",
		47	-status => $header_status
		48	);
		49	print $output;
		50	print "\n";
		51	}