[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] koha/C4 Koha.pm [rel_2_2]
From: |
paul poulain |
Subject: |
[Koha-cvs] koha/C4 Koha.pm [rel_2_2] |
Date: |
Wed, 22 Nov 2006 10:22:09 +0000 |
CVSROOT: /cvsroot/koha
Module name: koha
Branch: rel_2_2
Changes by: paul poulain <tipaul> 06/11/22 10:22:09
Modified files:
C4 : Koha.pm
Log message:
removing 2 warns
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Koha.pm?cvsroot=koha&only_with_tag=rel_2_2&r1=1.22.2.5&r2=1.22.2.6
Patches:
Index: Koha.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Koha.pm,v
retrieving revision 1.22.2.5
retrieving revision 1.22.2.6
diff -u -b -r1.22.2.5 -r1.22.2.6
--- Koha.pm 3 Nov 2006 10:56:59 -0000 1.22.2.5
+++ Koha.pm 22 Nov 2006 10:22:08 -0000 1.22.2.6
@@ -669,8 +669,6 @@
$targetcharset="latin1" if (C4::Context->preference("TemplateEncoding") eq
"iso-8859-1");
my $decoder = guess_encoding($marc, qw/utf8 latin1/);
die $decoder unless ref($decoder);
- warn "decodage : ".$decoder->name;
- warn "decodage cible : ".$targetcharset;
my $newRecord=MARC::Record->new();
foreach my $field ($record->fields()){
if ($field->tag()<'010'){
@@ -695,7 +693,7 @@
$newRecord->insert_grouped_field($newField);
}
}
- warn $newRecord->as_formatted();
+# warn $newRecord->as_formatted();
return $newRecord;
} else {
return $record;
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] koha/C4 Koha.pm [rel_2_2],
paul poulain <=