use strict;
require Exporter;
-#use C4::Database;
+use C4::Context("/etc/koha.conf.tmp");
use C4::Catalogue;
use C4::Biblio;
use MARC::Record;
use MARC::File::USMARC;
-use C4::Context;
#die;
-#my $dbh=&C4Connect;
-my $dbh=C4::Context->dbh;
+my $dbh = C4::Context->dbh;
+my $sth = $dbh->prepare("select * from systempreferences");
+$sth->execute;
$dbh->do("delete from marc_biblio");
$dbh->do("delete from marc_blob_subfield");
$dbh->do("delete from marc_subfield_table");