Bug 17204: Rancor Z39.50 search fails under plack

[srvgit] / members / deletemem.pl

diff --git a/members/deletemem.pl b/members/deletemem.pl
index 7ab61bc..b51c721 100755 (executable)
--- a/members/deletemem.pl
+++ b/members/deletemem.pl
@@ -163,8 +163,7 @@ if ( $op eq 'delete_confirm' or $countissues > 0 or $flags->{'CHARGES'}  or $is_
         });
     my $patron = Koha::Patrons->find( $member );
     $patron->move_to_deleted;
-    C4::Members::HandleDelBorrower($member);
-    DelMember($member);
+    $patron->delete;
     # TODO Tell the user everything went ok
     print $input->redirect("/cgi-bin/koha/members/members-home.pl");
     exit 0; # Exit without error