3 # This file is part of Koha.
5 # Copyright 2013 BibLibre
7 # Koha is free software; you can redistribute it and/or modify
8 # it under the terms of the GNU General Public License as
9 # published by the Free Software Foundation; either version 3
10 # of the License, or (at your option) any later version.
12 # Koha is distributed in the hope that it will be useful, but
13 # WITHOUT ANY WARRANTY; without even the implied warranty of
14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 # GNU General Public License for more details.
17 # You should have received a copy of the GNU General
18 # Public License along with Koha; if not, see
19 # <http://www.gnu.org/licenses>
25 use C4::Search::History;
30 my ($template, $loggedinuser, $cookie) = get_template_and_user({
31 template_name => 'catalogue/search-history.tt',
35 flagsrequired => {catalogue => 1},
38 my $type = $cgi->param('type');
39 my $action = $cgi->param('action') || q{list};
40 my $previous = $cgi->param('previous');
42 # Deleting search history
43 if ( $action eq 'delete' ) {
44 my $sessionid = defined $previous
45 ? $cgi->cookie("CGISESSID")
47 C4::Search::History::delete(
49 id => [ $cgi->param('id') ],
52 # Redirecting to this same url so the user won't see the search history link in the header
53 my $uri = $cgi->url();
54 print $cgi->redirect($uri);
56 # Showing search history
58 my $current_searches = C4::Search::History::get({
59 userid => $loggedinuser,
60 sessionid => $cgi->cookie("CGISESSID")
62 my @current_biblio_searches = map {
63 $_->{type} eq 'biblio' ? $_ : ()
66 my @current_authority_searches = map {
67 $_->{type} eq 'authority' ? $_ : ()
70 my $previous_searches = C4::Search::History::get({
71 userid => $loggedinuser,
72 sessionid => $cgi->cookie("CGISESSID"),
76 my @previous_biblio_searches = map {
77 $_->{type} eq 'biblio' ? $_ : ()
78 } @$previous_searches;
80 my @previous_authority_searches = map {
81 $_->{type} eq 'authority' ? $_ : ()
82 } @$previous_searches;
85 current_biblio_searches => \@current_biblio_searches,
86 current_authority_searches => \@current_authority_searches,
87 previous_biblio_searches => \@previous_biblio_searches,
88 previous_authority_searches => \@previous_authority_searches,
97 output_html_with_http_headers $cgi, $cookie, $template->output;