@@ -, +, @@ superlibarian emails --- .../prog/en/includes/member-alt-address-style-us.inc | 4 ++++ .../prog/en/modules/members/memberentrygen.tt | 12 ++++++++++-- members/memberentry.pl | 10 +++++++++- 3 files changed, 23 insertions(+), 3 deletions(-) --- a/koha-tmpl/intranet-tmpl/prog/en/includes/member-alt-address-style-us.inc +++ a/koha-tmpl/intranet-tmpl/prog/en/includes/member-alt-address-style-us.inc @@ -141,7 +141,11 @@ + [% IF ( NoUpdateEmail ) %] + + [% ELSE %] + [% END %] [% IF ( mandatoryB_email ) %]Required[% END %] [% END %] [% UNLESS nocontactnote %] --- a/koha-tmpl/intranet-tmpl/prog/en/modules/members/memberentrygen.tt +++ a/koha-tmpl/intranet-tmpl/prog/en/modules/members/memberentrygen.tt @@ -552,7 +552,11 @@ - + [% IF ( NoUpdateEmail ) %] + + [% ELSE %] + + [% END %] [% IF ( mandatoryemail ) %]Required[% END %]
Shows on transit slips
[% END %] @@ -565,7 +569,11 @@ - + [% IF ( NoUpdateEmail ) %] + + [% ELSE %] + + [% END %] [% IF ( mandatoryemailpro ) %]Required[% END %] [% END %] --- a/members/memberentry.pl +++ a/members/memberentry.pl @@ -102,6 +102,7 @@ my $step = $input->param('step') || 0; my @errors; my $borrower_data; my $NoUpdateLogin; +my $NoUpdateEmail; my $userenv = C4::Context->userenv; ## Deal with guarantor stuff @@ -166,6 +167,11 @@ if ( $op eq 'modify' or $op eq 'save' or $op eq 'duplicate' ) { my $logged_in_user = Koha::Patrons->find( $loggedinuser ); output_and_exit_if_error( $input, $cookie, $template, { module => 'members', logged_in_user => $logged_in_user, current_patron => $patron } ); + # check permission to modify email info. + if ( $patron->is_superlibrarian && !$logged_in_user->is_superlibrarian ) { + $NoUpdateEmail = 1; + } + $borrower_data = $patron->unblessed; $borrower_data->{category_type} = $patron->category->category_type; } @@ -206,7 +212,8 @@ if ( $op eq 'insert' || $op eq 'modify' || $op eq 'save' || $op eq 'duplicate' ) push(@errors,"ERROR_$_"); } } - # check permission to modify login info. + + # check permission to modify login info. if (ref($borrower_data) && ($borrower_data->{'category_type'} eq 'S') && ! (C4::Auth::haspermission($userenv->{'id'},{'staffaccess'=>1})) ) { $NoUpdateLogin = 1; } @@ -795,6 +802,7 @@ $template->param( modify => $modify, nok => $nok,#flag to know if an error NoUpdateLogin => $NoUpdateLogin, + NoUpdateEmail => $NoUpdateEmail, ); # Generate CSRF token --