diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/members/moremember.tt b/koha-tmpl/intranet-tmpl/prog/en/modules/members/moremember.tt index a4620be757d..85fc32f61a6 100644 --- a/koha-tmpl/intranet-tmpl/prog/en/modules/members/moremember.tt +++ b/koha-tmpl/intranet-tmpl/prog/en/modules/members/moremember.tt @@ -51,6 +51,10 @@
Insufficient privileges.
[% END %] + [% IF ( error == 'CANT_DELETE_ANONYMOUS_PATRON' ) %] +This patron cannot be deleted while set as AnonymousPatron in the system preferences.
+ [% END %] [% IF ( error == 'CANT_DELETE' ) %]Insufficient privileges.
diff --git a/members/deletemem.pl b/members/deletemem.pl index 8980344df15..a01dd39a871 100755 --- a/members/deletemem.pl +++ b/members/deletemem.pl @@ -83,6 +83,13 @@ if (C4::Context->preference("IndependentBranches")) { } } +if ( my $anonymous_patron = C4::Context->preference("AnonymousPatron") ) { + if ( $patron->id eq $anonymous_patron ) { + print $input->redirect("/cgi-bin/koha/members/moremember.pl?borrowernumber=$member&error=CANT_DELETE_ANONYMOUS_PATRON"); + exit 0; # Exit without error + } +} + my $op = $input->param('op') || 'delete_confirm'; my $dbh = C4::Context->dbh; my $is_guarantor = $patron->guarantee_relationships->count;