@@ -, +, @@ --- koha-tmpl/intranet-tmpl/prog/en/modules/tools/modborrowers.tt | 4 ++++ tools/modborrowers.pl | 8 +++++++- 2 files changed, 11 insertions(+), 1 deletion(-) --- 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,7 @@ Expiry date Circulation note OPAC note + Email address Restriction expiration Restriction comment [% FOREACH attrh IN attributes_header %] @@ -175,6 +176,7 @@ [% borrower.dateexpiry | $KohaDates %] [% borrower.borrowernotes | html %] [% borrower.opacnote | html %] + [% borrower.email | html %] [% borrower.debarred | $KohaDates %] [% borrower.debarredcomment | html %] [% FOREACH pa IN borrower.patron_attributes %] @@ -233,6 +235,8 @@ Circulation note: [% CASE 'opacnote' %] OPAC note: + [% CASE 'email' %] + Email address: [% CASE 'debarred' %] Restriction expiration: [% CASE 'debarredcomment' %] --- a/tools/modborrowers.pl +++ a/tools/modborrowers.pl @@ -265,6 +265,12 @@ if ( $op eq 'show' ) { } , { + name => "email", + type => "text", + mandatory => ( grep /email/, @mandatoryFields ) ? 1 : 0, + } + , + { name => "debarred", type => "date", mandatory => ( grep /debarred/, @mandatoryFields ) ? 1 : 0, @@ -288,7 +294,7 @@ 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 debarred debarredcomment/ ) { + for my $field ( qw/surname firstname branchcode categorycode city state zipcode country sort1 sort2 dateenrolled dateexpiry borrowernotes opacnote email/ ) { my $value = $input->param($field); $infos->{$field} = $value if $value; $infos->{$field} = "" if grep { /^$field$/ } @disabled; --