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 ParseSearchHistorySession SetSearchHistorySession);
25 use JSON qw/decode_json encode_json/;
33 use POSIX qw(strftime);
38 # Getting the template and auth
39 my ($template, $loggedinuser, $cookie)= get_template_and_user({template_name => "opac-search-history.tmpl",
43 flagsrequired => {borrowers => 1},
47 # If the user is not logged in, we deal with the session
50 # Deleting search history
51 if ($cgi->param('action') && $cgi->param('action') eq 'delete') {
52 # Deleting session's search history
53 SetSearchHistorySession($cgi, []);
55 # Redirecting to this same url so the user won't see the search history link in the header
56 my $uri = $cgi->url();
57 print $cgi->redirect(-uri => $uri);
58 # Showing search history
61 my @recentSearches = ParseSearchHistorySession($cgi);
62 if (@recentSearches) {
64 # As the dates are stored as unix timestamps, let's do some formatting
65 foreach my $asearch (@recentSearches) {
67 # We create an iso date from the unix timestamp
68 my $isodate = strftime "%Y-%m-%d", localtime($asearch->{'time'});
70 # We also get the time of the day from the unix timestamp
71 my $time = strftime " %H:%M:%S", localtime($asearch->{'time'});
73 # And we got our human-readable date :
74 $asearch->{'time'} = $isodate . $time;
77 $template->param(recentSearches => \@recentSearches);
81 # And if the user is logged in, we deal with the database
83 my $dbh = C4::Context->dbh;
85 # Deleting search history
86 if ($cgi->param('action') && $cgi->param('action') eq 'delete') {
87 my $query = "DELETE FROM search_history WHERE userid = ?";
88 my $sth = $dbh->prepare($query);
89 $sth->execute($loggedinuser);
91 # Redirecting to this same url so the user won't see the search history link in the header
92 my $uri = $cgi->url();
93 print $cgi->redirect($uri);
96 # Showing search history
99 my $date = C4::Dates->new();
100 my $dateformat = $date->DHTMLcalendar() . " %H:%i:%S"; # Current syspref date format + standard time format
102 # Getting the data with date format work done by mysql
103 my $query = "SELECT userid, sessionid, query_desc, query_cgi, total, time FROM search_history WHERE userid = ? AND sessionid = ?";
104 my $sth = $dbh->prepare($query);
105 $sth->execute($loggedinuser, $cgi->cookie("CGISESSID"));
106 my $searches = $sth->fetchall_arrayref({});
107 $template->param(recentSearches => $searches);
109 # Getting searches from previous sessions
110 $query = "SELECT COUNT(*) FROM search_history WHERE userid = ? AND sessionid != ?";
111 $sth = $dbh->prepare($query);
112 $sth->execute($loggedinuser, $cgi->cookie("CGISESSID"));
114 # If at least one search from previous sessions has been performed
115 if ($sth->fetchrow_array > 0) {
116 $query = "SELECT userid, sessionid, query_desc, query_cgi, total, time FROM search_history WHERE userid = ? AND sessionid != ?";
117 $sth = $dbh->prepare($query);
118 $sth->execute($loggedinuser, $cgi->cookie("CGISESSID"));
119 my $previoussearches = $sth->fetchall_arrayref({});
120 $template->param(previousSearches => $previoussearches);
131 $template->param(searchhistoryview => 1);
133 output_html_with_http_headers $cgi, $cookie, $template->output;