[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,