5 # This next line deletes _ALL_ of the existing MARC data from the
6 # MySQL tables!!! It is only in here during development!!!!
8 system("mysql Koha -pkohapass < deletemarc");
18 my $dbh = C4::Context->dbh;
19 my $userid=$ENV{'REMOTE_USER'};
21 my $sth=$dbh->prepare("select * from biblio,biblioitems where biblio.biblionumber=biblioitems.biblionumber");
26 while (my $biblioitem=$sth->fetchrow_hashref) {
27 print "Processing $biblioitem->{'title'}\n";
29 ($env, $Record_ID) = newBiblioItem($env,$biblioitem);
30 my $sti=$dbh->prepare("select * from items,biblioitems where items.biblioitemnumber=biblioitems.biblioitemnumber and biblioitems.biblioitemnumber=$biblioitem->{'biblioitemnumber'}");
32 while (my $item=$sti->fetchrow_hashref) {
33 newItem($env, $Record_ID, $item);