From e86a36c1504ecdfc3bf55eed0c913d7158da4ba0 Mon Sep 17 00:00:00 2001
From: Magnus Enger <magnus@libriotech.no>
Date: Tue, 9 Aug 2022 06:49:54 +0000
Subject: [PATCH] Bug 31325: Fix koha-preferences get

To reproduce:
$ perl koha/misc/admin/koha-preferences get MarcFlavour
This will output something like "HASH(0x55dd4d432840)".

To test:
Apply this patch and run the command again:
$ perl koha/misc/admin/koha-preferences get MarcFlavour
This should output something like "MARC21".

Signed-off-by: Owen Leonard <oleonard@myacpl.org>
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
(cherry picked from commit 3f1fe4f178df3423bc95f9a288aaefdda6a6e8c0)

Signed-off-by: Lucas Gass <lucas@bywatersolutions.com>
(cherry picked from commit 92d541ddc4e3fe53c36cee836eb6c9b33f535694)
Signed-off-by: Arthur Suzuki <arthur.suzuki@biblibre.com>
---
 misc/admin/koha-preferences | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/misc/admin/koha-preferences b/misc/admin/koha-preferences
index 635c7a581c..5c07c2b8a7 100755
--- a/misc/admin/koha-preferences
+++ b/misc/admin/koha-preferences
@@ -238,7 +238,9 @@ my %commands = (
 
         print_usage() unless ( $preference );
 
-        print GetPreference( $preference ) . "\n";
+        my $pref = GetPreference( $preference );
+
+        say $pref->{'value'};
     },
     set => sub {
         my ( $preference, $value ) = @_;
-- 
2.20.1