Lines 3-8
Link Here
|
3 |
use Modern::Perl; |
3 |
use Modern::Perl; |
4 |
use Test::More tests => 37; |
4 |
use Test::More tests => 37; |
5 |
|
5 |
|
|
|
6 |
use C4::Bookseller qw( AddBookseller ); |
6 |
use C4::Context; |
7 |
use C4::Context; |
7 |
use Koha::AdditionalField; |
8 |
use Koha::AdditionalField; |
8 |
|
9 |
|
Lines 121-127
my $budgetid;
Link Here
|
121 |
my $bpid = AddBudgetPeriod({ |
122 |
my $bpid = AddBudgetPeriod({ |
122 |
budget_period_startdate => '01-01-2015', |
123 |
budget_period_startdate => '01-01-2015', |
123 |
budget_period_enddate => '01-01-2016', |
124 |
budget_period_enddate => '01-01-2016', |
124 |
budget_description => "budget desc" |
|
|
125 |
}); |
125 |
}); |
126 |
|
126 |
|
127 |
my $budget_id = AddBudget({ |
127 |
my $budget_id = AddBudget({ |
Lines 129-136
my $budget_id = AddBudget({
Link Here
|
129 |
budget_amount => "123.132", |
129 |
budget_amount => "123.132", |
130 |
budget_name => "Périodiques", |
130 |
budget_name => "Périodiques", |
131 |
budget_notes => "This is a note", |
131 |
budget_notes => "This is a note", |
132 |
budget_description => "Serials", |
|
|
133 |
budget_active => 1, |
134 |
budget_period_id => $bpid |
132 |
budget_period_id => $bpid |
135 |
}); |
133 |
}); |
136 |
|
134 |
|
137 |
- |
|
|