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