|
Lines 173-179
if ( $op eq 'edit_form' or $op eq 'cud-save' or $op eq 'duplicate' ) {
Link Here
|
| 173 |
} |
173 |
} |
| 174 |
if ($logged_in_user->is_superlibrarian) { |
174 |
if ($logged_in_user->is_superlibrarian) { |
| 175 |
$CanUpdatePasswordExpiration = 1; |
175 |
$CanUpdatePasswordExpiration = 1; |
| 176 |
$CanUpdateProtectPatron = 1; |
176 |
$CanUpdateProtectPatron = 1; |
| 177 |
} |
177 |
} |
| 178 |
|
178 |
|
| 179 |
$borrower_data = $patron->unblessed; |
179 |
$borrower_data = $patron->unblessed; |
|
Lines 235-241
if ( $op eq 'cud-insert' || $op eq 'edit_form' || $op eq 'cud-save' || $op eq 'd
Link Here
|
| 235 |
map { qr/^$_$/ } |
235 |
map { qr/^$_$/ } |
| 236 |
grep { $_ ne 'dateexpiry' } split( /\s*\|\s*/, C4::Context->preference('BorrowerUnwantedField') || q{} ); |
236 |
grep { $_ ne 'dateexpiry' } split( /\s*\|\s*/, C4::Context->preference('BorrowerUnwantedField') || q{} ); |
| 237 |
push @keys_to_delete, qr/^password_expiration_date$/ unless $CanUpdatePasswordExpiration; |
237 |
push @keys_to_delete, qr/^password_expiration_date$/ unless $CanUpdatePasswordExpiration; |
| 238 |
push @keys_to_delete, qr/^protected$/ unless $CanUpdateProtectPatron; |
238 |
push @keys_to_delete, qr/^protected$/ unless $CanUpdateProtectPatron; |
| 239 |
for my $regexp (@keys_to_delete) { |
239 |
for my $regexp (@keys_to_delete) { |
| 240 |
for (keys %newdata) { |
240 |
for (keys %newdata) { |
| 241 |
delete($newdata{$_}) if /$regexp/; |
241 |
delete($newdata{$_}) if /$regexp/; |
|
Lines 798-815
$template->param(
Link Here
|
| 798 |
); |
798 |
); |
| 799 |
|
799 |
|
| 800 |
$template->param( |
800 |
$template->param( |
| 801 |
patron => $patron ? $patron : \%newdata, # Used by address include templates now |
801 |
patron => $patron ? $patron : \%newdata, # Used by address include templates now |
| 802 |
nodouble => $nodouble, |
802 |
nodouble => $nodouble, |
| 803 |
borrowernumber => $borrowernumber, #register number |
803 |
borrowernumber => $borrowernumber, #register number |
| 804 |
relshiploop => \@relshipdata, |
804 |
relshiploop => \@relshipdata, |
| 805 |
btitle=> $default_borrowertitle, |
805 |
btitle => $default_borrowertitle, |
| 806 |
modify => $modify, |
806 |
modify => $modify, |
| 807 |
nok => $nok,#flag to know if an error |
807 |
nok => $nok, #flag to know if an error |
| 808 |
NoUpdateLogin => $NoUpdateLogin, |
808 |
NoUpdateLogin => $NoUpdateLogin, |
| 809 |
NoUpdateEmail => $NoUpdateEmail, |
809 |
NoUpdateEmail => $NoUpdateEmail, |
| 810 |
CanUpdatePasswordExpiration => $CanUpdatePasswordExpiration, |
810 |
CanUpdatePasswordExpiration => $CanUpdatePasswordExpiration, |
| 811 |
CanUpdateProtectPatron => $CanUpdateProtectPatron, |
811 |
CanUpdateProtectPatron => $CanUpdateProtectPatron, |
| 812 |
); |
812 |
); |
| 813 |
|
813 |
|
| 814 |
# HouseboundModule data |
814 |
# HouseboundModule data |
| 815 |
$template->param( |
815 |
$template->param( |
| 816 |
- |
|
|