Bug 19074: Fix category display in Batch patron modification.
[koha.git] / catalogue / search-history.pl
1 #!/usr/bin/perl
2
3 # This file is part of Koha.
4 #
5 # Copyright 2013 BibLibre
6 #
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.
11 #
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.
16 #
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>
20
21 use Modern::Perl;
22 use CGI qw ( -utf8 );
23
24 use C4::Auth;
25 use C4::Search::History;
26 use C4::Output;
27
28 my $cgi = new CGI;
29
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 });
37
38 my $type = $cgi->param('type');
39 my $action = $cgi->param('action') || q{list};
40 my $previous = $cgi->param('previous');
41
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(
48         {
49             userid => $loggedinuser,
50             id     => [ $cgi->param('id') ],
51         }
52     );
53     # Redirecting to this same url so the user won't see the search history link in the header
54     print $cgi->redirect('/cgi-bin/koha/catalogue/search-history.pl');
55
56 # Showing search history
57 } else {
58     my $current_searches = C4::Search::History::get({
59         userid => $loggedinuser,
60         sessionid => $cgi->cookie("CGISESSID")
61     });
62     my @current_biblio_searches = map {
63         $_->{type} eq 'biblio' ? $_ : ()
64     } @$current_searches;
65
66     my @current_authority_searches = map {
67         $_->{type} eq 'authority' ? $_ : ()
68     } @$current_searches;
69
70     my $previous_searches = C4::Search::History::get({
71         userid => $loggedinuser,
72         sessionid => $cgi->cookie("CGISESSID"),
73         previous => 1
74     });
75
76     my @previous_biblio_searches = map {
77         $_->{type} eq 'biblio' ? $_ : ()
78     } @$previous_searches;
79
80     my @previous_authority_searches = map {
81         $_->{type} eq 'authority' ? $_ : ()
82     } @$previous_searches;
83
84     $template->param(
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,
89
90     );
91 }
92
93
94 $template->param(
95 );
96
97 output_html_with_http_headers $cgi, $cookie, $template->output;