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

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/members/moremember.tt (+4 lines)
Lines 55-60 Link Here
55
                                <h3>Unable to delete patrons from other libraries with current settings</h3>
55
                                <h3>Unable to delete patrons from other libraries with current settings</h3>
56
                                <p>Insufficient privileges.</p>
56
                                <p>Insufficient privileges.</p>
57
                            [% END %]
57
                            [% END %]
58
                            [% IF ( error == 'CANT_DELETE_ANONYMOUS_PATRON' ) %]
59
                                <h3>Unable to delete patron that is set as AnonymousPatron</h3>
60
                                <p>This patron cannot be deleted while set as AnonymousPatron in the system preferences.</p>
61
                            [% END %]
58
                            [% IF ( error == 'CANT_DELETE' ) %]
62
                            [% IF ( error == 'CANT_DELETE' ) %]
59
                                <h3>Unable to delete patron</h3>
63
                                <h3>Unable to delete patron</h3>
60
                                <p>Insufficient privileges.</p>
64
                                <p>Insufficient privileges.</p>
(-)a/members/deletemem.pl (-1 / +7 lines)
Lines 82-87 if (C4::Context->preference("IndependentBranches")) { Link Here
82
    }
82
    }
83
}
83
}
84
84
85
if ( my $anonymous_patron = C4::Context->preference("AnonymousPatron") ) {
86
    if ( $patron->id eq $anonymous_patron ) {
87
        print $input->redirect("/cgi-bin/koha/members/moremember.pl?borrowernumber=$member&error=CANT_DELETE_ANONYMOUS_PATRON");
88
        exit 0;    # Exit without error
89
    }
90
}
91
85
my $op = $input->param('op') || 'delete_confirm';
92
my $op = $input->param('op') || 'delete_confirm';
86
my $dbh = C4::Context->dbh;
93
my $dbh = C4::Context->dbh;
87
my $is_guarantor = $dbh->selectrow_array("SELECT COUNT(*) FROM borrowers WHERE guarantorid=?", undef, $member);
94
my $is_guarantor = $dbh->selectrow_array("SELECT COUNT(*) FROM borrowers WHERE guarantorid=?", undef, $member);
88
- 

Return to bug 14708