gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

SIP2 utf8 encoding 

Signed-off-by: Henri-Damien LAURENT <henridamien.laurent@biblibre.com>
This commit is contained in:
kohaadmin 2010-02-18 15:16:47 +01:00 committed by Henri-Damien LAURENT
parent a10625fe91
commit f38d030ed9
3 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
C4/SIP/ILS.pm
View File

@ -7,6 +7,7 @@ package ILS;
use warnings;
use strict;
use Sys::Syslog qw(syslog);
use Encode;
use ILS::Item;
use ILS::Patron;
@ -159,7 +160,7 @@ sub checkout {
$circ->desensitize(!$item->magnetic);
syslog("LOG_DEBUG", "ILS::Checkout: patron %s has checked out %s",
$patron_id, join(', ', @{$patron->{items}}));
$patron_id, join(', ', encode_utf8(@{$patron->{items}})));
}
else {
syslog("LOG_ERR", "ILS::Checkout Issue failed");

3
C4/SIP/ILS/Item.pm
View File

@ -22,6 +22,7 @@ use C4::Items;
use C4::Circulation;
use C4::Members;
use C4::Reserves;
use Encode;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
@ -109,7 +110,7 @@ sub new {
bless $self, $type;
syslog("LOG_DEBUG", "new ILS::Item('%s'): found with title '%s'",
$item_id, $self->{title});
$item_id, encode_utf8($self->{title}));
return $self;
}

3
C4/SIP/Sip.pm
View File

@ -8,6 +8,7 @@ use strict;
use warnings;
use English;
use Exporter;
use Encode;
use Sys::Syslog qw(syslog);
use POSIX qw(strftime);
@ -193,7 +194,7 @@ sub read_SIP_packet {
sub write_msg {
my ($self, $msg, $file) = @_;
my $cksum;
$msg=encode_utf8($msg);
if ($error_detection) {
if (defined($self->{seqno})) {
$msg .= 'AY' . $self->{seqno};