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
6 #use warnings; FIXME - Bug 2505
8 # find Koha's Perl modules
9 # test carefully before changing this
11 eval { require "$FindBin::Bin/../../kohalib.pl" };
19 use MARC::File::USMARC;
22 my $dbh = C4::Context->dbh;
24 my $sth=$dbh->prepare("select m.bibid,b.biblioitemnumber from marc_biblio m left join biblioitems b on b.biblionumber=m.biblionumber ");
27 while (my ($biblionumber,$biblioitemnumber)=$sth->fetchrow ){
28 my $record = MARCgetbiblio($dbh,$biblionumber);
30 MARCmodleader($biblionumber,$record);
35 my ($biblionumber,$record)=@_;
38 #warn "".$record->leader();
39 #if (length($record->leader())>24){
40 # $record->leader(substr($record->leader,0,24));
42 #} elsif (length($record->leader())<24){
43 $record->leader(' nac 22 1u 4500');
47 warn "leader : ".$record->leader if ($biblionumber==2262);
48 foreach ($record->field('995')) {
49 $record->delete_field($_);
52 &ModBiblioMarc($record,'',$biblionumber);
53 print "$biblionumber \n";