Attachment #158639 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, 'If enabled, show the number of records next to search links in the bibliographic record detail page in the OPAC.', '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 456-461 INSERT INTO systempreferences ( `variable`, `value`, `options`, `explanation`, ` Link Here

(-)a/installer/data/mysql/mandatory/sysprefs.sql (+1 lines)
456	('OPACdefaultSortOrder','dsc','asc\|dsc\|za\|az','Specify the default sort order','Choice'),	456	('OPACdefaultSortOrder','dsc','asc\|dsc\|za\|az','Specify the default sort order','Choice'),
457	('OPACdidyoumean','',NULL,'Did you mean? configuration for the OPAC. Do not change, as this is controlled by /cgi-bin/koha/admin/didyoumean.pl.','Free'),	457	('OPACdidyoumean','',NULL,'Did you mean? configuration for the OPAC. Do not change, as this is controlled by /cgi-bin/koha/admin/didyoumean.pl.','Free'),
458	('OPACDisplay856uAsImage','OFF','OFF\|Details\|Results\|Both','Display the URI in the 856u field as an image, the corresponding OPACXSLT option must be on','Choice'),	458	('OPACDisplay856uAsImage','OFF','OFF\|Details\|Results\|Both','Display the URI in the 856u field as an image, the corresponding OPACXSLT option must be on','Choice'),
		459	('OPACDisplayRecordCount','0',NULL,'If enabled, show the number of records next to search links in the bibliographic record detail page in the OPAC.','YesNo'),
459	('OpacExportOptions','bibtex,dc,marcxml,marc8,utf8,marcstd,mods,ris,isbd','','Define export options available on OPAC detail page.','multiple'),	460	('OpacExportOptions','bibtex,dc,marcxml,marc8,utf8,marcstd,mods,ris,isbd','','Define export options available on OPAC detail page.','multiple'),
460	('OPACFallback', 'prog', 'bootstrap\|prog', 'Define the fallback theme for the OPAC interface.', 'Themes'),	461	('OPACFallback', 'prog', 'bootstrap\|prog', 'Define the fallback theme for the OPAC interface.', 'Themes'),
461	('OpacFavicon','','','Enter a complete URL to an image to replace the default Koha favicon on the OPAC','free'),	462	('OpacFavicon','','','Enter a complete URL to an image to replace the default Koha favicon on the OPAC','free'),

Lines 326-328 Searching: Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/searching.pref (+8 lines)
326	- pref: LibrisURL	326	- pref: LibrisURL
327	class: url	327	class: url
328	- "Please only change this if you are sure it needs changing."	328	- "Please only change this if you are sure it needs changing."
		329	-
		330	- pref: OPACDisplayRecordCount
		331	type: boolean
		332	default: 0
		333	choices:
		334	1: Show
		335	0: "Don't show"
		336	- the number of records next to search links in the bibliographic record detail page in the OPAC.

Lines 50-55 Link Here

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

Lines 1454-1459 Link Here

(-)a/koha-tmpl/opac-tmpl/bootstrap/en/modules/opac-detail.tt (+3 lines)
1454	[% END %]	1454	[% END %]
1455		1455
1456	<script>	1456	<script>
		1457	[% IF ( Koha.Preference('OPACDisplayRecordCount') ) %]
		1458	NumberResultsRecord();
		1459	[% END %]
1457	window.emojiPicker = new EmojiPicker({	1460	window.emojiPicker = new EmojiPicker({
1458	emojiable_selector: '[data-emojiable=true]',	1461	emojiable_selector: '[data-emojiable=true]',
1459	assetsPath: '[% interface \| html %]/lib/emoji-picker/img/',	1462	assetsPath: '[% interface \| html %]/lib/emoji-picker/img/',




var url_request = '/cgi-bin/koha/svc/elasticsearch/opac-elasticsearch.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) {
        //consoleconsole.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 Modern::Perl;
use CGI qw ( -utf8 );
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');

my $iskey = 0;

#Chose GET in key parametre
if ($session->param("key") eq "nb_notice") {
  $iskey = 1;
  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);
}

if ($iskey == 0) {
  response404JSON();
}

sub response404JSON {
  my $res = CGI->new;
  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 $res->header(
    -type => $header_type,
    -charset => "utf-8",
    -status => $header_status
  );
  print $output;
  print "\n";
}

Return to bug 27428

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-elasticsearch.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	//consoleconsole.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-elasticsearch.pl (-1 / +51 lines)
0	-	1	#!/usr/bin/perl
		2
		3	use Modern::Perl;
		4	use CGI qw ( -utf8 );
		5	use JSON;
		6	use utf8;
		7	use Unicode::Normalize;
		8	use CGI::Session;
		9	use Koha::SearchEngine::Elasticsearch::Browse;
		10
		11	my $browser = Koha::SearchEngine::Elasticsearch::Browse->new( { index => 'biblios' } );
		12	my $cgi = CGI->new;
		13	my $session = CGI::Session->new();
		14
		15	$session->param(-name=>'q', -value=>$cgi->param("q"));
		16	$session->param(-name=>'key', -value=>$cgi->param("key"));
		17	$session->expire('+1h');
		18
		19	my $iskey = 0;
		20
		21	#Chose GET in key parametre
		22	if ($session->param("key") eq "nb_notice") {
		23	$iskey = 1;
		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
		31	if ($iskey == 0) {
		32	response404JSON();
		33	}
		34
		35	sub response404JSON {
		36	my $res = CGI->new;
		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 $res->header(
		45	-type => $header_type,
		46	-charset => "utf-8",
		47	-status => $header_status
		48	);
		49	print $output;
		50	print "\n";
		51	}