};
ModOAISetsBiblios($oai_sets_biblios);
-ModOAISetsBiblios truncate oai_sets_biblios table and call AddOAISetsBiblios.
+ModOAISetsBiblios deletes all records from oai_sets_biblios table and calls AddOAISetsBiblios.
This table is then used in opac/oai.pl.
=cut
my $dbh = C4::Context->dbh;
my $query = qq{
- TRUNCATE TABLE oai_sets_biblios
+ DELETE FROM oai_sets_biblios
};
my $sth = $dbh->prepare($query);
$sth->execute;
# with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
-use C4::Context;
-use Test::More tests => 148;
+
+use Test::More tests => 144;
use Test::MockModule;
use Test::Warn;
+use MARC::Record;
+use Koha::Database;
+use C4::Biblio;
+use C4::OAI::Sets;
-BEGIN {
- use_ok('C4::OAI::Sets');
- use_ok('MARC::Record');
- use_ok('C4::Biblio');
-}
-can_ok(
- 'C4::OAI::Sets', qw(
- GetOAISets
- GetOAISet
- GetOAISetBySpec
- ModOAISet
- DelOAISet
- AddOAISet
- GetOAISetsMappings
- GetOAISetMappings
- ModOAISetMappings
- GetOAISetsBiblio
- DelOAISetsBiblio
- CalcOAISetsBiblio
- ModOAISetsBiblios
- UpdateOAISetsBiblio
- AddOAISetsBiblios )
-);
-
-
+my $schema = Koha::Database->new->schema;
+$schema->storage->txn_begin;
my $dbh = C4::Context->dbh;
-$dbh->{AutoCommit} = 0;
-$dbh->{RaiseError} = 1;
+
$dbh->do('DELETE FROM oai_sets');
$dbh->do('DELETE FROM oai_sets_descriptions');
$dbh->do('DELETE FROM oai_sets_mappings');
return $biblionumber;
}
-$dbh->rollback;
\ No newline at end of file
+$schema->storage->txn_rollback;