Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

just reindent

Browse source
This commit is contained in:
tipaul 2007-06-25 15:05:18 +00:00
parent 93e1d66f3c
commit 4843b7e49c
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
C4/Koha.pm
View file

@ -1137,8 +1137,8 @@ sub FixEncoding {
foreach my $subfield ($field->subfields()){ foreach my $subfield ($field->subfields()){
if ($createdfield){ if ($createdfield){
if (($newField->tag eq '100')) { if (($newField->tag eq '100')) {
substr($subfield->[1],26,2,"0103") if ($targetcharset eq "latin1"); substr($subfield->[1],26,2,"0103") if ($targetcharset eq "latin1");
substr($subfield->[1],26,4,"5050") if ($targetcharset eq "utf8"); substr($subfield->[1],26,4,"5050") if ($targetcharset eq "utf8");
} }
map {C4::Biblio::char_decode($_,"UNIMARC")} @$subfield; map {C4::Biblio::char_decode($_,"UNIMARC")} @$subfield;
$newField->add_subfields($subfield->[0]=>$subfield->[1]); $newField->add_subfields($subfield->[0]=>$subfield->[1]);