Attachment 26169 Details for Bug 6536 – [TESTPATCH 3.8]8610 Normalize imported Z3950 record

[patch] [TESTPATCH 3.8]8610 Normalize imported Z3950 record

8610-Normalize-imported-Z3950-record.patch (text/plain), 2.85 KB, created by Marcel de Rooy on 2014-03-12 12:39:42 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Marcel de Rooy

Created: 2014-03-12 12:39:42 UTC

Size: 2.85 KB

patch

obsolete

>From 6018d5de2d24275f286e00f94d354cbe7148b443 Mon Sep 17 00:00:00 2001
>From: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
>Date: Thu, 11 Oct 2012 14:39:20 +0200
>Subject: [PATCH] 8610 Normalize imported Z3950 record
>Content-Type: text/plain; charset=utf-8
>
>Aangepast voor 3.8
>---
> C4/Breeding.pm              |    1 +
> C4/ImportBatch.pm           |    1 +
> acqui/z3950_search.pl       |    1 +
> cataloguing/z3950_search.pl |    1 +
> 4 files changed, 4 insertions(+), 0 deletions(-)
>
>diff --git a/C4/Breeding.pm b/C4/Breeding.pm
>index 0653d50..2959ecf 100644
>--- a/C4/Breeding.pm
>+++ b/C4/Breeding.pm
>@@ -93,6 +93,7 @@ sub ImportBreeding {
>         my ($marcrecord, $charset_result, $charset_errors);
>         ($marcrecord, $charset_result, $charset_errors) = 
>             MarcToUTF8Record($marcarray[$i]."\x1D", C4::Context->preference("marcflavour"), $encoding);
>+            SetUTF8Flag($marcrecord);
>         
> #         warn "$i : $marcarray[$i]";
>         # FIXME - currently this does nothing 
>diff --git a/C4/ImportBatch.pm b/C4/ImportBatch.pm
>index 386bac9..c69b836 100644
>--- a/C4/ImportBatch.pm
>+++ b/C4/ImportBatch.pm
>@@ -330,6 +330,7 @@ sub  BatchStageMarcRecords {
>         }
>         my ($marc_record, $charset_guessed, $char_errors) =
>             MarcToUTF8Record($marc_blob, C4::Context->preference("marcflavour"), $encoding);
>+        SetUTF8Flag($marc_record);
> 
>         $encoding = $charset_guessed unless $encoding;
> 
>diff --git a/acqui/z3950_search.pl b/acqui/z3950_search.pl
>index 9dc8b6e..252f05e 100755
>--- a/acqui/z3950_search.pl
>+++ b/acqui/z3950_search.pl
>@@ -273,6 +273,7 @@ warn "query ".$query  if $DEBUG;
>                         my ($charset_result, $charset_errors);
>                         ($marcrecord, $charset_result, $charset_errors) = 
>                           MarcToUTF8Record($marcdata, C4::Context->preference('marcflavour'), $encoding[$k]);
>+                        SetUTF8Flag($marcrecord);
> ####WARNING records coming from Z3950 clients are in various character sets MARC8,UTF8,UNIMARC etc
> ## In HEAD i change everything to UTF-8
> # In rel2_2 i am not sure what encoding is so no character conversion is done here
>diff --git a/cataloguing/z3950_search.pl b/cataloguing/z3950_search.pl
>index a44b5ea..18b0ff2 100755
>--- a/cataloguing/z3950_search.pl
>+++ b/cataloguing/z3950_search.pl
>@@ -241,6 +241,7 @@ warn "query ".$query  if $DEBUG;
>                         my ($charset_result, $charset_errors);
>                         ($marcrecord, $charset_result, $charset_errors) = 
>                           MarcToUTF8Record($marcdata, C4::Context->preference('marcflavour'), $encoding[$k]);
>+                        SetUTF8Flag($marcrecord);
> ####WARNING records coming from Z3950 clients are in various character sets MARC8,UTF8,UNIMARC etc
> ## In HEAD i change everything to UTF-8
> # In rel2_2 i am not sure what encoding is so no character conversion is done here
>-- 
>1.7.7.6

Actions: View | Diff | Splinter Review

Attachments on bug 6536: 4540 | 4541 | 4959 | 6901 | 6919 | 6920 | 6924 | 13462 | 26169 | 26170 | 26171 | 26172 | 29754 | 29755 | 29756 | 29779 | 29780 | 29788 | 29790 | 29791 | 29812 | 29813 | 29814 | 29815 | 29816 | 29817 | 29818 | 29819 | 30189 | 30190 | 30191 | 30192 | 30193 | 30194 | 30900 | 30901 | 30902 | 30903 | 30904 | 30905 | 30906 | 30907 | 30929 | 30930 | 30931 | 30932 | 30933 | 30934 | 30935 | 30936 | 31046 | 31048 | 31137 | 31193 | 31194 | 31195 | 31227 | 31247 | 31248 | 37264