@@ -, +, @@ --- .../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}; } --