From d4f1a8c16af8ca3aa1fc3437e55cbfdf97dffd22 Mon Sep 17 00:00:00 2001 From: Alex Buckley Date: Tue, 9 Jul 2019 06:02:01 +0000 Subject: [PATCH] Bug 13552: Add debar option to batch patron modification Test plan: 1. Go to Tools > Batch patron modification 2. Input the cardnumbers of several (undebarred/unrestricted) patrons and submit 3. Notice there is no input for setting a debarred until (restriction expiration) date or debar comment Also notice in the list of matching borrowers at the top of the page there is no display of the debarred or debarredcomment values for the patron 4. Apply patch 5. Restart memcached and plack 6. Refresh the page notice 'Debarred till' (a date picker input) and 'Debarred comment' are now input options Also notice in the table at the top of the page 'Debarred till' and 'Debarred comment' are shown on the far right of the table (you may need to scroll to see this) 7. Pick a date in the 'Debarred till' datepicker and write in text into the 'Debarred comment' field and submit 8. Notice in the next loaded page the selected patrons have the 'Debarred till' and 'Debarred comment' values you entered 9. Click on the cardnumber link of one of the patrons and notice the red text on their patron account page informing you they are restricted until the date you set 10. In the Koha home directory enter Koha shell: sudo koha-shell 11. Run: prove xt 12. Confirm all tests pass 13. Sign off Sponsored-By: Brimbank Library, Australia Signed-off-by: Josef Moravec Signed-off-by: Owen Leonard Signed-off-by: Katrin Fischer --- .../intranet-tmpl/prog/en/modules/tools/modborrowers.tt | 8 ++++++++ tools/modborrowers.pl | 16 ++++++++++++++-- 2 files changed, 22 insertions(+), 2 deletions(-) diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/tools/modborrowers.tt b/koha-tmpl/intranet-tmpl/prog/en/modules/tools/modborrowers.tt index 01fba7512e..7b817a1be9 100644 --- a/koha-tmpl/intranet-tmpl/prog/en/modules/tools/modborrowers.tt +++ b/koha-tmpl/intranet-tmpl/prog/en/modules/tools/modborrowers.tt @@ -149,6 +149,8 @@ Expiry date Circulation note Opac Note + Debarred till + Debarred comment [% FOREACH attrh IN attributes_header %] [% attrh.attribute | html %] [% END %] @@ -173,6 +175,8 @@ [% borrower.dateexpiry | $KohaDates %] [% borrower.borrowernotes | html %] [% borrower.opacnote | html %] + [% borrower.debarred | $KohaDates %] + [% borrower.debarredcomment | html %] [% FOREACH pa IN borrower.patron_attributes %] [% IF ( pa.code ) %] [% pa.code | html %]=[% pa.value | html %] @@ -229,6 +233,10 @@ Circulation note: [% CASE 'opacnote' %] OPAC note: + [% CASE 'debarred' %] + Debarred till: + [% CASE 'debarredcomment' %] + Debarred comment: [% END %] [% IF ( field.type == 'text' ) %] diff --git a/tools/modborrowers.pl b/tools/modborrowers.pl index 014db945a1..5ab22ab097 100755 --- a/tools/modborrowers.pl +++ b/tools/modborrowers.pl @@ -262,6 +262,18 @@ if ( $op eq 'show' ) { type => "text", mandatory => ( grep /opacnote/, @mandatoryFields ) ? 1 : 0, } + , + { + name => "debarred", + type => "date", + mandatory => ( grep /debarred/, @mandatoryFields ) ? 1 : 0, + } + , + { + name => "debarredcomment", + type => "text", + mandatory => ( grep /debarredcomment/, @mandatoryFields ) ? 1 : 0, + }, ); $template->param('patron_attributes_codes', \@patron_attributes_codes); @@ -275,13 +287,13 @@ if ( $op eq 'do' ) { my @disabled = $input->multi_param('disable_input'); my $infos; - for my $field ( qw/surname firstname branchcode categorycode city state zipcode country sort1 sort2 dateenrolled dateexpiry borrowernotes opacnote/ ) { + for my $field ( qw/surname firstname branchcode categorycode city state zipcode country sort1 sort2 dateenrolled dateexpiry borrowernotes opacnote debarred debarredcomment/ ) { my $value = $input->param($field); $infos->{$field} = $value if $value; $infos->{$field} = "" if grep { /^$field$/ } @disabled; } - for my $field ( qw( dateenrolled dateexpiry ) ) { + for my $field ( qw( dateenrolled dateexpiry debarred ) ) { $infos->{$field} = dt_from_string($infos->{$field}) if $infos->{$field}; } -- 2.11.0