3 # Copyright 2009 BibLibre SARL
5 # This file is part of Koha.
7 # Koha is free software; you can redistribute it and/or modify it under the
8 # terms of the GNU General Public License as published by the Free Software
9 # Foundation; either version 2 of the License, or (at your option) any later
12 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
13 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
14 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
16 # You should have received a copy of the GNU General Public License along
17 # with Koha; if not, write to the Free Software Foundation, Inc.,
18 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
23 use C4::Auth qw(:DEFAULT get_session ParseSearchHistoryCookie);
25 use JSON qw/decode_json encode_json/;
33 use POSIX qw(strftime);
38 # Getting the template and auth
39 my ($template, $loggedinuser, $cookie)
40 = get_template_and_user({template_name => "opac-search-history.tmpl",
44 flagsrequired => {borrowers => 1},
48 # If the user is not logged in, we deal with the cookie
51 # Deleting search history
52 if ($cgi->param('action') && $cgi->param('action') eq 'delete') {
53 # Deleting cookie's content
54 my $recentSearchesCookie = $cgi->cookie(
55 -name => 'KohaOpacRecentSearches',
56 -value => encode_json([]),
60 # Redirecting to this same url with the cookie in the headers so it's deleted immediately
61 my $uri = $cgi->url();
62 print $cgi->redirect(-uri => $uri,
63 -cookie => $recentSearchesCookie);
65 # Showing search history
68 my @recentSearches = ParseSearchHistoryCookie($cgi);
69 if (@recentSearches) {
71 # As the dates are stored as unix timestamps, let's do some formatting
72 foreach my $asearch (@recentSearches) {
74 # We create an iso date from the unix timestamp
75 my $isodate = strftime "%Y-%m-%d", localtime($asearch->{'time'});
77 # So we can create a C4::Dates object, to get the date formatted according to the dateformat syspref
78 my $date = C4::Dates->new($isodate, "iso");
79 my $sysprefdate = $date->output("syspref");
81 # We also get the time of the day from the unix timestamp
82 my $time = strftime " %H:%M:%S", localtime($asearch->{'time'});
84 # And we got our human-readable date :
85 $asearch->{'time'} = $sysprefdate . $time;
88 $template->param(recentSearches => \@recentSearches);
92 # And if the user is logged in, we deal with the database
94 my $dbh = C4::Context->dbh;
96 # Deleting search history
97 if ($cgi->param('action') && $cgi->param('action') eq 'delete') {
98 my $query = "DELETE FROM search_history WHERE userid = ?";
99 my $sth = $dbh->prepare($query);
100 $sth->execute($loggedinuser);
102 # Redirecting to this same url so the user won't see the search history link in the header
103 my $uri = $cgi->url();
104 print $cgi->redirect($uri);
107 # Showing search history
110 my $date = C4::Dates->new();
111 my $dateformat = $date->DHTMLcalendar() . " %H:%i:%S"; # Current syspref date format + standard time format
113 # Getting the data with date format work done by mysql
114 my $query = "SELECT userid, sessionid, query_desc, query_cgi, total, time FROM search_history WHERE userid = ? AND sessionid = ?";
115 my $sth = $dbh->prepare($query);
116 $sth->execute($loggedinuser, $cgi->cookie("CGISESSID"));
117 my $searches = $sth->fetchall_arrayref({});
118 $template->param(recentSearches => $searches);
120 # Getting searches from previous sessions
121 $query = "SELECT COUNT(*) FROM search_history WHERE userid = ? AND sessionid != ?";
122 $sth = $dbh->prepare($query);
123 $sth->execute($loggedinuser, $cgi->cookie("CGISESSID"));
125 # If at least one search from previous sessions has been performed
126 if ($sth->fetchrow_array > 0) {
127 $query = "SELECT userid, sessionid, query_desc, query_cgi, total, time FROM search_history WHERE userid = ? AND sessionid != ?";
128 $sth = $dbh->prepare($query);
129 $sth->execute($loggedinuser, $cgi->cookie("CGISESSID"));
130 my $previoussearches = $sth->fetchall_arrayref({});
131 $template->param(previousSearches => $previoussearches);
142 $template->param(searchhistoryview => 1);
144 output_html_with_http_headers $cgi, $cookie, $template->output;