@@ -, +, @@
modification
---
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
@@ -264,6 +264,12 @@ if ( $op eq 'show' ) {
mandatory => ( grep /opacnote/, @mandatoryFields ) ? 1 : 0,
}
,
+ {
+ name => "email",
+ type => "text",
+ mandatory => ( grep /email/, @mandatoryFields ) ? 1 : 0,
+ }
+ ,
{
name => "debarred",
type => "date",
@@ -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;
--