|
Lines 12-21
use C4::Dates;
Link Here
|
| 12 |
use C4::Members qw( AddMember ); |
12 |
use C4::Members qw( AddMember ); |
| 13 |
|
13 |
|
| 14 |
use Koha::Acquisition::Order; |
14 |
use Koha::Acquisition::Order; |
|
|
15 |
use Koha::Database; |
| 15 |
|
16 |
|
| 16 |
use YAML; |
17 |
use YAML; |
| 17 |
my $dbh = C4::Context->dbh; |
18 |
my $dbh = C4::Context->dbh; |
| 18 |
$dbh->{AutoCommit} = 0; |
19 |
my $database = Koha::Database->new(); |
|
|
20 |
my $schema = $database->schema(); |
| 21 |
$schema->storage->txn_begin(); |
| 19 |
$dbh->{RaiseError} = 1; |
22 |
$dbh->{RaiseError} = 1; |
| 20 |
|
23 |
|
| 21 |
$dbh->do(q|DELETE FROM aqbudgetperiods|); |
24 |
$dbh->do(q|DELETE FROM aqbudgetperiods|); |
|
Lines 579-584
is( C4::Budgets::GetBudget($budget_id2)->{budget_owner_id},
Link Here
|
| 579 |
is( C4::Budgets::GetBudget($budget_id21)->{budget_owner_id}, |
582 |
is( C4::Budgets::GetBudget($budget_id21)->{budget_owner_id}, |
| 580 |
undef, "SetOwnerToFundHierarchy should have set John Doe $john_doe for budget 21 ($budget_id21)" ); |
583 |
undef, "SetOwnerToFundHierarchy should have set John Doe $john_doe for budget 21 ($budget_id21)" ); |
| 581 |
|
584 |
|
|
|
585 |
$schema->storage->txn_rollback(); |
| 586 |
|
| 582 |
sub _get_dependencies { |
587 |
sub _get_dependencies { |
| 583 |
my ($budget_hierarchy) = @_; |
588 |
my ($budget_hierarchy) = @_; |
| 584 |
my $graph; |
589 |
my $graph; |
| 585 |
- |
|
|