use C4::Acquisition;
use C4::Biblio;
-use C4::Bookseller;
use C4::Letters;
+use Koha::Database;
+use Koha::Acquisition::Booksellers;
+use Koha::Acquisition::Orders;
+use Koha::Patrons;
-use Koha::Acquisition::Order;
+use t::lib::TestBuilder;
-my $dbh = C4::Context->dbh;
-$dbh->{RaiseError} = 1;
-$dbh->{AutoCommit} = 0;
+my $schema = Koha::Database->schema;
+$schema->storage->txn_begin;
+my $builder = t::lib::TestBuilder->new;
+
+my $library = $builder->build({
+ source => "Branch",
+});
+my $patron_category = $builder->build({ source => 'Category' });
+my $currency = $builder->build({ source => 'Currency' });
# Creating some orders
-my $booksellerid = C4::Bookseller::AddBookseller(
+my $bookseller = Koha::Acquisition::Bookseller->new(
{
name => "my vendor",
address1 => "bookseller's address",
phone => "0123456",
active => 1,
}
-);
+)->store;
-my $basketno = NewBasket( $booksellerid, 1 );
+my $basketno = NewBasket( $bookseller->id, 1 );
my $budgetid = C4::Budgets::AddBudget(
{
- budget_code => "budget_code_test_getordersbybib",
- budget_name => "budget_name_test_getordersbybib",
+ budget_code => "budget_code_test",
+ budget_name => "budget_name_test",
}
);
my $budget = C4::Budgets::GetBudget($budgetid);
my @ordernumbers;
my ( $biblionumber, $biblioitemnumber ) = C4::Biblio::AddBiblio( MARC::Record->new, '' );
-my $ordernumber;
-$ordernumber = Koha::Acquisition::Order->new(
+my $order = Koha::Acquisition::Order->new(
{
basketno => $basketno,
quantity => 2,
biblionumber => $biblionumber,
budget_id => $budgetid,
- entrydate => '01-01-2014',
- currency => 'EUR',
- notes => "This is a note1",
- gstrate => 0.0500,
+ entrydate => '2014-01-01',
+ currency => $currency->{currency},
orderstatus => 1,
quantityreceived => 0,
rrp => 10,
ecost => 10,
}
-)->insert->{ordernumber};
+)->store;
+my $ordernumber = $order->ordernumber;
my $invoiceid = AddInvoice(
invoicenumber => 'invoice',
- booksellerid => $booksellerid,
+ booksellerid => $bookseller->id,
unknown => "unknown"
);
-my $borrowernumber = C4::Members::AddMember(
+my $borrowernumber = Koha::Patron->new({
cardnumber => 'TESTCARD',
firstname => 'TESTFN',
surname => 'TESTSN',
- categorycode => 'S',
- branchcode => 'CPL',
+ categorycode => $patron_category->{categorycode},
+ branchcode => $library->{branchcode},
dateofbirth => '',
dateexpiry => '9999-12-31',
userid => 'TESTUSERID'
-);
-
-my $borrower = C4::Members::GetMemberDetails( $borrowernumber );
+})->store->borrowernumber;
C4::Acquisition::ModOrderUsers( $ordernumber, $borrowernumber );
my $is_added = grep { /^$borrowernumber$/ } C4::Acquisition::GetOrderUsers( $ordernumber );
is( $is_added, 1, 'ModOrderUsers should link patrons to an order' );
+$order = Koha::Acquisition::Orders->find( $ordernumber );
ModReceiveOrder(
{
biblionumber => $biblionumber,
- ordernumber => $ordernumber,
+ order => $order->unblessed,
quantityreceived => 1,
cost => 10,
ecost => 10,
my $messages = C4::Letters::GetQueuedMessages({ borrowernumber => $borrowernumber });
is( scalar( @$messages ), 0, 'The letter has not been sent to message queue on receiving the order, the order is not entire received');
+$order = Koha::Acquisition::Orders->find( $ordernumber );
ModReceiveOrder(
{
biblionumber => $biblionumber,
- ordernumber => $ordernumber,
+ order => $order->unblessed,
quantityreceived => 1,
cost => 10,
ecost => 10,