View | Details | Raw Unified | Return to bug 23590
Collapse All | Expand All

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/common/patron_search.tt (+9 lines)
Lines 53-58 Link Here
53
            <div class="hint">Only staff with superlibrarian or acquisitions permissions (or order_manage permission if granular permissions are enabled) are returned in the search results</div>
53
            <div class="hint">Only staff with superlibrarian or acquisitions permissions (or order_manage permission if granular permissions are enabled) are returned in the search results</div>
54
        [% END %]
54
        [% END %]
55
55
56
        [% IF patrons_with_suggestion_perm_only %]
57
            <div class="hint">Only staff with superlibrarian or suggestions_manage permissions are returned in the search results</div>
58
        [% END %]
59
56
        <div class="browse">
60
        <div class="browse">
57
            Browse by last name:
61
            Browse by last name:
58
            [% FOREACH letter IN alphabet.split(' ') %]
62
            [% FOREACH letter IN alphabet.split(' ') %]
Lines 167-172 Link Here
167
                        'name': 'has_permission',
171
                        'name': 'has_permission',
168
                        'value': 'acquisition.order_manage',
172
                        'value': 'acquisition.order_manage',
169
                    }
173
                    }
174
                    [% ELSIF patrons_with_suggestion_perm_only %]
175
                    ,{
176
                        'name': 'has_permission',
177
                        'value': 'acquisition.suggestions_manage',
178
                    }
170
                    [% END %]
179
                    [% END %]
171
                    );
180
                    );
172
                    $.ajax({
181
                    $.ajax({
(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/suggestion/suggestion.tt (-1 / +1 lines)
Lines 847-853 Link Here
847
847
848
    <script type="text/javascript">
848
    <script type="text/javascript">
849
        function editManagerPopup() {
849
        function editManagerPopup() {
850
            window.open("/cgi-bin/koha/admin/add_user_search.pl?selection_type=select",
850
            window.open("/cgi-bin/koha/suggestion/add_user_search.pl?selection_type=select",
851
                'PatronPopup',
851
                'PatronPopup',
852
                'width=740,height=450,location=yes,toolbar=no,'
852
                'width=740,height=450,location=yes,toolbar=no,'
853
                + 'scrollbars=yes,resize=yes'
853
                + 'scrollbars=yes,resize=yes'
(-)a/suggestion/add_user_search.pl (-1 / +63 lines)
Line 0 Link Here
0
- 
1
#!/usr/bin/perl
2
3
# This file is part of Koha.
4
#
5
# Koha is free software; you can redistribute it and/or modify it
6
# under the terms of the GNU General Public License as published by
7
# the Free Software Foundation; either version 3 of the License, or
8
# (at your option) any later version.
9
#
10
# Koha is distributed in the hope that it will be useful, but
11
# WITHOUT ANY WARRANTY; without even the implied warranty of
12
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13
# GNU General Public License for more details.
14
#
15
# You should have received a copy of the GNU General Public License
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
17
18
use Modern::Perl;
19
20
use CGI qw ( -utf8 );
21
use C4::Auth;
22
use C4::Output;
23
use C4::Members;
24
25
use Koha::Patron::Categories;
26
27
my $input = new CGI;
28
29
my $dbh = C4::Context->dbh;
30
31
my ( $template, $loggedinuser, $cookie, $staff_flags ) = get_template_and_user(
32
    {   template_name   => "common/patron_search.tt",
33
        query           => $input,
34
        type            => "intranet",
35
        authnotrequired => 0,
36
        flagsrequired   => { acquisition => 'suggestions_manage' },
37
    }
38
);
39
40
my $q = $input->param('q') || '';
41
my $op = $input->param('op') || '';
42
my $selection_type = $input->param('selection_type') || 'add';
43
44
my $referer = $input->referer();
45
46
# If this script is called by suggestion/suggestion.pl
47
# the patrons to return should be superlibrarian or have the suggestions_manage flag
48
my $search_patrons_with_suggestion_perm_only =
49
    ( $referer =~ m|suggestion/suggestion.pl| )
50
        ? 1 : 0;
51
52
my $patron_categories = Koha::Patron::Categories->search_limited;
53
$template->param(
54
    patrons_with_suggestion_perm_only => $search_patrons_with_suggestion_perm_only,
55
    view => ( $input->request_method() eq "GET" ) ? "show_form" : "show_results",
56
    columns => ['cardnumber', 'name', 'branch', 'category', 'action'],
57
    json_template => 'acqui/tables/members_results.tt',
58
    selection_type => $selection_type,
59
    alphabet        => ( C4::Context->preference('alphabet') || join ' ', 'A' .. 'Z' ),
60
    categories      => $patron_categories,
61
    aaSorting       => 1,
62
);
63
output_html_with_http_headers( $input, $cookie, $template->output );

Return to bug 23590