|
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 |
- |
|
|