From 3ac57514e1688fa3845746d17c9b32fea2ea27f7 Mon Sep 17 00:00:00 2001
From: Tomas Cohen Arazi <tomascohen@theke.io>
Date: Thu, 25 Feb 2021 09:35:28 -0300
Subject: [PATCH] Bug 27760: Add stash_overrides helper

This patch adds a simple helper that reads the x-koha-override request
header, and processes it to stash a hashref with the passed overrides.

No check on the overrides themselves is done, as they should be
validated using the OpenAPI spec.

To test:
1. Apply this patch
2. Run:
   $ kshell
  k$ prove t/db_dependent/api/v1/auth_authenticate_api_request.t
=> SUCCESS: Tests pass!
3. Sign off :-D

Signed-off-by: David Nind <david@davidnind.com>
---
 Koha/REST/Plugin/Query.pm  | 28 ++++++++++++++++++++++++++++
 t/Koha/REST/Plugin/Query.t | 27 ++++++++++++++++++++++++++-
 2 files changed, 54 insertions(+), 1 deletion(-)

diff --git a/Koha/REST/Plugin/Query.pm b/Koha/REST/Plugin/Query.pm
index ea6695ff37..32dc9b173c 100644
--- a/Koha/REST/Plugin/Query.pm
+++ b/Koha/REST/Plugin/Query.pm
@@ -240,6 +240,34 @@ Merges parameters from $q_params into $filtered_params.
             return $c;
         }
     );
+
+=head3 stash_overrides
+
+    $c->stash_overrides();
+
+=cut
+
+    $app->helper(
+        'stash_overrides' => sub {
+
+            my ( $c ) = @_;
+
+            my $override_header = $c->req->headers->header('x-koha-override');
+
+            my $overrides = {};
+
+            if ( $override_header ) {
+                my @overrides = ();
+                foreach my $override ( split /\s*,\s*/, $override_header ) {
+                    $overrides->{$override} = 1;
+                }
+            }
+
+            $c->stash( 'koha.overrides' => $overrides );
+
+            return $c;
+        }
+    );
 }
 
 =head2 Internal methods
diff --git a/t/Koha/REST/Plugin/Query.t b/t/Koha/REST/Plugin/Query.t
index b504f3ba5f..9a5ddbe346 100755
--- a/t/Koha/REST/Plugin/Query.t
+++ b/t/Koha/REST/Plugin/Query.t
@@ -255,6 +255,18 @@ get '/stash_embed_no_spec' => sub {
     };
 };
 
+get '/stash_overrides' => sub {
+    my $c = shift;
+
+    $c->stash_overrides();
+    my $overrides = $c->stash('koha.overrides');
+
+    $c->render(
+        status => 200,
+        json   => $overrides
+    );
+};
+
 sub to_model {
     my ($args) = @_;
     $args->{three} = delete $args->{tres}
@@ -264,7 +276,7 @@ sub to_model {
 
 # The tests
 
-use Test::More tests => 6;
+use Test::More tests => 7;
 use Test::Mojo;
 
 subtest 'extract_reserved_params() tests' => sub {
@@ -485,3 +497,16 @@ subtest 'stash_embed() tests' => sub {
       );
 
 };
+
+subtest 'stash_overrides() tests' => sub {
+
+    plan tests => 4;
+
+    my $t = Test::Mojo->new;
+
+    $t->get_ok( '/stash_overrides' => { 'x-koha-override' => 'any,none,some_other,any,' } )
+      ->json_is( { 'any' => 1, 'none' => 1, 'some_other' => 1 } ); # empty string and duplicates are skipped
+
+    $t->get_ok( '/stash_overrides' => { 'x-koha-override' => '' } )
+      ->json_is( {} ); # empty string is skipped
+};
-- 
2.11.0