2 use Test::More tests => 3;
9 use Koha::Acquisition::Order;
11 my $dbh = C4::Context->dbh;
12 $dbh->{RaiseError} = 1;
13 $dbh->{AutoCommit} = 0;
15 # Creating some orders
16 my $booksellerid = C4::Bookseller::AddBookseller(
19 address1 => "bookseller's address",
25 my $basketno = NewBasket( $booksellerid, 1 );
27 my $budgetid = C4::Budgets::AddBudget(
29 budget_code => "budget_code_test_getordersbybib",
30 budget_name => "budget_name_test_getordersbybib",
33 my $budget = C4::Budgets::GetBudget($budgetid);
36 my ( $biblionumber, $biblioitemnumber ) = C4::Biblio::AddBiblio( MARC::Record->new, '' );
39 $ordernumber = Koha::Acquisition::Order->new(
41 basketno => $basketno,
43 biblionumber => $biblionumber,
44 budget_id => $budgetid,
45 entrydate => '01-01-2014',
47 notes => "This is a note1",
50 quantityreceived => 0,
54 )->insert->{ordernumber};
56 my $invoiceid = AddInvoice(
57 invoicenumber => 'invoice',
58 booksellerid => $booksellerid,
62 my $borrowernumber = C4::Members::AddMember(
63 cardnumber => 'TESTCARD',
64 firstname => 'TESTFN',
69 dateexpiry => '9999-12-31',
70 userid => 'TESTUSERID'
73 my $borrower = C4::Members::GetMemberDetails( $borrowernumber );
75 C4::Acquisition::ModOrderUsers( $ordernumber, $borrowernumber );
77 my $is_added = grep { /^$borrowernumber$/ } C4::Acquisition::GetOrderUsers( $ordernumber );
78 is( $is_added, 1, 'ModOrderUsers should link patrons to an order' );
82 biblionumber => $biblionumber,
83 ordernumber => $ordernumber,
84 quantityreceived => 1,
87 invoiceid => $invoiceid,
89 budget_id => $budgetid,
93 my $messages = C4::Letters::GetQueuedMessages({ borrowernumber => $borrowernumber });
94 is( scalar( @$messages ), 0, 'The letter has not been sent to message queue on receiving the order, the order is not entire received');
98 biblionumber => $biblionumber,
99 ordernumber => $ordernumber,
100 quantityreceived => 1,
103 invoiceid => $invoiceid,
105 budget_id => $budgetid,
109 $messages = C4::Letters::GetQueuedMessages({ borrowernumber => $borrowernumber });
110 is( scalar( @$messages ), 1, 'The letter has been sent to message queue on receiving the order');