Bug 14954: Remove C4::Dates from holiday related files in folder tools
[koha.git] / catalogue / search-history.pl
blob4a8251f54a4e95b8b3d5572f8f9f4cef8fea8ef8
1 #!/usr/bin/perl
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>
21 use Modern::Perl;
22 use CGI qw ( -utf8 );
24 use C4::Auth;
25 use C4::Search::History;
26 use C4::Output;
28 my $cgi = new CGI;
30 my ($template, $loggedinuser, $cookie) = get_template_and_user({
31 template_name => 'catalogue/search-history.tt',
32 query => $cgi,
33 type => "intranet",
34 authnotrequired => 0,
35 flagsrequired => {catalogue => 1},
36 });
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")
46 : q{};
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 print $cgi->redirect('/cgi-bin/koha/catalogue/search-history.pl');
55 # Showing search history
56 } else {
57 my $current_searches = C4::Search::History::get({
58 userid => $loggedinuser,
59 sessionid => $cgi->cookie("CGISESSID")
60 });
61 my @current_biblio_searches = map {
62 $_->{type} eq 'biblio' ? $_ : ()
63 } @$current_searches;
65 my @current_authority_searches = map {
66 $_->{type} eq 'authority' ? $_ : ()
67 } @$current_searches;
69 my $previous_searches = C4::Search::History::get({
70 userid => $loggedinuser,
71 sessionid => $cgi->cookie("CGISESSID"),
72 previous => 1
73 });
75 my @previous_biblio_searches = map {
76 $_->{type} eq 'biblio' ? $_ : ()
77 } @$previous_searches;
79 my @previous_authority_searches = map {
80 $_->{type} eq 'authority' ? $_ : ()
81 } @$previous_searches;
83 $template->param(
84 current_biblio_searches => \@current_biblio_searches,
85 current_authority_searches => \@current_authority_searches,
86 previous_biblio_searches => \@previous_biblio_searches,
87 previous_authority_searches => \@previous_authority_searches,
93 $template->param(
96 output_html_with_http_headers $cgi, $cookie, $template->output;