From 08bceb9d01c83b870248d2c7b4eac4756deb6270 Mon Sep 17 00:00:00 2001
From: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Date: Thu, 13 Jul 2023 10:40:38 +0100
Subject: [PATCH] Bug 22990: (follow-up) Fix suggestion.pl

Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
(cherry picked from commit 64500a92130f6e879b6a49b5ee7c9f45b7554170)
Signed-off-by: Fridolin Somers <fridolin.somers@biblibre.com>
---
 suggestion/suggestion.pl | 1 +
 1 file changed, 1 insertion(+)

diff --git a/suggestion/suggestion.pl b/suggestion/suggestion.pl
index 3a5b673b16..36a9f063af 100755
--- a/suggestion/suggestion.pl
+++ b/suggestion/suggestion.pl
@@ -99,6 +99,7 @@ my $reasonsloop     = GetAuthorisedValues("SUGGEST");
 
 # filter informations which are not suggestion related.
 my $suggestion_ref  = { %{$input->Vars} }; # Copying, otherwise $input will be modified
+delete $suggestion_ref->{csrf_token};
 
 # get only the columns of Suggestion
 my $schema = Koha::Database->new()->schema;
-- 
2.39.5