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 |
- |
|
|