a77a9a70a2
This second patch removes the previous way to search for serial recipients. Test plan: 1/ Edit the routing list for a subscription (serials/routing.pl?subscriptionid=X) 2/ Add 1+ recipients 3/ Confirm there is no regression on the add/delete/search actions QA note: This search does not use a clean way to interact with the window opener. Indeed the opener is reloaded to display the new item. This patch does not change this behavior, but note the trick in the template (common/patron_search.tt) to wait for the opener in order not to get a JS error. This is also used by the next patch (patron card). Tested together with other patches. Signed-off-by: Marc Veron <veron@veron.ch> Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com> Signed-off-by: Tomas Cohen Arazi <tomascohen@gmail.com>
60 lines
1.9 KiB
Perl
Executable file
60 lines
1.9 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
# This file is part of Koha.
|
|
#
|
|
# Copyright 2014 BibLibre
|
|
#
|
|
# Koha is free software; you can redistribute it and/or modify it
|
|
# under the terms of the GNU General Public License as published by
|
|
# the Free Software Foundation; either version 3 of the License, or
|
|
# (at your option) any later version.
|
|
#
|
|
# Koha is distributed in the hope that it will be useful, but
|
|
# WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
# GNU General Public License for more details.
|
|
#
|
|
# You should have received a copy of the GNU General Public License
|
|
# along with Koha; if not, see <http://www.gnu.org/licenses>.
|
|
|
|
use Modern::Perl;
|
|
|
|
use CGI qw ( -utf8 );
|
|
use C4::Auth;
|
|
use C4::Output;
|
|
use C4::Members;
|
|
|
|
my $input = new CGI;
|
|
|
|
my $dbh = C4::Context->dbh;
|
|
|
|
my ( $template, $loggedinuser, $cookie, $staff_flags ) = get_template_and_user(
|
|
{ template_name => "common/patron_search.tt",
|
|
query => $input,
|
|
type => "intranet",
|
|
authnotrequired => 0,
|
|
flagsrequired => { acquisition => 'budget_modify' },
|
|
}
|
|
);
|
|
|
|
my $q = $input->param('q') || '';
|
|
my $op = $input->param('op') || '';
|
|
my $selection_type = $input->param('selection_type') || 'add';
|
|
|
|
my $referer = $input->referer();
|
|
|
|
# If this script is called by admin/aqbudgets.pl
|
|
# the patrons to return should be superlibrarian or have the order_manage
|
|
# acquisition flag.
|
|
my $search_patrons_with_acq_perm_only =
|
|
( $referer =~ m|admin/aqbudgets.pl| )
|
|
? 1 : 0;
|
|
|
|
$template->param(
|
|
patrons_with_acq_perm_only => $search_patrons_with_acq_perm_only,
|
|
view => ( $input->request_method() eq "GET" ) ? "show_form" : "show_results",
|
|
columns => ['cardnumber', 'name', 'branch', 'category', 'action'],
|
|
json_template => 'acqui/tables/members_results.tt',
|
|
selection_type => $selection_type,
|
|
);
|
|
output_html_with_http_headers( $input, $cookie, $template->output );
|