- 

#!/usr/bin/perl

use Modern::Perl;

use Data::Dumper;

use Test::More;

use MARC::Record;

use C4::Biblio;

use C4::Circulation;

use C4::Context;

use C4::Items;

use C4::Members;

use C4::Reserves;

my $dbh = C4::Context->dbh;

# Start transaction

$dbh->{AutoCommit} = 0;

$dbh->{RaiseError} = 1;

C4::Context->_new_userenv('xxx');

C4::Context::set_userenv(0,0,0,'firstname','surname', 'CPL', 'CPL', '', '', '');

my $record = MARC::Record->new;

my ( $biblionumber ) = AddBiblio( $record, '' );

my ( $barcode1, $barcode2 ) = ( 'UT_prio_barcode_1', 'UT_prio_barcode_2' );

my ( undef, undef, $itemnumber1) = AddItem({ homebranch => 'CPL', holdingbranch => 'CPL', barcode => $barcode1 }, $biblionumber);

my ( undef, undef, $itemnumber2) = AddItem({ homebranch => 'MPL', holdingbranch => 'MPL', barcode => $barcode2 }, $biblionumber);

my $borrowernumber1 = AddMember (

    firstname => 'ill borrow',

    surname => 'foo',

    categorycode => 'PT',

    branchcode => 'CPL',

);

my $borrower1 = GetMember( borrowernumber => $borrowernumber1 );

my $borrowernumber2 = AddMember (

    firstname => 'ill place the first hold',

    surname => 'foo',

    categorycode => 'PT',

    branchcode => 'CPL',

);

my $borrower2 = GetMember( borrowernumber => $borrowernumber2 );

my $borrowernumber3 = AddMember (

    firstname => 'ill place the second hold',

    surname => 'foo',

    categorycode => 'PT',

    branchcode => 'CPL',

);

my $borrower3 = GetMember( borrowernumber => $borrowernumber3 );

my ( $reserve2, $reserve3 );

AddIssue( $borrower1, $barcode1 );

AddReserve( 'CPL', $borrowernumber2, $biblionumber, 'a', undef, 1, undef, undef, undef, undef, $itemnumber1 );

AddReserve( 'CPL', $borrowernumber3, $biblionumber, 'a', undef, 2, undef, undef, undef, undef, $itemnumber1 );

( $reserve2 ) = GetReservesFromBorrowernumber( $borrowernumber2 );

AddReturn( $barcode1 );

ModReserveAffect( $itemnumber1, $borrowernumber2 );

( $reserve2 ) = GetReservesFromBorrowernumber( $borrowernumber2 );

is( $reserve2->{borrowernumber}, $borrowernumber2 );

is( $reserve2->{priority}, 0 );

is( $reserve2->{itemnumber}, $itemnumber1 );

is( $reserve2->{found}, 'W' );

( $reserve3 ) = GetReservesFromBorrowernumber( $borrowernumber3 );

is( $reserve3->{borrowernumber}, $borrowernumber3 );

is( $reserve3->{priority}, 2 );

is( $reserve3->{itemnumber}, $itemnumber1 );

is( $reserve3->{found}, undef );

CancelReserve({ reserve_id => $reserve2->{reserve_id} });

( $reserve2 ) = GetReservesFromBorrowernumber( $borrowernumber2 );

is( $reserve2, undef );

( $reserve3 ) = GetReservesFromBorrowernumber( $borrowernumber3 );

is( $reserve3->{borrowernumber}, $borrowernumber3 );

is( $reserve3->{priority}, 0 );

is( $reserve3->{itemnumber}, $itemnumber1 );

is( $reserve3->{found}, 'W' );

CancelReserve({ reserve_id => $reserve3->{reserve_id} });

( $reserve3 ) = GetReservesFromBorrowernumber( $borrowernumber3 );

is( $reserve3, undef );

AddIssue( $borrower1, $barcode1 );

AddReserve( 'CPL', $borrowernumber2, $biblionumber, 'a', undef, 1);

AddReserve( 'CPL', $borrowernumber3, $biblionumber, 'a', undef, 2 );

C4::Context->set_preference('ConfirmFutureHolds', 2);

my ( undef, $message ) = AddReturn( $barcode1 );

ModReserveAffect( $itemnumber1, $borrowernumber2 );

( $reserve2 ) = GetReservesFromBorrowernumber( $borrowernumber2 );

is( $reserve2->{borrowernumber}, $borrowernumber2 );

is( $reserve2->{priority}, 0 );

is( $reserve2->{itemnumber}, $itemnumber1 );

is( $reserve2->{found}, 'W' );

( $reserve3 ) = GetReservesFromBorrowernumber( $borrowernumber3 );

is( $reserve3->{borrowernumber}, $borrowernumber3 );

is( $reserve3->{priority}, 2 );

is( $reserve3->{itemnumber}, undef );

is( $reserve3->{found}, undef );

CancelReserve({ reserve_id => $reserve2->{reserve_id} });

( $reserve2 ) = GetReservesFromBorrowernumber( $borrowernumber2 );

is( $reserve2, undef );

# FIXME

#( $reserve3 ) = GetReservesFromBorrowernumber( $borrowernumber3 );

#is( $reserve3->{borrowernumber}, $borrowernumber3 );

#is( $reserve3->{priority}, 0 );

#is( $reserve3->{itemnumber}, $itemnumber1 );

#is( $reserve3->{found}, 'W' );

CancelReserve({ reserve_id => $reserve3->{reserve_id} });

( $reserve3 ) = GetReservesFromBorrowernumber( $borrowernumber3 );

is( $reserve3, undef );

AddIssue( $borrower1, $barcode1 );

AddReserve( 'MPL', $borrowernumber2, $biblionumber, 'a', undef, 1, undef, undef, undef, undef, $itemnumber2 );

AddReserve( 'MPL', $borrowernumber3, $biblionumber, 'a', undef, 2, undef, undef, undef, undef, $itemnumber2 );

( $reserve2 ) = GetReservesFromBorrowernumber( $borrowernumber2 );

AddReturn( $barcode1 );

ModReserveAffect( $itemnumber2, $borrowernumber2, 1 );

( $reserve2 ) = GetReservesFromBorrowernumber( $borrowernumber2 );

is( $reserve2->{borrowernumber}, $borrowernumber2 );

is( $reserve2->{priority}, 0 );

is( $reserve2->{itemnumber}, $itemnumber2 );

is( $reserve2->{found}, 'T' );

( $reserve3 ) = GetReservesFromBorrowernumber( $borrowernumber3 );

is( $reserve3->{borrowernumber}, $borrowernumber3 );

is( $reserve3->{priority}, 2 );

is( $reserve3->{itemnumber}, $itemnumber2 );

is( $reserve3->{found}, undef );

CancelReserve({ reserve_id => $reserve2->{reserve_id} });

( $reserve2 ) = GetReservesFromBorrowernumber( $borrowernumber2 );

is( $reserve2, undef );

( $reserve3 ) = GetReservesFromBorrowernumber( $borrowernumber3 );

is( $reserve3->{borrowernumber}, $borrowernumber3 );

is( $reserve3->{priority}, 0 );

is( $reserve3->{itemnumber}, $itemnumber2 );

is( $reserve3->{found}, 'T' );

CancelReserve({ reserve_id => $reserve3->{reserve_id} });

( $reserve3 ) = GetReservesFromBorrowernumber( $borrowernumber3 );

is( $reserve3, undef );

done_testing;