2 use Test::More tests => 3;
9 use Koha::Acquisition::Order;
11 use t::lib::TestBuilder;
13 my $schema = Koha::Database->schema;
14 $schema->storage->txn_begin;
15 my $builder = t::lib::TestBuilder->new;
17 my $library = $builder->build({
21 # Creating some orders
22 my $booksellerid = C4::Bookseller::AddBookseller(
25 address1 => "bookseller's address",
31 my $basketno = NewBasket( $booksellerid, 1 );
33 my $budgetid = C4::Budgets::AddBudget(
35 budget_code => "budget_code_test_getordersbybib",
36 budget_name => "budget_name_test_getordersbybib",
39 my $budget = C4::Budgets::GetBudget($budgetid);
42 my ( $biblionumber, $biblioitemnumber ) = C4::Biblio::AddBiblio( MARC::Record->new, '' );
45 $ordernumber = Koha::Acquisition::Order->new(
47 basketno => $basketno,
49 biblionumber => $biblionumber,
50 budget_id => $budgetid,
51 entrydate => '01-01-2014',
53 notes => "This is a note1",
56 quantityreceived => 0,
60 )->insert->{ordernumber};
62 my $invoiceid = AddInvoice(
63 invoicenumber => 'invoice',
64 booksellerid => $booksellerid,
68 my $borrowernumber = C4::Members::AddMember(
69 cardnumber => 'TESTCARD',
70 firstname => 'TESTFN',
73 branchcode => $library->{branchcode},
75 dateexpiry => '9999-12-31',
76 userid => 'TESTUSERID'
79 my $borrower = C4::Members::GetMemberDetails( $borrowernumber );
81 C4::Acquisition::ModOrderUsers( $ordernumber, $borrowernumber );
83 my $is_added = grep { /^$borrowernumber$/ } C4::Acquisition::GetOrderUsers( $ordernumber );
84 is( $is_added, 1, 'ModOrderUsers should link patrons to an order' );
88 biblionumber => $biblionumber,
89 ordernumber => $ordernumber,
90 quantityreceived => 1,
93 invoiceid => $invoiceid,
95 budget_id => $budgetid,
99 my $messages = C4::Letters::GetQueuedMessages({ borrowernumber => $borrowernumber });
100 is( scalar( @$messages ), 0, 'The letter has not been sent to message queue on receiving the order, the order is not entire received');
104 biblionumber => $biblionumber,
105 ordernumber => $ordernumber,
106 quantityreceived => 1,
109 invoiceid => $invoiceid,
111 budget_id => $budgetid,
115 $messages = C4::Letters::GetQueuedMessages({ borrowernumber => $borrowernumber });
116 is( scalar( @$messages ), 1, 'The letter has been sent to message queue on receiving the order');