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