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

Adding a test in C4::Charset in UNIMARC_Encoding

This commit is contained in:
Henri-Damien LAURENT 2009-11-13 16:38:49 +01:00
parent 9d52c46dda
commit d83ca6fedf
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

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