2 # This script finds and fixes missing 090 fields in Koha for MARC21
3 # Written by TG on 01/10/2005
4 # Revised by Joshua Ferraro on 03/31/2006
12 use MARC::File::USMARC;
15 my $dbh = C4::Context->dbh;
17 my $sth=$dbh->prepare("select m.bibid,b.biblioitemnumber from marc_biblio m left join biblioitems b on b.biblionumber=m.biblionumber ");
20 while (my ($biblionumber,$biblioitemnumber)=$sth->fetchrow ){
21 my $record = MARCgetbiblio($dbh,$biblionumber);
23 MARCmodleader($biblionumber,$record);
28 my ($biblionumber,$record)=@_;
31 #warn "".$record->leader();
32 #if (length($record->leader())>24){
33 # $record->leader(substr($record->leader,0,24));
35 #} elsif (length($record->leader())<24){
36 $record->leader(' nac 22 1u 4500');
40 warn "leader : ".$record->leader if ($biblionumber==2262);
41 foreach ($record->field('995')) {
42 $record->delete_field($_);
45 &ModBiblioMarc($record,'',$biblionumber);
46 print "$biblionumber \n";