|
Lines 101-106
my $step = $input->param('step') || 0;
Link Here
|
| 101 |
my @errors; |
101 |
my @errors; |
| 102 |
my $borrower_data; |
102 |
my $borrower_data; |
| 103 |
my $NoUpdateLogin; |
103 |
my $NoUpdateLogin; |
|
|
104 |
my $NoUpdateEmail; |
| 104 |
my $userenv = C4::Context->userenv; |
105 |
my $userenv = C4::Context->userenv; |
| 105 |
my @messages; |
106 |
my @messages; |
| 106 |
|
107 |
|
|
Lines 170-175
if ( $op eq 'modify' or $op eq 'save' or $op eq 'duplicate' ) {
Link Here
|
| 170 |
my $logged_in_user = Koha::Patrons->find( $loggedinuser ); |
171 |
my $logged_in_user = Koha::Patrons->find( $loggedinuser ); |
| 171 |
output_and_exit_if_error( $input, $cookie, $template, { module => 'members', logged_in_user => $logged_in_user, current_patron => $patron } ); |
172 |
output_and_exit_if_error( $input, $cookie, $template, { module => 'members', logged_in_user => $logged_in_user, current_patron => $patron } ); |
| 172 |
|
173 |
|
|
|
174 |
# check permission to modify email info. |
| 175 |
if ( $patron->is_superlibrarian && !$logged_in_user->is_superlibrarian ) { |
| 176 |
$NoUpdateEmail = 1; |
| 177 |
} |
| 178 |
|
| 173 |
$borrower_data = $patron->unblessed; |
179 |
$borrower_data = $patron->unblessed; |
| 174 |
$borrower_data->{category_type} = $patron->category->category_type; |
180 |
$borrower_data->{category_type} = $patron->category->category_type; |
| 175 |
} |
181 |
} |
|
Lines 210-216
if ( $op eq 'insert' || $op eq 'modify' || $op eq 'save' || $op eq 'duplicate' )
Link Here
|
| 210 |
push(@errors,"ERROR_$_"); |
216 |
push(@errors,"ERROR_$_"); |
| 211 |
} |
217 |
} |
| 212 |
} |
218 |
} |
| 213 |
# check permission to modify login info. |
219 |
|
|
|
220 |
# check permission to modify login info. |
| 214 |
if (ref($borrower_data) && ($borrower_data->{'category_type'} eq 'S') && ! (C4::Auth::haspermission($userenv->{'id'},{'staffaccess'=>1})) ) { |
221 |
if (ref($borrower_data) && ($borrower_data->{'category_type'} eq 'S') && ! (C4::Auth::haspermission($userenv->{'id'},{'staffaccess'=>1})) ) { |
| 215 |
$NoUpdateLogin = 1; |
222 |
$NoUpdateLogin = 1; |
| 216 |
} |
223 |
} |
|
Lines 831-836
$template->param(
Link Here
|
| 831 |
modify => $modify, |
838 |
modify => $modify, |
| 832 |
nok => $nok,#flag to know if an error |
839 |
nok => $nok,#flag to know if an error |
| 833 |
NoUpdateLogin => $NoUpdateLogin, |
840 |
NoUpdateLogin => $NoUpdateLogin, |
|
|
841 |
NoUpdateEmail => $NoUpdateEmail, |
| 834 |
); |
842 |
); |
| 835 |
|
843 |
|
| 836 |
# Generate CSRF token |
844 |
# Generate CSRF token |
| 837 |
- |
|
|