From a579f72ec83761bb4a13e83f884808cd1ed91e20 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>
(cherry picked from commit 6fbc51bf06ba731d35a11ad5be3cba1c154b42a4)
Signed-off-by: Matt Blenkinsop <matt.blenkinsop@ptfs-europe.com>
---
 suggestion/suggestion.pl | 1 +
 1 file changed, 1 insertion(+)

diff --git a/suggestion/suggestion.pl b/suggestion/suggestion.pl
index ecf3f60f15..2f5a497e39 100755
--- a/suggestion/suggestion.pl
+++ b/suggestion/suggestion.pl
@@ -98,6 +98,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.20.1