Lines 102-107
my $step = $input->param('step') || 0;
Link Here
|
102 |
my @errors; |
102 |
my @errors; |
103 |
my $borrower_data; |
103 |
my $borrower_data; |
104 |
my $NoUpdateLogin; |
104 |
my $NoUpdateLogin; |
|
|
105 |
my $NoUpdateEmail; |
105 |
my $userenv = C4::Context->userenv; |
106 |
my $userenv = C4::Context->userenv; |
106 |
|
107 |
|
107 |
## Deal with guarantor stuff |
108 |
## Deal with guarantor stuff |
Lines 166-171
if ( $op eq 'modify' or $op eq 'save' or $op eq 'duplicate' ) {
Link Here
|
166 |
my $logged_in_user = Koha::Patrons->find( $loggedinuser ) or die "Not logged in"; |
167 |
my $logged_in_user = Koha::Patrons->find( $loggedinuser ) or die "Not logged in"; |
167 |
output_and_exit_if_error( $input, $cookie, $template, { module => 'members', logged_in_user => $logged_in_user, current_patron => $patron } ); |
168 |
output_and_exit_if_error( $input, $cookie, $template, { module => 'members', logged_in_user => $logged_in_user, current_patron => $patron } ); |
168 |
|
169 |
|
|
|
170 |
# check permission to modify email info. |
171 |
if ( $patron->is_superlibrarian && !$logged_in_user->is_superlibrarian ) { |
172 |
$NoUpdateEmail = 1; |
173 |
} |
174 |
|
169 |
$borrower_data = $patron->unblessed; |
175 |
$borrower_data = $patron->unblessed; |
170 |
$borrower_data->{category_type} = $patron->category->category_type; |
176 |
$borrower_data->{category_type} = $patron->category->category_type; |
171 |
} |
177 |
} |
Lines 206-212
if ( $op eq 'insert' || $op eq 'modify' || $op eq 'save' || $op eq 'duplicate' )
Link Here
|
206 |
push(@errors,"ERROR_$_"); |
212 |
push(@errors,"ERROR_$_"); |
207 |
} |
213 |
} |
208 |
} |
214 |
} |
209 |
# check permission to modify login info. |
215 |
|
|
|
216 |
# check permission to modify login info. |
210 |
if (ref($borrower_data) && ($borrower_data->{'category_type'} eq 'S') && ! (C4::Auth::haspermission($userenv->{'id'},{'staffaccess'=>1})) ) { |
217 |
if (ref($borrower_data) && ($borrower_data->{'category_type'} eq 'S') && ! (C4::Auth::haspermission($userenv->{'id'},{'staffaccess'=>1})) ) { |
211 |
$NoUpdateLogin = 1; |
218 |
$NoUpdateLogin = 1; |
212 |
} |
219 |
} |
Lines 782-787
$template->param(
Link Here
|
782 |
modify => $modify, |
789 |
modify => $modify, |
783 |
nok => $nok,#flag to know if an error |
790 |
nok => $nok,#flag to know if an error |
784 |
NoUpdateLogin => $NoUpdateLogin, |
791 |
NoUpdateLogin => $NoUpdateLogin, |
|
|
792 |
NoUpdateEmail => $NoUpdateEmail, |
785 |
); |
793 |
); |
786 |
|
794 |
|
787 |
# Generate CSRF token |
795 |
# Generate CSRF token |
788 |
- |
|
|