@@ -, +, @@
---
.../intranet-tmpl/prog/en/modules/tools/modborrowers.tt | 8 ++++++++
tools/modborrowers.pl | 16 ++++++++++++++--
2 files changed, 22 insertions(+), 2 deletions(-)
--- a/koha-tmpl/intranet-tmpl/prog/en/modules/tools/modborrowers.tt
+++ a/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' ) %]
--- a/tools/modborrowers.pl
+++ a/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};
}
--