Bug 19080: Handle non-existing patrons gratefully

[koha.git] / members / deletemem.pl

diff --git a/members/deletemem.pl b/members/deletemem.pl
index 5ea015a..b03b5c8 100755 (executable)
--- a/members/deletemem.pl
+++ b/members/deletemem.pl
@@ -75,6 +75,10 @@ my $issues = GetPendingIssues($member);     # FIXME: wasteful call when really,
 my $countissues = scalar(@$issues);
 
 my $patron = Koha::Patrons->find( $member );
+unless ( $patron ) {
+    print $input->redirect("/cgi-bin/koha/circ/circulation.pl?borrowernumber=$borrowernumber");
+    exit;
+}
 my $flags = C4::Members::patronflags( $patron->unblessed );
 my $userenv = C4::Context->userenv;