Attachment #170773 for bug #36085

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

Lines 1085-1091 legend.collapsed i.fa.fa-caret-down::before { Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/members/memberentrygen.tt (-1 / +1 lines)
1085	</li>	1085	</li>
1086	[% END %]	1086	[% END %]
1087		1087
1088	[% UNLESS noprotected %]	1088	[% UNLESS noprotected \|\| !CanUpdateProtectPatron %]
1089	<li class="radio">	1089	<li class="radio">
1090	<label for="protected">Protected:</label>	1090	<label for="protected">Protected:</label>
1091	[% IF ( patron.protected == 1 ) %]	1091	[% IF ( patron.protected == 1 ) %]




my $NoUpdateLogin;
my $NoUpdateEmail;
my $CanUpdatePasswordExpiration;
my $CanUpdateProtectPatron;
my $userenv = C4::Context->userenv;
my @messages;


    }
    if ($logged_in_user->is_superlibrarian) {
        $CanUpdatePasswordExpiration = 1;
        $CanUpdateProtectPatron = 1;
    }

    $borrower_data = $patron->unblessed;

        map { qr/^$_$/ }
        grep { $_ ne 'dateexpiry' } split( /\s*\|\s*/, C4::Context->preference('BorrowerUnwantedField') || q{} );
    push @keys_to_delete, qr/^password_expiration_date$/ unless $CanUpdatePasswordExpiration;
    push @keys_to_delete, qr/^protected$/ unless $CanUpdateProtectPatron;
    for my $regexp (@keys_to_delete) {
        for (keys %newdata) {
            delete($newdata{$_}) if /$regexp/;

  NoUpdateLogin =>  $NoUpdateLogin,
  NoUpdateEmail =>  $NoUpdateEmail,
  CanUpdatePasswordExpiration => $CanUpdatePasswordExpiration,
  CanUpdateProtectPatron => $CanUpdateProtectPatron,
  );

# HouseboundModule data
- 

Return to bug 36085

Lines 95-100 my $borrower_data; Link Here

(-)a/members/memberentry.pl (-1 / +4 lines)
95	my $NoUpdateLogin;	95	my $NoUpdateLogin;
96	my $NoUpdateEmail;	96	my $NoUpdateEmail;
97	my $CanUpdatePasswordExpiration;	97	my $CanUpdatePasswordExpiration;
		98	my $CanUpdateProtectPatron;
98	my $userenv = C4::Context->userenv;	99	my $userenv = C4::Context->userenv;
99	my @messages;	100	my @messages;
100		101
Lines 172-177 if ( $op eq 'edit_form' or $op eq 'cud-save' or $op eq 'duplicate' ) { Link Here
172	}	173	}
173	if ($logged_in_user->is_superlibrarian) {	174	if ($logged_in_user->is_superlibrarian) {
174	$CanUpdatePasswordExpiration = 1;	175	$CanUpdatePasswordExpiration = 1;
		176	$CanUpdateProtectPatron = 1;
175	}	177	}
176		178
177	$borrower_data = $patron->unblessed;	179	$borrower_data = $patron->unblessed;
Lines 233-238 if ( $op eq 'cud-insert' \|\| $op eq 'edit_form' \|\| $op eq 'cud-save' \|\| $op eq 'd Link Here
233	map { qr/^$_$/ }	235	map { qr/^$_$/ }
234	grep { $_ ne 'dateexpiry' } split( /\s\\|\s/, C4::Context->preference('BorrowerUnwantedField') \|\| q{} );	236	grep { $_ ne 'dateexpiry' } split( /\s\\|\s/, C4::Context->preference('BorrowerUnwantedField') \|\| q{} );
235	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;
236	for my $regexp (@keys_to_delete) {	239	for my $regexp (@keys_to_delete) {
237	for (keys %newdata) {	240	for (keys %newdata) {
238	delete($newdata{$_}) if /$regexp/;	241	delete($newdata{$_}) if /$regexp/;
Lines 805-810 $template->param( Link Here
805	NoUpdateLogin => $NoUpdateLogin,	808	NoUpdateLogin => $NoUpdateLogin,
806	NoUpdateEmail => $NoUpdateEmail,	809	NoUpdateEmail => $NoUpdateEmail,
807	CanUpdatePasswordExpiration => $CanUpdatePasswordExpiration,	810	CanUpdatePasswordExpiration => $CanUpdatePasswordExpiration,
		811	CanUpdateProtectPatron => $CanUpdateProtectPatron,
808	);	812	);
809		813
810	# HouseboundModule data	814	# HouseboundModule data
811	-