11 my ( $confirm,$delete);
17 my $dbh = C4::Context->dbh;
19 print "deleting MARC tables\n";
20 $dbh->do("delete from marc_biblio");
21 $dbh->do("delete from marc_subfield_table");
22 $dbh->do("delete from marc_blob_subfield");
23 $dbh->do("delete from marc_word");
26 my $userid=$ENV{'REMOTE_USER'};
27 my $sthbiblioitem = $dbh->prepare("select biblioitemnumber from biblioitems where biblionumber=?");
28 my $sthitems = $dbh->prepare("select itemnumber from items where biblionumber=?");
29 my $sth=$dbh->prepare("select biblionumber from biblio");
33 my ($MARC, $biblionumber,$biblioitemnumber,$bibid);
34 while (($biblionumber) = $sth->fetchrow) {
35 print "Processing $biblionumber\n";
36 $sthbiblioitem->execute($biblionumber);
37 ($biblioitemnumber) = $sthbiblioitem->fetchrow;
38 $MARC = &MARCkoha2marcBiblio($dbh,$biblionumber,$biblioitemnumber);
39 $bibid = &MARCaddbiblio($dbh,$MARC,$biblionumber);
40 # now, search items, and add them...
41 $sthitems->execute($biblionumber);
42 while (($itemnumber) = $sthitems->fetchrow) {
43 $MARC = &MARCkoha2marcItem($dbh,$biblionumber,$itemnumber);
44 &MARCadditem($dbh,$MARC,$biblionumber);