Lines 94-99
my $borrower_data;
Link Here
|
94 |
my $NoUpdateLogin; |
94 |
my $NoUpdateLogin; |
95 |
my $NoUpdateEmail; |
95 |
my $NoUpdateEmail; |
96 |
my $CanUpdatePasswordExpiration; |
96 |
my $CanUpdatePasswordExpiration; |
|
|
97 |
my $CanUpdateProtectPatron; |
97 |
my $userenv = C4::Context->userenv; |
98 |
my $userenv = C4::Context->userenv; |
98 |
my @messages; |
99 |
my @messages; |
99 |
|
100 |
|
Lines 171-176
if ( $op eq 'edit_form' or $op eq 'cud-save' or $op eq 'duplicate' ) {
Link Here
|
171 |
} |
172 |
} |
172 |
if ($logged_in_user->is_superlibrarian) { |
173 |
if ($logged_in_user->is_superlibrarian) { |
173 |
$CanUpdatePasswordExpiration = 1; |
174 |
$CanUpdatePasswordExpiration = 1; |
|
|
175 |
$CanUpdateProtectPatron = 1; |
174 |
} |
176 |
} |
175 |
|
177 |
|
176 |
$borrower_data = $patron->unblessed; |
178 |
$borrower_data = $patron->unblessed; |
Lines 232-237
if ( $op eq 'cud-insert' || $op eq 'edit_form' || $op eq 'cud-save' || $op eq 'd
Link Here
|
232 |
map { qr/^$_$/ } |
234 |
map { qr/^$_$/ } |
233 |
grep { $_ ne 'dateexpiry' } split( /\s*\|\s*/, C4::Context->preference('BorrowerUnwantedField') || q{} ); |
235 |
grep { $_ ne 'dateexpiry' } split( /\s*\|\s*/, C4::Context->preference('BorrowerUnwantedField') || q{} ); |
234 |
push @keys_to_delete, qr/^password_expiration_date$/ unless $CanUpdatePasswordExpiration; |
236 |
push @keys_to_delete, qr/^password_expiration_date$/ unless $CanUpdatePasswordExpiration; |
|
|
237 |
push @keys_to_delete, qr/^protected$/ unless $CanUpdateProtectPatron; |
235 |
for my $regexp (@keys_to_delete) { |
238 |
for my $regexp (@keys_to_delete) { |
236 |
for (keys %newdata) { |
239 |
for (keys %newdata) { |
237 |
delete($newdata{$_}) if /$regexp/; |
240 |
delete($newdata{$_}) if /$regexp/; |
Lines 802-807
$template->param(
Link Here
|
802 |
NoUpdateLogin => $NoUpdateLogin, |
805 |
NoUpdateLogin => $NoUpdateLogin, |
803 |
NoUpdateEmail => $NoUpdateEmail, |
806 |
NoUpdateEmail => $NoUpdateEmail, |
804 |
CanUpdatePasswordExpiration => $CanUpdatePasswordExpiration, |
807 |
CanUpdatePasswordExpiration => $CanUpdatePasswordExpiration, |
|
|
808 |
CanUpdateProtectPatron => $CanUpdateProtectPatron, |
805 |
); |
809 |
); |
806 |
|
810 |
|
807 |
# HouseboundModule data |
811 |
# HouseboundModule data |
808 |
- |
|
|