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

(unimarc specific) BUGFIX : if 100$a exist but is not 35 char long, MARC::File::XML may fail 

So, add blanks if needed...

Signed-off-by: Chris Cormack <crc@liblime.com>
This commit is contained in:
Paul POULAIN 2007-09-13 18:16:10 +02:00 committed by Chris Cormack
parent 737730e4a6
commit ec7bd0b2ff
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
misc/migration_tools/22_to_30/rebuild_unimarc_100.pl
View File

@ -35,7 +35,7 @@ sub MARCmodrecord {
$update=1;
my $string;
if ($record->subfield(100,"a")) {
$string = $record->subfield(100,"a");
$string = substr($record->subfield(100,"a")." ",0,35);
my $f100 = $record->field(100);
$record->delete_field($f100);
} else {