From cf3b67032e0577ba6f93fd123d5f533da6893595 Mon Sep 17 00:00:00 2001 From: Marcel de Rooy Date: Fri, 12 Aug 2016 09:15:01 +0200 Subject: [PATCH] Bug 17097: [QA Follow-up] Exit after redirect Adds one exit statement, and some whitespace. Signed-off-by: Marcel de Rooy Verified deleting a patron again. Signed-off-by: Mason James --- members/deletemem.pl | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/members/deletemem.pl b/members/deletemem.pl index eb24a025b5..ff49b11f6f 100755 --- a/members/deletemem.pl +++ b/members/deletemem.pl @@ -107,7 +107,7 @@ if (C4::Context->preference("IndependentBranches")) { my $op = $input->param('op') || 'delete_confirm'; my $dbh = C4::Context->dbh; my $is_guarantor = $dbh->selectrow_array("SELECT COUNT(*) FROM borrowers WHERE guarantorid=?", undef, $member); -if ( $op eq 'delete_confirm' or $countissues > 0 or $flags->{'CHARGES'} or $is_guarantor or $deletelocal == 0){ +if ( $op eq 'delete_confirm' or $countissues > 0 or $flags->{'CHARGES'} or $is_guarantor or $deletelocal == 0) { my $patron_image = Koha::Patron::Images->find($bor->{borrowernumber}); $template->param( picture => 1 ) if $patron_image; @@ -154,7 +154,7 @@ if ( $op eq 'delete_confirm' or $countissues > 0 or $flags->{'CHARGES'} or $is_ ), ); } -}elsif ( $op eq 'delete_confirmed' ) { +} elsif ( $op eq 'delete_confirmed' ) { die "Wrong CSRF token" unless Koha::Token->new->check_csrf({ @@ -171,4 +171,3 @@ if ( $op eq 'delete_confirm' or $countissues > 0 or $flags->{'CHARGES'} or $is_ } output_html_with_http_headers $input, $cookie, $template->output; - -- 2.39.5