Kyle M Hall
3b70e7e62c
The patron lists feature is somewhat similar to the record lists feature
in that it allows a librarian to create a list of patrons for later
retrieval and manipluation. These lists can then be used with the batch
patron modification tool.
Test Plan:
0) Apply the patch for Bug 8798
1) Apply this patch
2) Run updatedatabase.pl
3) Access the patron lists feature from Koha's Tools menu.
4) Create a new list via the "New patron list" button.
5) For this list, click the "Edit" button, and change the list name.
6) For this list, click the "Add patrons" button, and search for and
add some patrons to your list.
7) For this list select some patrons to remove them.
8) Try both adding some new patrons, and removing some old patrons
as a single action.
9) Click the "Patrons" link on the Koha toolbar
10) Search the patrons, or browse by letter to get patron results
11) Check the checkboxes next to one or more patrons, and add the
selected patrons to your existing list.
12) Change the "Selected patrons" pulldown to "All resultant patrons"
and add them to your list.
13) Check the checkboxes next to one or more patrons, and add the
selected patrons to a new list.
14) Try manipulating a list of patrons using the batch patron
modification tool.
15) Go back to the Patron Lists feature and delete your lists.
16) Run 'prove t/db_dependent/PatronLists.t'
Signed-off-by: Nora Blake <nblake@masslibsystem.org>
Signed-off-by: Galen Charlton <gmc@esilibrary.com>
61 lines
1.7 KiB
Perl
Executable file
61 lines
1.7 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
# Copyright 2013 ByWater Solutions
|
|
#
|
|
# This file is part of Koha.
|
|
#
|
|
# 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 2 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, write to the Free Software Foundation, Inc.,
|
|
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
|
|
|
use Modern::Perl;
|
|
|
|
use CGI;
|
|
|
|
use C4::Auth;
|
|
use C4::Output;
|
|
use Koha::List::Patron;
|
|
|
|
my $cgi = new CGI;
|
|
|
|
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
|
|
{
|
|
template_name => "patron_lists/add-modify.tt",
|
|
query => $cgi,
|
|
type => "intranet",
|
|
authnotrequired => 1,
|
|
}
|
|
);
|
|
|
|
my $id = $cgi->param('patron_list_id');
|
|
my $name = $cgi->param('name');
|
|
|
|
if ($id) {
|
|
my ($list) = GetPatronLists( { patron_list_id => $id } );
|
|
$template->param( list => $list );
|
|
}
|
|
|
|
if ($name) {
|
|
if ($id) {
|
|
ModPatronList( { patron_list_id => $id, name => $name } );
|
|
print $cgi->redirect('lists.pl');
|
|
}
|
|
else {
|
|
my $list = AddPatronList( { name => $name } );
|
|
print $cgi->redirect(
|
|
"list.pl?patron_list_id=" . $list->patron_list_id() );
|
|
}
|
|
|
|
exit;
|
|
}
|
|
|
|
output_html_with_http_headers( $cgi, $cookie, $template->output );
|