If you change your framework for MARC mapping use this script to remap your marc...

The script has to be manually edited to reflect your new mappings. KOHA 3.0 is expected to have new frameworks

diff --git a/misc/rebuild_marc_newframework.pl b/misc/rebuild_marc_newframework.pl
new file mode 100644 (file)
index 0000000..d8dcdc0
--- /dev/null
+++ b/misc/rebuild_marc_newframework.pl
@@ -0,0 +1,86 @@
+#!/usr/bin/perl 
+#-----------------------------------
+# Script Name: rebuild_marc_newframework.pl
+# Script Version: 0.1.0
+# Date:  20/04/2006
+##If you change your framework for marc mapping use this script to recreate marc records in your db
+## Then drop the old framework and install the new one.New frameworks are being introduced with Koha3.0
+##Re-export all your marc and recreate Zebra db.
+##Writen by Tumer Garip tgarip@neu.edu.tr
+
+
+
+use strict;
+
+use C4::Context;
+use C4::Biblio;
+use MARC::Record;
+use MARC::File::USMARC;
+use MARC::File::XML;
+
+my $dbh=C4::Context->dbh;
+use Time::HiRes qw(gettimeofday);
+
+##Write the corresponding new mappings below. this one maps old 090$c$d to new 09o$c$d and  952 holdings of NEU to 95k values
+##Adjust this mapping list to your own needs
+my %mapping_list = (
+       '090cd' =>'09ocd',
+       '952abcdefpruvxyz'=>'95kkbcfazpw9d4ye',
+       );
+
+my $starttime = gettimeofday;
+my $sth=$dbh->prepare("SELECT biblionumber,marc FROM biblioitems ");
+$sth->execute;
+
+my $update=$dbh->prepare("update biblioitems set marc=?,marcxml=? where biblionumber=?");
+
+my $b=0;
+my $timeneeded;
+while (my ($biblionumber, $marc) = $sth->fetchrow) {
+        
+my $record=MARC::File::USMARC::decode($marc);
+
+foreach my $key (keys %mapping_list){
+my $tag=substr($key,0,3);
+my $newtag=substr($mapping_list{$key},0,3);
+my @subf;
+my @newsub;
+       for (my $i=3; $i<length($key); $i++){
+       push @subf,substr($key,$i,1);
+       push @newsub,substr($mapping_list{$key},$i,1);
+       }##
+
+foreach my $field ($record->field($tag)){
+my $notnew=1;
+my $addedfield;
+       for  (my $r=0; $r<@subf; $r++){
+               if ($field->subfield($subf[$r]) && $notnew){
+               $addedfield=MARC::Field->new($newtag,$field->indicator(1),$field->indicator(2),$newsub[$r]=>$field->subfield($subf[$r]));
+               $notnew=0;
+               }elsif ($field->subfield($subf[$r])){
+               $addedfield->update($newsub[$r]=>$field->subfield($subf[$r]));
+               }## a subfield exists
+       }## all subfields added
+$record->delete_field($field); 
+$record->add_fields($addedfield);
+}##foreach field found 
+##Now update-db
+$update->execute($record->as_usmarc,$record->as_xml_record,$biblionumber);
+       
+}##foreach $key
+       $timeneeded = gettimeofday - $starttime unless ($b % 10000);
+       print "$b in $timeneeded s\n" unless ($b % 10000);
+       print "." unless ($b % 500);
+       $b++;
+}##while biblionumber
+
+##Dont forget to export all new marc records and build your zebra db
+
+       
+#      $timeneeded = gettimeofday - $starttime unless ($i % 30000);
+#      print "$i in $timeneeded s\n" unless ($i % 30000);
+#      print "." unless ($i % 500);
+#      $i++;
+
+
+$dbh->disconnect();