Upgrade script :

the koha2marc.pl copies the old DB into the new MARC one. This script must be executed when migrating from 1.2.x to 2.0.x.

diff --git a/misc/dumpmarc.pl b/misc/dumpmarc.pl
index 8043e7a..2e355e6 100755 (executable)
--- a/misc/dumpmarc.pl
+++ b/misc/dumpmarc.pl
@@ -39,3 +39,4 @@ while ( my $record = $batch->next() ) {
        print "\n".$record->as_formatted() if ($i eq $number || $number eq 0);
        $i++;
 }
+print "\n==================\n$i record parsed\n";

diff --git a/misc/koha.upgrade b/misc/koha.upgrade
index 9391deb..4f199c0 100644 (file)
--- a/misc/koha.upgrade
+++ b/misc/koha.upgrade
@@ -491,6 +491,18 @@ In the OPAC VirtualHost section you should have:
 
 You may also need to uncomment a "LoadModules env_module ... " line and restart
 Apache.
+If you're upgrading from 1.2.x version of Koha note that the MARC DB is NOT populated.
+To populate it :
+* launch Koha
+* Go to Parameters >> Marc structure option and Koha-MARC links option.
+* Modify default MARC structure to fit your needs.
+* open a console
+* type:
+cd /path/to/koha/misc
+export PERL5LIB=/path/to/koha
+./koha2marc.pl
+the old DB is "copied" in the new MARC one.
+Koha 2.0.0 is ready :-)
 
 Please report any problems you encounter through http://bugs.koha.org/
 |;

diff --git a/misc/koha2marc.pl b/misc/koha2marc.pl
new file mode 100755 (executable)
index 0000000..13bd151
--- /dev/null
+++ b/misc/koha2marc.pl
@@ -0,0 +1,46 @@
+#!/usr/bin/perl
+
+use C4::Context;
+use CGI;
+use DBI;
+#use strict;
+use C4::Biblio;
+use C4::Output;
+use Getopt::Long;
+
+my ( $confirm,$delete);
+GetOptions(
+       'c' => \$confirm,
+       'd' => \$delete,
+);
+
+my $dbh = C4::Context->dbh;
+if ($delete) {
+       print "deleting MARC tables\n";
+       $dbh->do("delete from marc_biblio");
+       $dbh->do("delete from marc_subfield_table");
+       $dbh->do("delete from marc_blob_subfield");
+       $dbh->do("delete from marc_word");
+}
+
+my $userid=$ENV{'REMOTE_USER'};
+my $sthbiblioitem = $dbh->prepare("select biblioitemnumber from biblioitems where biblionumber=?");
+my $sthitems = $dbh->prepare("select itemnumber from items where biblionumber=?");
+my $sth=$dbh->prepare("select biblionumber from biblio");
+$sth->execute;
+my $env;
+$env->{'marconly'}=1;
+my ($MARC, $biblionumber,$biblioitemnumber,$bibid);
+while (($biblionumber) = $sth->fetchrow) {
+       print "Processing $biblionumber\n";
+       $sthbiblioitem->execute($biblionumber);
+       ($biblioitemnumber) = $sthbiblioitem->fetchrow;
+       $MARC =  &MARCkoha2marcBiblio($dbh,$biblionumber,$biblioitemnumber);
+       $bibid = &MARCaddbiblio($dbh,$MARC,$biblionumber);
+       # now, search items, and add them...
+       $sthitems->execute($biblionumber);
+       while (($itemnumber) = $sthitems->fetchrow) {
+               $MARC = &MARCkoha2marcItem($dbh,$biblionumber,$itemnumber);
+               &MARCadditem($dbh,$MARC,$biblionumber);
+       }
+}