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::Output;
  17 my $dbh=C4Connect;
  18 my $userid=$ENV{'REMOTE_USER'};
  19
  20
  21 my $dbh=C4Connect;
  22
  23
  24 my $sth=$dbh->prepare("select * from biblio,biblioitems where biblio.biblionumber=biblioitems.biblionumber");
  25 $sth->execute;
  26 my $env;
  27 $env->{'marconly'}=1;
  28
  29 while (my $biblioitem=$sth->fetchrow_hashref) {
  30     print "Processing $biblioitem->{'title'}\n";
  31     my $Record_ID;
  32     ($env, $Record_ID) = newBiblioItem($env,$biblioitem);
  33     my $sti=$dbh->prepare("select * from items,biblioitems where items.biblioitemnumber=biblioitems.biblioitemnumber and biblioitems.biblioitemnumber=$biblioitem->{'biblioitemnumber'}");
  34     $sti->execute;
  35     while (my $item=$sti->fetchrow_hashref) {
  36         newItem($env, $Record_ID, $item);
  37     }
  38 }