Lines 30-39
use t::lib::Mocks;
Link Here
|
30 |
|
30 |
|
31 |
my $schema = Koha::Database->new()->schema(); |
31 |
my $schema = Koha::Database->new()->schema(); |
32 |
$schema->storage->txn_begin(); |
32 |
$schema->storage->txn_begin(); |
33 |
my $dbh = C4::Context->dbh; |
|
|
34 |
$dbh->{RaiseError} = 1; |
35 |
|
33 |
|
|
|
34 |
# Delete issues to prevent foreign constraint failures. |
36 |
# blank all biblios, biblioitems, and items. |
35 |
# blank all biblios, biblioitems, and items. |
|
|
36 |
$schema->resultset('Issue')->delete(); |
37 |
$schema->resultset('Biblio')->delete(); |
37 |
$schema->resultset('Biblio')->delete(); |
38 |
|
38 |
|
39 |
my $location = 'My Location'; |
39 |
my $location = 'My Location'; |
40 |
- |
|
|