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 = $builder->build_object( |
468 |
budget_code => "budget_code_test_letters", |
468 |
{ |
469 |
budget_name => "budget_name_test_letters", |
469 |
class => 'Koha::Acquisition::Funds', |
470 |
}); |
470 |
value => { |
|
|
471 |
budget_code => "budget_code_test_letters", |
472 |
budget_name => "budget_name_test_letters", |
473 |
} |
474 |
} |
475 |
); |
476 |
my $budgetid = $budget->id; |
471 |
|
477 |
|
472 |
my $bib = MARC::Record->new(); |
478 |
my $bib = MARC::Record->new(); |
473 |
if (C4::Context->preference('marcflavour') eq 'UNIMARC') { |
479 |
if (C4::Context->preference('marcflavour') eq 'UNIMARC') { |
474 |
- |
|
|