7 use List::MoreUtils qw/all any none/;
9 use t::lib::TestBuilder;
12 use Koha::AuthUtils qw/hash_password/;
15 use Test::More tests => 27;
18 use List::Util qw( shuffle );
23 my $schema = Koha::Database->new->schema;
24 $schema->storage->txn_begin;
25 my $dbh = C4::Context->dbh;
27 # FIXME: SessionStorage defaults to mysql, but it seems to break transaction
29 t::lib::Mocks::mock_preference( 'SessionStorage', 'tmp' );
31 use_ok('Koha::DateUtils');
32 use_ok('C4::Search::History');
35 my $previous_sessionid = "PREVIOUS_SESSIONID";
36 my $current_sessionid = "CURRENT_SESSIONID";
38 my $query_cgi_b = q{idx=kw&idx=ti&idx=au%2Cwrdl&q=word1é&q=word2è&q=word3à&do=Search&sort_by=author_az};
39 my $query_cgi_a = q{op=do_search&type=opac&authtypecode=NP&operator=start&value=Harry&marclist=match&and_or=and&orderby=HeadingAsc};
42 my $added = add( $userid, $current_sessionid, $previous_sessionid, $total, $query_cgi_b, $query_cgi_a );
43 is ( $added, 9, '9 searches are added' );
46 my $searches_for_userid = C4::Search::History::get({
49 is( scalar(@$searches_for_userid), 9, 'There are 9 searches in all' );
51 my $searches_for_current_session = C4::Search::History::get({
53 sessionid => $current_sessionid,
55 is( scalar(@$searches_for_current_session), 5, 'There are 5 searches for the current session' );
57 my $searches_for_previous_sessions = C4::Search::History::get({
59 sessionid => $current_sessionid,
62 is( scalar(@$searches_for_previous_sessions), 4, 'There are 4 searches for previous sessions' );
64 my $authority_searches_for_current_session = C4::Search::History::get({
66 sessionid => $current_sessionid,
69 is( scalar(@$authority_searches_for_current_session), 3, 'There are 3 authority searches for the current session' );
71 my $authority_searches_for_previous_session = C4::Search::History::get({
73 sessionid => $current_sessionid,
77 is( scalar(@$authority_searches_for_previous_session), 2, 'There are 2 authority searches for previous sessions' );
79 my $biblio_searches_for_userid = C4::Search::History::get({
83 is( scalar(@$biblio_searches_for_userid), 4, 'There are 5 searches for the current session' );
85 my $authority_searches_for_userid = C4::Search::History::get({
89 is( scalar(@$authority_searches_for_userid), 5, 'There are 4 searches for previous sessions' );
91 delete_all( $userid );
94 add( $userid, $current_sessionid, $previous_sessionid, $total, $query_cgi_b, $query_cgi_a );
95 C4::Search::History::delete({
97 sessionid => $current_sessionid,
100 my $all = C4::Search::History::get({userid => $userid});
101 is( scalar(@$all), 6, 'There are 6 searches in all after deleting current biblio searches' );
102 delete_all( $userid );
104 add( $userid, $current_sessionid, $previous_sessionid, $total, $query_cgi_b, $query_cgi_a );
105 C4::Search::History::delete({
107 sessionid => $current_sessionid,
111 $all = C4::Search::History::get({userid => $userid});
112 is( scalar(@$all), 7, 'There are 7 searches in all after deleting previous authority searches' );
113 delete_all( $userid );
115 add( $userid, $current_sessionid, $previous_sessionid, $total, $query_cgi_b, $query_cgi_a );
116 C4::Search::History::delete({
118 sessionid => $current_sessionid,
121 $all = C4::Search::History::get({userid => $userid});
122 is( scalar(@$all), 5, 'There are 5 searches in all after deleting all previous searches' );
123 delete_all( $userid );
125 add( $userid, $current_sessionid, $previous_sessionid, $total, $query_cgi_b, $query_cgi_a );
126 C4::Search::History::delete({
128 sessionid => $current_sessionid,
130 $all = C4::Search::History::get({userid => $userid});
131 is( scalar(@$all), 4, 'There are 5 searches in all after deleting all searches for a sessionid' );
132 delete_all( $userid );
134 add( $userid, $current_sessionid, $previous_sessionid, $total, $query_cgi_b, $query_cgi_a );
135 C4::Search::History::delete({
138 $all = C4::Search::History::get({userid => $userid});
139 is( scalar(@$all), 0, 'There are 0 search after deleting all searches for a userid' );
140 delete_all( $userid );
142 add( $userid, $current_sessionid, $previous_sessionid, $total, $query_cgi_b, $query_cgi_a );
143 warning_like { C4::Search::History::delete({}) }
144 qr/^ERROR: userid, id or interval is required for history deletion/,
145 'Calling delete without userid raises warning';
146 $all = C4::Search::History::get({userid => $userid});
147 is( scalar(@$all), 9, 'There are still 9 searches after calling delete without userid' );
148 delete_all( $userid );
150 # Delete (with a given id)
151 add( $userid, $current_sessionid, $previous_sessionid, $total, $query_cgi_b, $query_cgi_a );
152 $all = C4::Search::History::get({ userid => $userid });
154 my $ids = [ shuffle map { $_->{id} } @$all ];
155 for my $id ( @$ids[ 0 .. 4 ] ) {
156 C4::Search::History::delete({ id => $id });
158 $all = C4::Search::History::get({ userid => $userid });
159 is( scalar(@$all), 4, 'There are 4 searches after calling 5 times delete with id' );
160 delete_all( $userid );
162 add( $userid, $current_sessionid, $previous_sessionid, $total, $query_cgi_b, $query_cgi_a );
163 $all = C4::Search::History::get({ userid => $userid });
165 $ids = [ shuffle map { $_->{id} } @$all ];
166 C4::Search::History::delete({ id => [ @$ids[0..4] ] });
167 $all = C4::Search::History::get({ userid => $userid });
168 is( scalar(@$all), 4, 'There are 4 searches after calling delete with 5 ids' );
170 delete_all( $userid );
172 # Test delete with interval
173 add( $userid, $current_sessionid, $previous_sessionid, $total, $query_cgi_b, $query_cgi_a );
174 C4::Search::History::delete({
178 $all = C4::Search::History::get({userid => $userid});
179 is( scalar(@$all), 9, 'There are still 9 searches after calling delete with an interval = 10 days' );
180 C4::Search::History::delete({
184 $all = C4::Search::History::get({userid => $userid});
185 is( scalar(@$all), 8, 'There are still 8 searches after calling delete with an interval = 6 days' );
186 C4::Search::History::delete({
190 $all = C4::Search::History::get({userid => $userid});
191 is( scalar(@$all), 2, 'There are still 2 searches after calling delete with an interval = 2 days' );
192 delete_all( $userid );
194 add( $userid, $current_sessionid, $previous_sessionid, $total, $query_cgi_b, $query_cgi_a );
195 C4::Search::History::delete({
200 $all = C4::Search::History::get({userid => $userid});
201 is( scalar(@$all), 8, 'There are still 9 searches after calling delete with an interval = 5 days for biblio' );
202 C4::Search::History::delete({
207 $all = C4::Search::History::get({userid => $userid});
208 is( scalar(@$all), 6, 'There are still 6 searches after calling delete with an interval = 5 days for authority' );
209 C4::Search::History::delete({
213 $all = C4::Search::History::get({userid => $userid});
214 is( scalar(@$all), 0, 'There is no search after calling delete with an interval = -1 days' );
216 # If time is null, it must be set to NOW()
217 my $query_desc_b1_p = q{first previous biblio search};
218 C4::Search::History::add( {
220 sessionid => $previous_sessionid,
221 query_desc => $query_desc_b1_p,
222 query_cgi => $query_cgi_b,
226 my $search_history_id = $dbh->last_insert_id( undef, undef, 'search_history', undef );
227 my $search_history = C4::Search::History::get({ id => $search_history_id });
228 is( output_pref({ dt => dt_from_string($search_history->[0]->{time}), dateonly => 1 }), output_pref({ dt => dt_from_string, dateonly => 1 }), "Inserting a new search history should handle undefined time" );
231 delete_all( $userid );
234 my ( $userid, $current_session_id, $previous_sessionid, $total, $query_cgi_b, $query_cgi_a ) = @_;
236 my $days_ago_2 = dt_from_string()->add_duration( DateTime::Duration->new( days => -2, minutes => 1 ) );
237 my $days_ago_4 = dt_from_string()->add_duration( DateTime::Duration->new( days => -4, minutes => 1 ) );
238 my $days_ago_6 = dt_from_string()->add_duration( DateTime::Duration->new( days => -6, minutes => 1 ) );
239 my $days_ago_8 = dt_from_string()->add_duration( DateTime::Duration->new( days => -8, minutes => 1 ) );
241 my $query_desc_b1_p = q{first previous biblio search};
242 my $first_previous_biblio_search = {
244 sessionid => $previous_sessionid,
245 query_desc => $query_desc_b1_p,
246 query_cgi => $query_cgi_b,
252 my $query_desc_a1_p = q{first previous authority search};
253 my $first_previous_authority_search = {
255 sessionid => $previous_sessionid,
256 query_desc => $query_desc_a1_p,
257 query_cgi => $query_cgi_a,
263 my $query_desc_b2_p = q{second previous biblio search};
264 my $second_previous_biblio_search = {
266 sessionid => $previous_sessionid,
267 query_desc => $query_desc_b2_p,
268 query_cgi => $query_cgi_b,
274 my $query_desc_a2_p = q{second previous authority search};
275 my $second_previous_authority_search = {
277 sessionid => $previous_sessionid,
278 query_desc => $query_desc_a2_p,
279 query_cgi => $query_cgi_a,
286 my $query_desc_b1_c = q{first current biblio search};
288 my $first_current_biblio_search = {
290 sessionid => $current_sessionid,
291 query_desc => $query_desc_b1_c,
292 query_cgi => $query_cgi_b,
298 my $query_desc_a1_c = q{first current authority search};
299 my $first_current_authority_search = {
301 sessionid => $current_sessionid,
302 query_desc => $query_desc_a1_c,
303 query_cgi => $query_cgi_a,
309 my $query_desc_b2_c = q{second current biblio search};
310 my $second_current_biblio_search = {
312 sessionid => $current_sessionid,
313 query_desc => $query_desc_b2_c,
314 query_cgi => $query_cgi_b,
320 my $query_desc_a2_c = q{second current authority search};
321 my $second_current_authority_search = {
323 sessionid => $current_sessionid,
324 query_desc => $query_desc_a2_c,
325 query_cgi => $query_cgi_a,
331 my $query_desc_a3_c = q{third current authority search};
332 my $third_current_authority_search = {
334 sessionid => $current_sessionid,
335 query_desc => $query_desc_a3_c,
336 query_cgi => $query_cgi_a,
344 $r += C4::Search::History::add( $first_current_biblio_search );
345 $r += C4::Search::History::add( $first_current_authority_search );
346 $r += C4::Search::History::add( $second_current_biblio_search );
347 $r += C4::Search::History::add( $second_current_authority_search );
348 $r += C4::Search::History::add( $first_previous_biblio_search );
349 $r += C4::Search::History::add( $first_previous_authority_search );
350 $r += C4::Search::History::add( $second_previous_biblio_search );
351 $r += C4::Search::History::add( $second_previous_authority_search );
352 $r += C4::Search::History::add( $third_current_authority_search );
358 C4::Search::History::delete({
363 subtest 'LoadSearchHistoryToTheFirstLoggedUser working' => sub {
368 my $schema = Koha::Database->schema;
369 my $builder = t::lib::TestBuilder->new;
372 my $hash = hash_password('password');
373 our $patron = $builder->build( { source => 'Borrower' } );
374 Koha::Patrons->find( $patron->{borrowernumber} )->update_password( $patron->{userid}, $hash );
376 my $session = C4::Auth::get_session("");
379 sub myMockedget_from_session {
380 my $expected_recent_searches = [
382 'time' => dt_from_string,
383 'query_cgi' => 'cgi_test',
385 'query_desc' => 'kw,wrdl: history, '
388 return @{$expected_recent_searches};
392 my $getfrom = new Test::MockModule( 'C4::Search::History' );
393 $getfrom->mock( 'get_from_session', \&myMockedget_from_session );
395 my $cgi = new Test::MockModule( 'CGI');
396 $cgi->mock('cookie', sub {
397 my ($self, $key) = @_;
398 if (!ref($key) && $key eq 'CGISESSID'){
403 sub MockedCheckauth {
404 my ($query,$authnotrequired,$flagsrequired,$type) = @_;
405 my $userid = $patron->{userid};
408 superlibrarian => 1, acquisition => 0,
410 catalogue => 1, circulate => 0,
411 coursereserves => 0, editauthorities => 0,
413 parameters => 0, permissions => 0,
414 plugins => 0, reports => 0,
415 reserveforothers => 0, serials => 0,
416 staffaccess => 0, tools => 0,
420 my $session_cookie = $query->cookie(
421 -name => 'CGISESSID',
422 -value => '9884013ae2c441d12e0bc9376242d2a8',
425 return ( $userid, $session_cookie, $sessionID, $flags );
429 my $auth = new Test::MockModule( 'C4::Auth' );
430 $auth->mock( 'checkauth', \&MockedCheckauth );
432 $query->param('koha_login_context', 'opac');
433 $query->param('userid', $patron->{userid});
434 $query->param('password', 'password');
436 # Test when the syspref is disabled
437 t::lib::Mocks::mock_preference('LoadSearchHistoryToTheFirstLoggedUser', 0);
438 my $result = $schema->resultset('SearchHistory')->search()->count;
440 my ( $template, $loggedinuser, $cookies ) = get_template_and_user(
442 template_name => "opac-user.tt",
445 authnotrequired => 0,
450 my $result2 = $schema->resultset('SearchHistory')->search()->count;
451 is($result2, $result, 'no new search added to borrower');
453 # Test when the syspref is enabled
454 t::lib::Mocks::mock_preference('LoadSearchHistoryToTheFirstLoggedUser', 1);
455 $query->param('koha_login_context', 'opac');
456 $query->param('userid', $patron->{userid});
457 $query->param('password', 'password');
459 -name => 'CGISESSID',
460 -value => $session->id,
464 $result = $schema->resultset('SearchHistory')->search()->count;
466 ( $template, $loggedinuser, $cookies ) = get_template_and_user(
468 template_name => "opac-user.tt",
471 authnotrequired => 0,
476 $result2 = $schema->resultset('SearchHistory')->search()->count;
477 is($result2, $result+1, 'new search added to borrower');