[Koha-cvs] koha/cataloguing z3950_search.pl

[paul poulain]

CVSROOT:        /sources/koha
Module name:    koha
Changes by:     paul poulain <tipaul>   07/06/25 15:06:28

Modified files:
        cataloguing    : z3950_search.pl 

Log message:
        decoding correctly z3950 biblios

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/cataloguing/z3950_search.pl?cvsroot=koha&r1=1.4&r2=1.5

Patches:
Index: z3950_search.pl
===================================================================
RCS file: /sources/koha/koha/cataloguing/z3950_search.pl,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -b -r1.4 -r1.5
--- z3950_search.pl     24 Apr 2007 13:54:29 -0000      1.4
+++ z3950_search.pl     25 Jun 2007 15:06:28 -0000      1.5
@@ -101,18 +101,15 @@
                             
     if ($isbn || $issn) {
                $attr='1=7';
-#          warn "isbn : $isbn";
                $term=$isbn if ($isbn);
                $term=$issn if ($issn);
        } elsif ($title) {
                $attr='1=4 ';
         utf8::decode($title);
-        $title=~tr/������/aaaeeeeiioouu/;
                $term=$title;
        } elsif ($author) {
                $attr='1=1003';
         utf8::decode($author);
-        $author=~tr/������/aaaeeeeiioouu/;
                $term=$author;
        }
 
@@ -173,10 +170,11 @@
                   my $marcrecord;
                   $marcdata = $rec->raw();
                   $marcrecord= FixEncoding($marcdata);
-  ####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
-  ##Add necessary encoding changes to here -TG
+                warn "MARC : ".$marcrecord->as_formatted;
+####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
+##Add necessary encoding changes to here -TG
                   my $oldbiblio = TransformMarcToKoha($dbh,$marcrecord,"");
                   $oldbiblio->{isbn} =~ s/ |-|\.//g,
                   $oldbiblio->{issn} =~ s/ |-|\.//g,