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

(-)a/koha-tmpl/intranet-tmpl/prog/en/includes/patron_messages.inc (-1 / +19 lines)
Lines 4-10 Link Here
4
[% SET return_claims = patron.return_claims %]
4
[% SET return_claims = patron.return_claims %]
5
[% SET logged_in_branchcode = Branches.GetLoggedInBranchcode() %]
5
[% SET logged_in_branchcode = Branches.GetLoggedInBranchcode() %]
6
6
7
[% IF ( has_modifications || warndeparture || returnbeforeexpiry || expired || patron.gonenoaddress || patron.lost || userdebarred || odues || ( return_claims.count > ClaimReturnedWarningThreshold ) || age_limitations || charges || charges_guarantors_guarantees || charges_guarantees || credits ) %]
7
[% IF ( has_modifications || warndeparture || returnbeforeexpiry || expired || patron.account_locked || patron.gonenoaddress || patron.lost || userdebarred || odues || ( return_claims.count > ClaimReturnedWarningThreshold ) || age_limitations || charges || charges_guarantors_guarantees || charges_guarantees || credits ) %]
8
    <h3>Attention</h3>
8
    <h3>Attention</h3>
9
    <ul>
9
    <ul>
10
        [% IF ( has_modifications ) %]
10
        [% IF ( has_modifications ) %]
Lines 44-49 Link Here
44
            </li>
44
            </li>
45
        [% END %]
45
        [% END %]
46
46
47
        [% IF patron.account_locked %]
48
            [% IF patron.login_attempts < 0 %]
49
                <li class="blocker account_admin_locked">
50
                    <span class="circ-hlt">Locked: </span><span> Patron's account has been administratively locked</span>
51
                </li>
52
            [% ELSE %]
53
                <li class="blocker account_locked">
54
                <span class="circ-hlt">Locked: </span></span> Patron's account has been locked (due to [% patron.login_attempts | html %] failed login attempts)</span>
55
                [% IF CAN_user_borrowers_edit_borrowers %]
56
                    <span>
57
                        <a href="/cgi-bin/koha/members/member-password.pl?member=[% patron.borrowernumber | html %]">Change password</a>
58
                        or <a href="/cgi-bin/koha/members/setstatus.pl?borrowernumber=[% patron.borrowernumber | uri %]&amp;destination=circ&amp;resetloginattempts=y">Reset login attempts</a>
59
                    </span>
60
                [% END %]
61
                </li>
62
            [% END %]
63
        [% END %]
64
47
        [% IF ( patron.gonenoaddress ) %]
65
        [% IF ( patron.gonenoaddress ) %]
48
            <li class="gonenoaddress blocker">
66
            <li class="gonenoaddress blocker">
49
                <span title="gonenoaddress flag is set in patron record"><span class="circ-hlt">Address:</span> Patron's address flagged as in doubt</span>
67
                <span title="gonenoaddress flag is set in patron record"><span class="circ-hlt">Address:</span> Patron's address flagged as in doubt</span>
(-)a/members/setstatus.pl (-1 / +3 lines)
Lines 40-45 my $destination = $input->param("destination") || ''; Link Here
40
my $borrowernumber=$input->param('borrowernumber');
40
my $borrowernumber=$input->param('borrowernumber');
41
my $status = $input->param('status');
41
my $status = $input->param('status');
42
my $reregistration = $input->param('reregistration') || '';
42
my $reregistration = $input->param('reregistration') || '';
43
my $resetloginattempts = $input->param('resetloginattempts') || '';
43
44
44
my $dbh = C4::Context->dbh;
45
my $dbh = C4::Context->dbh;
45
my $dateexpiry;
46
my $dateexpiry;
Lines 54-59 if ( $logged_in_user->can_see_patron_infos($patron) ) { Link Here
54
    if ( $reregistration eq 'y' ) {
55
    if ( $reregistration eq 'y' ) {
55
        # re-reregistration function to automatic calcul of date expiry
56
        # re-reregistration function to automatic calcul of date expiry
56
        $dateexpiry = $patron->renew_account;
57
        $dateexpiry = $patron->renew_account;
58
    } elsif ( $resetloginattempts eq 'y' ) {
59
        $patron->login_attempts(0)->store;
57
    } else {
60
    } else {
58
        my $sth = $dbh->prepare("UPDATE borrowers SET debarred = ?, debarredcomment = '' WHERE borrowernumber = ?");
61
        my $sth = $dbh->prepare("UPDATE borrowers SET debarred = ?, debarredcomment = '' WHERE borrowernumber = ?");
59
        $sth->execute( $status, $borrowernumber );
62
        $sth->execute( $status, $borrowernumber );
60
- 

Return to bug 25947