t/db_dependent/Acquisition/CancelReceipt.t

   1 #!/usr/bin/perl
   2
   3 use Modern::Perl;
   4
   5 use Test::More tests => 4;
   6 use C4::Context;
   7 use C4::Acquisition;
   8 use C4::Biblio;
   9 use C4::Items;
  10 use C4::Bookseller;
  11 use C4::Budgets;
  12 use t::lib::Mocks;
  13
  14 use Koha::DateUtils;
  15 use Koha::Acquisition::Order;
  16 use MARC::Record;
  17
  18 my $dbh = C4::Context->dbh;
  19 $dbh->{RaiseError} = 1;
  20 $dbh->{AutoCommit} = 0;
  21
  22 my $booksellerid1 = C4::Bookseller::AddBookseller(
  23     {
  24         name => "my vendor 1",
  25         address1 => "bookseller's address",
  26         phone => "0123456",
  27         active => 1
  28     }
  29 );
  30
  31 my $basketno1 = C4::Acquisition::NewBasket(
  32     $booksellerid1
  33 );
  34
  35 my $budgetid = C4::Budgets::AddBudget(
  36     {
  37         budget_code => "budget_code_test_transferorder",
  38         budget_name => "budget_name_test_transferorder",
  39     }
  40 );
  41
  42 my $budget = C4::Budgets::GetBudget( $budgetid );
  43
  44 my ($biblionumber, $biblioitemnumber) = AddBiblio(MARC::Record->new, '');
  45 my $itemnumber = AddItem({}, $biblionumber);
  46
  47 t::lib::Mocks::mock_preference('AcqCreateItem', 'receiving');
  48 my $order = Koha::Acquisition::Order->new(
  49     {
  50         basketno => $basketno1,
  51         quantity => 2,
  52         biblionumber => $biblionumber,
  53         budget_id => $budget->{budget_id},
  54     }
  55 )->insert;
  56 my $ordernumber = $order->{ordernumber};
  57
  58 ModReceiveOrder(
  59     {
  60         biblionumber     => $biblionumber,
  61         ordernumber      => $ordernumber,
  62         quantityreceived => 2,
  63         datereceived     => dt_from_string
  64     }
  65 );
  66
  67 $order->add_item( $itemnumber );
  68
  69 CancelReceipt($ordernumber);
  70
  71 $order = GetOrder( $ordernumber );
  72 is(scalar GetItemnumbersFromOrder($order->{ordernumber}), 0, "Create items on receiving: 0 item exist after cancelling a receipt");
  73
  74 my $itemnumber1 = AddItem({}, $biblionumber);
  75 my $itemnumber2 = AddItem({}, $biblionumber);
  76 t::lib::Mocks::mock_preference('AcqCreateItem', 'ordering');
  77 t::lib::Mocks::mock_preference('AcqItemSetSubfieldsWhenReceiptIsCancelled', '7=9'); # notforloan is mapped with 952$7
  78 $order = Koha::Acquisition::Order->new(
  79     {
  80         basketno => $basketno1,
  81         quantity => 2,
  82         biblionumber => $biblionumber,
  83         budget_id => $budget->{budget_id},
  84     }
  85 )->insert;
  86 $ordernumber = $order->{ordernumber};
  87
  88 $order->add_item( $itemnumber1 );
  89 $order->add_item( $itemnumber2 );
  90
  91 my ( undef, $new_ordernumber ) = ModReceiveOrder(
  92     {
  93         biblionumber     => $biblionumber,
  94         ordernumber      => $ordernumber,
  95         quantityreceived => 1,
  96         datereceived     => dt_from_string,
  97         received_items   => [ $itemnumber1 ],
  98     }
  99 );
 100
 101 CancelReceipt($new_ordernumber);
 102
 103 is(scalar( GetItemnumbersFromOrder($ordernumber) ), 2, "Create items on ordering: items are not deleted after cancelling a receipt");
 104
 105 my $item1 = C4::Items::GetItem( $itemnumber1 );
 106 is( $item1->{notforloan}, 9, "The notforloan value has been updated with '9'" );
 107
 108 my $item2 = C4::Items::GetItem( $itemnumber2 );
 109 is( $item2->{notforloan}, 0, "The notforloan value has been updated with '9'" );
 110
 111 $dbh->rollback;