|
Lines 8-14
use Test::More tests => 2;
Link Here
|
| 8 |
|
8 |
|
| 9 |
use C4::Acquisition; |
9 |
use C4::Acquisition; |
| 10 |
use C4::Biblio; |
10 |
use C4::Biblio; |
| 11 |
use C4::Bookseller; |
|
|
| 12 |
use Koha::Database; |
11 |
use Koha::Database; |
| 13 |
use Koha::CsvProfile; |
12 |
use Koha::CsvProfile; |
| 14 |
|
13 |
|
|
Lines 22-33
$dbh->{RaiseError} = 1;
Link Here
|
| 22 |
|
21 |
|
| 23 |
my $query = CGI->new(); |
22 |
my $query = CGI->new(); |
| 24 |
|
23 |
|
| 25 |
my $vendor_id = C4::Bookseller::AddBookseller({ |
24 |
my $vendor = Koha::Acquisition::Bookseller->new({ |
| 26 |
name => 'my vendor', |
25 |
name => 'my vendor', |
| 27 |
address1 => 'vendor address', |
26 |
address1 => 'vendor address', |
| 28 |
active => 1, |
27 |
active => 1, |
| 29 |
deliverytime => 5, |
28 |
deliverytime => 5, |
| 30 |
}); |
29 |
})->store; |
|
|
30 |
|
| 31 |
my $budget_id = C4::Budgets::AddBudget({ |
31 |
my $budget_id = C4::Budgets::AddBudget({ |
| 32 |
budget_code => 'my_budget_code', |
32 |
budget_code => 'my_budget_code', |
| 33 |
budget_name => 'My budget name', |
33 |
budget_name => 'My budget name', |
|
Lines 42-48
my $csv_profile = Koha::CsvProfile->new({
Link Here
|
| 42 |
})->store; |
42 |
})->store; |
| 43 |
|
43 |
|
| 44 |
my $basketno; |
44 |
my $basketno; |
| 45 |
$basketno = NewBasket($vendor_id, 1); |
45 |
$basketno = NewBasket($vendor->id, 1); |
| 46 |
|
46 |
|
| 47 |
my $biblio = MARC::Record->new(); |
47 |
my $biblio = MARC::Record->new(); |
| 48 |
$biblio->append_fields( |
48 |
$biblio->append_fields( |
| 49 |
- |
|
|