View | Details | Raw Unified | Return to bug 36085
Collapse All | Expand All

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/members/memberentrygen.tt (-1 / +1 lines)
Lines 1080-1086 legend.collapsed i.fa.fa-caret-down::before { Link Here
1080
                                            </li>
1080
                                            </li>
1081
                                        [% END %]
1081
                                        [% END %]
1082
1082
1083
                                        [% UNLESS noprotected %]
1083
                                        [% UNLESS noprotected || !CanUpdateProtectPatron %]
1084
                                            <li class="radio">
1084
                                            <li class="radio">
1085
                                                <label for="protected">Protected:</label>
1085
                                                <label for="protected">Protected:</label>
1086
                                                [% IF ( patron.protected == 1 ) %]
1086
                                                [% IF ( patron.protected == 1 ) %]
(-)a/members/memberentry.pl (-1 / +4 lines)
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
- 

Return to bug 36085