|
Lines 29-40
use Koha::Virtualshelves;
Link Here
|
| 29 |
|
29 |
|
| 30 |
use_ok( "C4::Utils::DataTables::VirtualShelves" ); |
30 |
use_ok( "C4::Utils::DataTables::VirtualShelves" ); |
| 31 |
|
31 |
|
|
|
32 |
my $schema = Koha::Database->new->schema; |
| 33 |
$schema->storage->txn_begin; |
| 32 |
my $dbh = C4::Context->dbh; |
34 |
my $dbh = C4::Context->dbh; |
| 33 |
|
35 |
|
| 34 |
# Start transaction |
|
|
| 35 |
$dbh->{AutoCommit} = 0; |
| 36 |
$dbh->{RaiseError} = 1; |
| 37 |
|
| 38 |
$dbh->do(q|DELETE FROM virtualshelves|); |
36 |
$dbh->do(q|DELETE FROM virtualshelves|); |
| 39 |
|
37 |
|
| 40 |
# Pick a categorycode from the DB |
38 |
# Pick a categorycode from the DB |
| 41 |
- |
|
|