From 4984011736a5f7b4b4b46d03b5d6877a58cd83ec Mon Sep 17 00:00:00 2001
From: Chris Cormack <chrisc@catalyst.net.nz>
Date: Tue, 17 Apr 2012 21:00:31 +1200
Subject: [PATCH] Bug 7967 - set charset when doing Z39.50 search

Original patch from Pongtawat
---
 cataloguing/z3950_search.pl |    1 +
 1 files changed, 1 insertions(+), 0 deletions(-)

diff --git a/cataloguing/z3950_search.pl b/cataloguing/z3950_search.pl
index 6e6b417..dd23775 100755
--- a/cataloguing/z3950_search.pl
+++ b/cataloguing/z3950_search.pl
@@ -178,6 +178,7 @@ warn "query ".$query  if $DEBUG;
             $option1->option('databaseName', $server->{db});
             $option1->option('user',         $server->{userid}  ) if $server->{userid};
             $option1->option('password',     $server->{password}) if $server->{password};
+	    $option1->option('charset',      'UTF-8') if $server->{encoding} eq 'utf8';
             $option1->option('preferredRecordSyntax', $server->{syntax});
             $option1->option( 'timeout', $server->{timeout} ) if ($server->{timeout});
             $oConnection[$s] = create ZOOM::Connection($option1)
-- 
1.7.5.4