2 use Test::More tests => 3;
8 use Koha::Acquisition::Order;
9 use Koha::Acquisition::Booksellers;
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({
20 my $patron_category = $builder->build({ source => 'Category' });
21 my $currency = $builder->build({ source => 'Currency' });
23 # Creating some orders
24 my $bookseller = Koha::Acquisition::Bookseller->new(
27 address1 => "bookseller's address",
33 my $basketno = NewBasket( $bookseller->id, 1 );
35 my $budgetid = C4::Budgets::AddBudget(
37 budget_code => "budget_code_test_getordersbybib",
38 budget_name => "budget_name_test_getordersbybib",
41 my $budget = C4::Budgets::GetBudget($budgetid);
44 my ( $biblionumber, $biblioitemnumber ) = C4::Biblio::AddBiblio( MARC::Record->new, '' );
46 my $order = Koha::Acquisition::Order->new(
48 basketno => $basketno,
50 biblionumber => $biblionumber,
51 budget_id => $budgetid,
52 entrydate => '01-01-2014',
53 currency => $currency->{currency},
54 notes => "This is a note1",
56 quantityreceived => 0,
61 my $ordernumber = $order->{ordernumber};
63 my $invoiceid = AddInvoice(
64 invoicenumber => 'invoice',
65 booksellerid => $bookseller->id,
69 my $borrowernumber = C4::Members::AddMember(
70 cardnumber => 'TESTCARD',
71 firstname => 'TESTFN',
73 categorycode => $patron_category->{categorycode},
74 branchcode => $library->{branchcode},
76 dateexpiry => '9999-12-31',
77 userid => 'TESTUSERID'
80 C4::Acquisition::ModOrderUsers( $ordernumber, $borrowernumber );
82 my $is_added = grep { /^$borrowernumber$/ } C4::Acquisition::GetOrderUsers( $ordernumber );
83 is( $is_added, 1, 'ModOrderUsers should link patrons to an order' );
85 $order = Koha::Acquisition::Order->fetch({ ordernumber => $ordernumber });
88 biblionumber => $biblionumber,
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');
102 $order = Koha::Acquisition::Order->fetch({ ordernumber => $ordernumber });
105 biblionumber => $biblionumber,
107 quantityreceived => 1,
110 invoiceid => $invoiceid,
112 budget_id => $budgetid,
116 $messages = C4::Letters::GetQueuedMessages({ borrowernumber => $borrowernumber });
117 is( scalar( @$messages ), 1, 'The letter has been sent to message queue on receiving the order');