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

Adding rebuild field 100$a for Unimarc 

Signed-off-by: Chris Cormack <crc@liblime.com>
Signed-off-by: Joshua Ferraro <jmf@liblime.com>
This commit is contained in:
Henri-Damien LAURENT 2007-12-20 15:23:14 +01:00 committed by Joshua Ferraro
parent c71fcc2dc5
commit bdade9bc9d
1 changed files with 26 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
misc/migration_tools/22_to_30/move_marc_to_biblioitems.pl
View File

@ -37,7 +37,13 @@ while (my ($bibid,$biblionumber) = $sth->fetchrow) {
my $record = LocalMARCgetbiblio($dbh,$bibid);
#Force UTF-8 in record leader
$record->encoding('UTF-8');
$sth_update->execute($record->as_usmarc(),$record->as_xml_record(),$biblionumber);
my $marcflavour;
if (C4::Context->preference("marcflavour")=~/unimarc/i){
$marcflavour="UNIMARC";
} else {
$marcflavour="USMARC";
}
$sth_update->execute($record->as_usmarc(),$record->as_xml_record($marcflavour),$biblionumber);
$totaldone++;
print ".";
print "\r$totaldone / $totaltodo" unless ($totaldone % 100);
@ -141,5 +147,24 @@ sub LocalMARCgetbiblio {
$record->add_fields($field);
}
}
if (C4::Context->preference('marcflavour')=~/unimarc/i){
$record->leader(' nac 22 1u 4500');
$update=1;
my $string;
if ($record->field(100)) {
$string = substr($record->subfield(100,"a")." ",0,35);
my $f100 = $record->field(100);
$record->delete_field($f100);
} else {
$string = POSIX::strftime("%Y%m%d", localtime);
$string=~s/\-//g;
$string = sprintf("%-*s",35, $string);
}
substr($string,22,6,"frey50");
unless ($record->subfield(100,"a")){
$record->insert_fields_ordered(MARC::Field->new(100,"","","a"=>"$string"));
}
}
return $record;
}