View | Details | Raw Unified | Return to bug 32132
Collapse All | Expand All

(-)a/t/db_dependent/Acquisition/CancelReceipt.t (-2 / +12 lines)
Lines 54-63 my $basketno1 = C4::Acquisition::NewBasket( Link Here
54
    $bookseller->id
54
    $bookseller->id
55
);
55
);
56
56
57
my $budget_period_id = C4::Budgets::AddBudgetPeriod(
58
    {
59
        budget_period_startdate   => '2024-01-01',
60
        budget_period_enddate     => '2049-01-01',
61
        budget_period_active      => 1,
62
        budget_period_description => "TEST PERIOD"
63
    }
64
);
65
57
my $budgetid = C4::Budgets::AddBudget(
66
my $budgetid = C4::Budgets::AddBudget(
58
    {
67
    {
59
        budget_code => "budget_code_test_transferorder",
68
        budget_code      => "budget_code_test_transferorder",
60
        budget_name => "budget_name_test_transferorder",
69
        budget_name      => "budget_name_test_transferorder",
70
        budget_period_id => $budget_period_id,
61
    }
71
    }
62
);
72
);
63
73
(-)a/t/db_dependent/Acquisition/GetBasketAsCSV.t (-4 / +16 lines)
Lines 28-37 my $vendor = Koha::Acquisition::Bookseller->new({ Link Here
28
    deliverytime => 5,
28
    deliverytime => 5,
29
})->store;
29
})->store;
30
30
31
my $budget_id = C4::Budgets::AddBudget({
31
my $budget_period_id = C4::Budgets::AddBudgetPeriod(
32
    budget_code => 'my_budget_code',
32
    {
33
    budget_name => 'My budget name',
33
        budget_period_startdate   => '2024-01-01',
34
});
34
        budget_period_enddate     => '2049-01-01',
35
        budget_period_active      => 1,
36
        budget_period_description => "TEST PERIOD"
37
    }
38
);
39
40
my $budget_id = C4::Budgets::AddBudget(
41
    {
42
        budget_code      => 'my_budget_code',
43
        budget_name      => 'My budget name',
44
        budget_period_id => $budget_period_id,
45
    }
46
);
35
my $budget = C4::Budgets::GetBudget( $budget_id );
47
my $budget = C4::Budgets::GetBudget( $budget_id );
36
48
37
my $csv_profile = Koha::CsvProfile->new({
49
my $csv_profile = Koha::CsvProfile->new({
(-)a/t/db_dependent/Acquisition/GetBasketGroupAsCSV.t (-4 / +16 lines)
Lines 28-37 my $vendor = Koha::Acquisition::Bookseller->new({ Link Here
28
    deliverytime => 5,
28
    deliverytime => 5,
29
})->store;
29
})->store;
30
30
31
my $budget_id = C4::Budgets::AddBudget({
31
my $budget_period_id = C4::Budgets::AddBudgetPeriod(
32
    budget_code => 'my_budget_code',
32
    {
33
    budget_name => 'My budget name',
33
        budget_period_startdate   => '2024-01-01',
34
});
34
        budget_period_enddate     => '2049-01-01',
35
        budget_period_active      => 1,
36
        budget_period_description => "TEST PERIOD"
37
    }
38
);
39
40
my $budget_id = C4::Budgets::AddBudget(
41
    {
42
        budget_code      => 'my_budget_code',
43
        budget_name      => 'My budget name',
44
        budget_period_id => $budget_period_id,
45
    }
46
);
35
my $budget = C4::Budgets::GetBudget( $budget_id );
47
my $budget = C4::Budgets::GetBudget( $budget_id );
36
48
37
my $basketno = C4::Acquisition::NewBasket($vendor->id, 1);
49
my $basketno = C4::Acquisition::NewBasket($vendor->id, 1);
(-)a/t/db_dependent/Acquisition/GetBasketsInfosByBookseller.t (-2 / +12 lines)
Lines 28-37 my $supplierid = $supplier->id; Link Here
28
my $basketno;
28
my $basketno;
29
ok($basketno = NewBasket($supplierid, 1), 'NewBasket(  $supplierid , 1  ) returns $basketno');
29
ok($basketno = NewBasket($supplierid, 1), 'NewBasket(  $supplierid , 1  ) returns $basketno');
30
30
31
my $budget_period_id = C4::Budgets::AddBudgetPeriod(
32
    {
33
        budget_period_startdate   => '2024-01-01',
34
        budget_period_enddate     => '2049-01-01',
35
        budget_period_active      => 1,
36
        budget_period_description => "TEST PERIOD"
37
    }
38
);
39
31
my $budgetid = C4::Budgets::AddBudget(
40
my $budgetid = C4::Budgets::AddBudget(
32
    {
41
    {
33
        budget_code => 'budget_code_test_1',
42
        budget_code      => 'budget_code_test_1',
34
        budget_name => 'budget_name_test_1',
43
        budget_name      => 'budget_name_test_1',
44
        budget_period_id => $budget_period_id,
35
    }
45
    }
36
);
46
);
37
my $budget = C4::Budgets::GetBudget( $budgetid );
47
my $budget = C4::Budgets::GetBudget( $budgetid );
(-)a/t/db_dependent/Acquisition/GetOrdersByBiblionumber.t (-2 / +12 lines)
Lines 28-37 my $basketno = C4::Acquisition::NewBasket( Link Here
28
    $bookseller->id
28
    $bookseller->id
29
);
29
);
30
30
31
my $budget_period_id = C4::Budgets::AddBudgetPeriod(
32
    {
33
        budget_period_startdate   => '2024-01-01',
34
        budget_period_enddate     => '2049-01-01',
35
        budget_period_active      => 1,
36
        budget_period_description => "TEST PERIOD"
37
    }
38
);
39
31
my $budgetid = C4::Budgets::AddBudget(
40
my $budgetid = C4::Budgets::AddBudget(
32
    {
41
    {
33
        budget_code => "budget_code_test",
42
        budget_code      => "budget_code_test",
34
        budget_name => "budget_name_test",
43
        budget_name      => "budget_name_test",
44
        budget_period_id => $budget_period_id,
35
    }
45
    }
36
);
46
);
37
47
(-)a/t/db_dependent/Acquisition/Invoices.t (-2 / +12 lines)
Lines 34-43 my $booksellerinfo = Koha::Acquisition::Booksellers->find( $booksellerid ); Link Here
34
my $basketno = NewBasket($booksellerid, 1);
34
my $basketno = NewBasket($booksellerid, 1);
35
my $basket   = GetBasket($basketno);
35
my $basket   = GetBasket($basketno);
36
36
37
my $budget_period_id = C4::Budgets::AddBudgetPeriod(
38
    {
39
        budget_period_startdate   => '2024-01-01',
40
        budget_period_enddate     => '2049-01-01',
41
        budget_period_active      => 1,
42
        budget_period_description => "TEST PERIOD"
43
    }
44
);
45
37
my $budgetid = C4::Budgets::AddBudget(
46
my $budgetid = C4::Budgets::AddBudget(
38
    {
47
    {
39
        budget_code => "budget_code_test",
48
        budget_code      => "budget_code_test",
40
        budget_name => "budget_name_test",
49
        budget_name      => "budget_name_test",
50
        budget_period_id => $budget_period_id,
41
    }
51
    }
42
);
52
);
43
my $budget = C4::Budgets::GetBudget( $budgetid );
53
my $budget = C4::Budgets::GetBudget( $budgetid );
(-)a/t/db_dependent/Acquisition/NewOrder.t (-2 / +12 lines)
Lines 34-43 my $basketno = C4::Acquisition::NewBasket( Link Here
34
    $bookseller->id
34
    $bookseller->id
35
);
35
);
36
36
37
my $budget_period_id = C4::Budgets::AddBudgetPeriod(
38
    {
39
        budget_period_startdate   => '2024-01-01',
40
        budget_period_enddate     => '2049-01-01',
41
        budget_period_active      => 1,
42
        budget_period_description => "TEST PERIOD"
43
    }
44
);
45
37
my $budgetid = C4::Budgets::AddBudget(
46
my $budgetid = C4::Budgets::AddBudget(
38
    {
47
    {
39
        budget_code => "budget_code_test",
48
        budget_code      => "budget_code_test",
40
        budget_name => "budget_name_test",
49
        budget_name      => "budget_name_test",
50
        budget_period_id => $budget_period_id,
41
    }
51
    }
42
);
52
);
43
53
(-)a/t/db_dependent/Acquisition/OrderUsers.t (-2 / +12 lines)
Lines 33-42 my $bookseller = Koha::Acquisition::Bookseller->new( Link Here
33
33
34
my $basketno = NewBasket( $bookseller->id, 1 );
34
my $basketno = NewBasket( $bookseller->id, 1 );
35
35
36
my $budget_period_id = C4::Budgets::AddBudgetPeriod(
37
    {
38
        budget_period_startdate   => '2024-01-01',
39
        budget_period_enddate     => '2049-01-01',
40
        budget_period_active      => 1,
41
        budget_period_description => "TEST PERIOD"
42
    }
43
);
44
36
my $budgetid = C4::Budgets::AddBudget(
45
my $budgetid = C4::Budgets::AddBudget(
37
    {
46
    {
38
        budget_code => "budget_code_test",
47
        budget_code      => "budget_code_test",
39
        budget_name => "budget_name_test",
48
        budget_name      => "budget_name_test",
49
        budget_period_id => $budget_period_id,
40
    }
50
    }
41
);
51
);
42
my $budget = C4::Budgets::GetBudget($budgetid);
52
my $budget = C4::Budgets::GetBudget($budgetid);
(-)a/t/db_dependent/Acquisition/TransferOrder.t (-2 / +12 lines)
Lines 47-56 my $basketno2 = C4::Acquisition::NewBasket( Link Here
47
    $bookseller2->id
47
    $bookseller2->id
48
);
48
);
49
49
50
my $budget_period_id = C4::Budgets::AddBudgetPeriod(
51
    {
52
        budget_period_startdate   => '2024-01-01',
53
        budget_period_enddate     => '2049-01-01',
54
        budget_period_active      => 1,
55
        budget_period_description => "TEST PERIOD"
56
    }
57
);
58
50
my $budgetid = C4::Budgets::AddBudget(
59
my $budgetid = C4::Budgets::AddBudget(
51
    {
60
    {
52
        budget_code => "budget_code_test_transferorder",
61
        budget_code      => "budget_code_test_transferorder",
53
        budget_name => "budget_name_test_transferorder",
62
        budget_name      => "budget_name_test_transferorder",
63
        budget_period_id => $budget_period_id,
54
    }
64
    }
55
);
65
);
56
66
(-)a/t/db_dependent/Acquisition/close_reopen_basket.t (-2 / +12 lines)
Lines 34-43 my $basketno = C4::Acquisition::NewBasket( Link Here
34
    $bookseller->id
34
    $bookseller->id
35
);
35
);
36
36
37
my $budget_period_id = C4::Budgets::AddBudgetPeriod(
38
    {
39
        budget_period_startdate   => '2024-01-01',
40
        budget_period_enddate     => '2049-01-01',
41
        budget_period_active      => 1,
42
        budget_period_description => "TEST PERIOD"
43
    }
44
);
45
37
my $budgetid = C4::Budgets::AddBudget(
46
my $budgetid = C4::Budgets::AddBudget(
38
    {
47
    {
39
        budget_code => "budget_code_test_close_reopen",
48
        budget_code      => "budget_code_test_close_reopen",
40
        budget_name => "budget_name_test_close_reopen",
49
        budget_name      => "budget_name_test_close_reopen",
50
        budget_period_id => $budget_period_id,
41
    }
51
    }
42
);
52
);
43
53
(-)a/t/db_dependent/Koha/Acquisition/Funds.t (-4 / +15 lines)
Lines 31-40 $schema->storage->txn_begin; Link Here
31
31
32
my $builder = t::lib::TestBuilder->new;
32
my $builder = t::lib::TestBuilder->new;
33
my $nb_of_funds = Koha::Acquisition::Funds->search->count;
33
my $nb_of_funds = Koha::Acquisition::Funds->search->count;
34
my $new_fund = Koha::Acquisition::Fund->new({
34
my $budget_period_id = C4::Budgets::AddBudgetPeriod(
35
    budget_code => 'my_budget_code_for_test',
35
    {
36
    budget_name => 'my_budget_name_for_test',
36
        budget_period_startdate   => '2024-01-01',
37
})->store;
37
        budget_period_enddate     => '2049-01-01',
38
        budget_period_active      => 1,
39
        budget_period_description => "TEST PERIOD"
40
    }
41
);
42
my $new_fund = Koha::Acquisition::Fund->new(
43
    {
44
        budget_code      => 'my_budget_code_for_test',
45
        budget_name      => 'my_budget_name_for_test',
46
        budget_period_id => $budget_period_id,
47
    }
48
)->store;
38
49
39
like( $new_fund->budget_id, qr|^\d+$|, 'Adding a new fund should have set the budget_id');
50
like( $new_fund->budget_id, qr|^\d+$|, 'Adding a new fund should have set the budget_id');
40
is( Koha::Acquisition::Funds->search->count, $nb_of_funds + 1, 'The fund should have been added' );
51
is( Koha::Acquisition::Funds->search->count, $nb_of_funds + 1, 'The fund should have been added' );
(-)a/t/db_dependent/Letters.t (-5 / +16 lines)
Lines 464-473 Koha::Acquisition::Bookseller::Contact->new( { name => 'John Smith', phone => ' Link Here
464
Koha::Acquisition::Bookseller::Contact->new( { name => 'Leo Tolstoy', phone => '0123456x2', claimissues      => 1, booksellerid => $booksellerid } )->store;
464
Koha::Acquisition::Bookseller::Contact->new( { name => 'Leo Tolstoy', phone => '0123456x2', claimissues      => 1, booksellerid => $booksellerid } )->store;
465
my $basketno = NewBasket($booksellerid, 1, 'The basket name');
465
my $basketno = NewBasket($booksellerid, 1, 'The basket name');
466
466
467
my $budgetid = C4::Budgets::AddBudget({
467
my $budget_period_id = C4::Budgets::AddBudgetPeriod(
468
    budget_code => "budget_code_test_letters",
468
    {
469
    budget_name => "budget_name_test_letters",
469
        budget_period_startdate   => '2024-01-01',
470
});
470
        budget_period_enddate     => '2049-01-01',
471
        budget_period_active      => 1,
472
        budget_period_description => "TEST PERIOD"
473
    }
474
);
475
476
my $budgetid = C4::Budgets::AddBudget(
477
    {
478
        budget_code      => "budget_code_test_letters",
479
        budget_name      => "budget_name_test_letters",
480
        budget_period_id => $budget_period_id,
481
    }
482
);
471
483
472
my $bib = MARC::Record->new();
484
my $bib = MARC::Record->new();
473
if (C4::Context->preference('marcflavour') eq 'UNIMARC') {
485
if (C4::Context->preference('marcflavour') eq 'UNIMARC') {
474
- 

Return to bug 32132