From e98dacf9f1f8464f0db394da6bc1152f96713597 Mon Sep 17 00:00:00 2001
From: Tomas Cohen Arazi <tomascohen@theke.io>
Date: Fri, 5 Apr 2019 15:13:36 -0300
Subject: [PATCH] Bug 22068: (QA follow-up) Return meaningful error codes

Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>

Signed-off-by: Nick Clemens <nick@bywatersolutions.com>
---
 opac/opac-article-request-cancel.pl |    6 +++++-
 1 files changed, 5 insertions(+), 1 deletions(-)

diff --git a/opac/opac-article-request-cancel.pl b/opac/opac-article-request-cancel.pl
index 0305808..ef9f753 100755
--- a/opac/opac-article-request-cancel.pl
+++ b/opac/opac-article-request-cancel.pl
@@ -41,10 +41,14 @@ my $id = $query->param('id');
 
 if ( $id ) {
     my $ar = Koha::ArticleRequests->find( $id );
-    if ( !$ar || $ar->borrowernumber != $borrowernumber ) {
+    if ( !$ar ) {
         print $query->redirect("/cgi-bin/koha/errors/404.pl");
         exit;
     }
+    elsif ( $ar->borrowernumber != $borrowernumber ) {
+        print $query->redirect("/cgi-bin/koha/errors/403.pl");
+        exit;
+    }
 
     $ar->cancel();
 }
-- 
1.7.2.5