| Lines 17-23
          
      
      
        Link Here | 
        
          | 17 |  | 17 |  | 
        
          | 18 | use Modern::Perl; | 18 | use Modern::Perl; | 
        
          | 19 |  | 19 |  | 
          
            
              | 20 | use Test::More tests => 100; | 20 | use Test::More tests => 101; | 
        
          | 21 |  | 21 |  | 
        
          | 22 | use DateTime; | 22 | use DateTime; | 
        
          | 23 |  | 23 |  | 
  
    | Lines 1729-1734
          subtest 'AddReturn | is_overdue' => sub {
      
      
        Link Here | 
        
          | 1729 |  | 1729 |  | 
        
          | 1730 | }; | 1730 | }; | 
        
          | 1731 |  | 1731 |  | 
            
              |  |  | 1732 | subtest 'Set waiting flag' => sub { | 
            
              | 1733 |     plan tests => 2; | 
            
              | 1734 |  | 
            
              | 1735 |     my $library_1 = $builder->build( { source => 'Branch' } ); | 
            
              | 1736 |     my $patron_1  = $builder->build( { source => 'Borrower', value => { branchcode => $library_1->{branchcode} } } ); | 
            
              | 1737 |     my $library_2 = $builder->build( { source => 'Branch' } ); | 
            
              | 1738 |     my $patron_2  = $builder->build( { source => 'Borrower', value => { branchcode => $library_2->{branchcode} } } ); | 
            
              | 1739 |  | 
            
              | 1740 |     my $biblio = $builder->build( { source => 'Biblio' } ); | 
            
              | 1741 |     my $biblioitem = $builder->build( { source => 'Biblioitem', value => { biblionumber => $biblio->{biblionumber} } } ); | 
            
              | 1742 |     my $item = $builder->build( | 
            
              | 1743 |         { | 
            
              | 1744 |             source => 'Item', | 
            
              | 1745 |             value  => { | 
            
              | 1746 |                 homebranch    => $library_1->{branchcode}, | 
            
              | 1747 |                 holdingbranch => $library_1->{branchcode}, | 
            
              | 1748 |                 notforloan    => 0, | 
            
              | 1749 |                 itemlost      => 0, | 
            
              | 1750 |                 withdrawn     => 0, | 
            
              | 1751 |                 biblionumber  => $biblioitem->{biblionumber}, | 
            
              | 1752 |             } | 
            
              | 1753 |         } | 
            
              | 1754 |     ); | 
            
              | 1755 |  | 
            
              | 1756 |  | 
            
              | 1757 |  | 
            
              | 1758 |     set_userenv( $library_2 ); | 
            
              | 1759 |     my $reserve_id = AddReserve( | 
            
              | 1760 |         $library_2->{branchcode}, $patron_2->{borrowernumber}, $biblioitem->{biblionumber}, | 
            
              | 1761 |         '', 1, undef, undef, '', undef, $item->{itemnumber}, | 
            
              | 1762 |     ); | 
            
              | 1763 |  | 
            
              | 1764 |     set_userenv( $library_1 ); | 
            
              | 1765 |     my $do_transfer = 1; | 
            
              | 1766 |     my ( $res, $rr ) = AddReturn( $item->{barcode}, $library_1->{branchcode} ); | 
            
              | 1767 |     ModReserveAffect( $item->{itemnumber}, undef, $do_transfer, $reserve_id ); | 
            
              | 1768 |     my $hold = Koha::Holds->find( $reserve_id ); | 
            
              | 1769 |     is( $hold->found, 'T', 'Hold is in transit' ); | 
            
              | 1770 |  | 
            
              | 1771 |     set_userenv( $library_2 ); | 
            
              | 1772 |     $do_transfer = 0; | 
            
              | 1773 |     AddReturn( $item->{barcode}, $library_2->{branchcode} ); | 
            
              | 1774 |     ModReserveAffect( $item->{itemnumber}, undef, $do_transfer, $reserve_id ); | 
            
              | 1775 |     $hold = Koha::Holds->find( $reserve_id ); | 
            
              | 1776 |     is( $hold->found, 'W', 'Hold is waiting' ); | 
            
              | 1777 | }; | 
            
              | 1778 |  | 
        
          | 1732 | sub set_userenv { | 1779 | sub set_userenv { | 
        
          | 1733 |     my ( $library ) = @_; | 1780 |     my ( $library ) = @_; | 
        
          | 1734 |     C4::Context->set_userenv(0,0,0,'firstname','surname', $library->{branchcode}, $library->{branchname}, '', '', ''); | 1781 |     C4::Context->set_userenv(0,0,0,'firstname','surname', $library->{branchcode}, $library->{branchname}, '', '', ''); | 
            
              | 1735 | -  |  |  |