gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Better conformance for UNIMARC Authorities Encoding 

encoding is on 8th character and not 9th
This commit is contained in:
Henri-Damien LAURENT 2009-11-12 16:13:22 +01:00
parent 03c51600a0
commit 9d52c46dda
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
C4/Charset.pm
View File

@ -255,7 +255,7 @@ sub SetMarcUnicodeFlag {
$marc_record->leader($leader);
} elsif ($marc_flavour =~/UNIMARC/) {
my $string;
my ($subflength,$encodingposition)=($marc_flavour=~/AUTH/?(21,8):(36,22));
my ($subflength,$encodingposition)=($marc_flavour=~/AUTH/?(21,9):(36,22));
$string=$marc_record->subfield( 100, "a" );
if (length($string)==$subflength) {
$string = substr $string, 0,$subflength if (length($string)>$subflength);