marc/koha2marc

   1 #!/usr/bin/perl
   2
   3
   4 #  CAREFUL!!!!
   5 # This next line deletes _ALL_ of the existing MARC data from the
   6 # MySQL tables!!!  It is only in here during development!!!!
   7
   8 system("mysql Koha -pkohapass < deletemarc");
   9
  10 use C4::Database;
  11 use C4::Catalogue;
  12 use CGI;
  13 use DBI;
  14 #use strict;
  15 use C4::Acquisitions;
  16 use C4::Biblio;
  17 use C4::Output;
  18 my $dbh=C4Connect;
  19 my $userid=$ENV{'REMOTE_USER'};
  20
  21
  22 my $dbh=C4Connect;
  23
  24
  25 my $sth=$dbh->prepare("select * from biblio,biblioitems where biblio.biblionumber=biblioitems.biblionumber");
  26 $sth->execute;
  27 my $env;
  28 $env->{'marconly'}=1;
  29
  30 while (my $biblioitem=$sth->fetchrow_hashref) {
  31     print "Processing $biblioitem->{'title'}\n";
  32     my $Record_ID;
  33     ($env, $Record_ID) = newBiblioItem($env,$biblioitem);
  34     my $sti=$dbh->prepare("select * from items,biblioitems where items.biblioitemnumber=biblioitems.biblioitemnumber and biblioitems.biblioitemnumber=$biblioitem->{'biblioitemnumber'}");
  35     $sti->execute;
  36     while (my $item=$sti->fetchrow_hashref) {
  37         newItem($env, $Record_ID, $item);
  38     }
  39 }