|
Lines 15-20
use C4::Budgets;
Link Here
|
| 15 |
use C4::Biblio; |
15 |
use C4::Biblio; |
| 16 |
|
16 |
|
| 17 |
use Koha::Acquisition::Order; |
17 |
use Koha::Acquisition::Order; |
|
|
18 |
use Koha::Database; |
| 18 |
|
19 |
|
| 19 |
BEGIN { |
20 |
BEGIN { |
| 20 |
use_ok('C4::Bookseller'); |
21 |
use_ok('C4::Bookseller'); |
|
Lines 32-39
can_ok(
Link Here
|
| 32 |
|
33 |
|
| 33 |
#Start transaction |
34 |
#Start transaction |
| 34 |
my $dbh = C4::Context->dbh; |
35 |
my $dbh = C4::Context->dbh; |
|
|
36 |
my $database = Koha::Database->new(); |
| 37 |
my $schema = $database->schema(); |
| 38 |
$schema->storage->txn_begin(); |
| 39 |
|
| 35 |
$dbh->{RaiseError} = 1; |
40 |
$dbh->{RaiseError} = 1; |
| 36 |
$dbh->{AutoCommit} = 0; |
|
|
| 37 |
|
41 |
|
| 38 |
#Start tests |
42 |
#Start tests |
| 39 |
$dbh->do(q|DELETE FROM aqorders|); |
43 |
$dbh->do(q|DELETE FROM aqorders|); |
|
Lines 742-748
is( scalar @$contacts,
Link Here
|
| 742 |
1, 'Only one contact after modification' ); |
746 |
1, 'Only one contact after modification' ); |
| 743 |
|
747 |
|
| 744 |
#End transaction |
748 |
#End transaction |
| 745 |
$dbh->rollback; |
749 |
$schema->storage->txn_rollback(); |
| 746 |
|
750 |
|
| 747 |
#field_filter filters the useless fields or foreign keys |
751 |
#field_filter filters the useless fields or foreign keys |
| 748 |
#NOTE: all the fields of aqbookseller arent considered |
752 |
#NOTE: all the fields of aqbookseller arent considered |
| 749 |
- |
|
|