t/db_dependent/Holds.t

   1 #!/usr/bin/perl
   2
   3 use Modern::Perl;
   4
   5 use t::lib::Mocks;
   6 use C4::Context;
   7 use C4::Branch;
   8
   9 use Test::More tests => 38;
  10 use MARC::Record;
  11 use C4::Biblio;
  12 use C4::Items;
  13 use C4::Members;
  14 use C4::Calendar;
  15
  16 use Koha::DateUtils qw( dt_from_string output_pref );
  17
  18 BEGIN {
  19     use FindBin;
  20     use lib $FindBin::Bin;
  21     use_ok('C4::Reserves');
  22 }
  23
  24 my $dbh = C4::Context->dbh;
  25
  26 # Start transaction
  27 $dbh->{AutoCommit} = 0;
  28 $dbh->{RaiseError} = 1;
  29
  30 my $borrowers_count = 5;
  31
  32 $dbh->do('DELETE FROM itemtypes');
  33 my $insert_sth = $dbh->prepare('INSERT INTO itemtypes (itemtype) VALUES (?)');
  34 $insert_sth->execute('CAN');
  35 $insert_sth->execute('CANNOT');
  36
  37 # Setup Test------------------------
  38 # Create a biblio instance for testing
  39 my ($bibnum, $title, $bibitemnum) = create_helper_biblio();
  40
  41 # Create item instance for testing.
  42 my ($item_bibnum, $item_bibitemnum, $itemnumber) = AddItem({ homebranch => 'CPL', holdingbranch => 'CPL' } , $bibnum);
  43
  44 # Create some borrowers
  45 my @borrowernumbers;
  46 foreach (1..$borrowers_count) {
  47     my $borrowernumber = AddMember(
  48         firstname =>  'my firstname',
  49         surname => 'my surname ' . $_,
  50         categorycode => 'S',
  51         branchcode => 'CPL',
  52     );
  53     push @borrowernumbers, $borrowernumber;
  54 }
  55
  56 my $biblionumber   = $bibnum;
  57
  58 my @branches = GetBranchesLoop();
  59 my $branch = $branches[0][0]{value};
  60
  61 # Create five item level holds
  62 foreach my $borrowernumber ( @borrowernumbers ) {
  63     AddReserve(
  64         $branch,
  65         $borrowernumber,
  66         $biblionumber,
  67         my $constraint = 'a',
  68         my $bibitems = q{},
  69         my $priority,
  70         my $resdate,
  71         my $expdate,
  72         my $notes = q{},
  73         $title,
  74         my $checkitem = $itemnumber,
  75         my $found,
  76     );
  77 }
  78
  79
  80 my $reserves = GetReservesFromBiblionumber({ biblionumber => $biblionumber });
  81 is( scalar(@$reserves), $borrowers_count, "Test GetReserves()" );
  82
  83
  84 my ( $reservedate, $borrowernumber, $branchcode, $reserve_id ) = GetReservesFromItemnumber($itemnumber);
  85 is( $reservedate, output_pref({ dt => dt_from_string, dateformat => 'iso', dateonly => 1 }), "GetReservesFromItemnumber should return a valid reserve date");
  86 is( $borrowernumber, $borrowernumbers[0], "GetReservesFromItemnumber should return a valid borrowernumber");
  87 is( $branchcode, 'CPL', "GetReservesFromItemnumber should return a valid branchcode");
  88 ok($reserve_id, "Test GetReservesFromItemnumber()");
  89
  90
  91 my ( $reserve ) = GetReservesFromBorrowernumber($borrowernumbers[0]);
  92 ok( $reserve->{'borrowernumber'} eq $borrowernumbers[0], "Test GetReservesFromBorrowernumber()");
  93
  94
  95 ok( GetReserveCount( $borrowernumbers[0] ), "Test GetReserveCount()" );
  96
  97
  98 CancelReserve({ 'reserve_id' => $reserve_id });
  99 $reserves = GetReservesFromBiblionumber({ biblionumber => $biblionumber });
 100 is( scalar(@$reserves), $borrowers_count - 1, "Test CancelReserve()" );
 101
 102
 103 ( $reservedate, $borrowernumber, $branchcode, $reserve_id ) = GetReservesFromItemnumber($itemnumber);
 104 ModReserve({
 105     reserve_id    => $reserve_id,
 106     rank          => '4',
 107     branchcode    => $branch,
 108     itemnumber    => $itemnumber,
 109     suspend_until => C4::Dates->new("2013-01-01","iso")->output(),
 110 });
 111 $reserve = GetReserve( $reserve_id );
 112 ok( $reserve->{'priority'} eq '4', "Test GetReserve(), priority changed correctly" );
 113 ok( $reserve->{'suspend'}, "Test GetReserve(), suspend hold" );
 114 ok( $reserve->{'suspend_until'} eq '2013-01-01 00:00:00', "Test GetReserve(), suspend until date" );
 115
 116 ToggleSuspend( $reserve_id );
 117 $reserve = GetReserve( $reserve_id );
 118 ok( !$reserve->{'suspend'}, "Test ToggleSuspend(), no date" );
 119
 120 ToggleSuspend( $reserve_id, '2012-01-01' );
 121 $reserve = GetReserve( $reserve_id );
 122 ok( $reserve->{'suspend_until'} eq '2012-01-01 00:00:00', "Test ToggleSuspend(), with date" );
 123
 124 AutoUnsuspendReserves();
 125 $reserve = GetReserve( $reserve_id );
 126 ok( !$reserve->{'suspend'}, "Test AutoUnsuspendReserves()" );
 127
 128 # Add a new hold for the borrower whose hold we canceled earlier, this time at the bib level
 129 AddReserve(
 130     $branch,
 131     $borrowernumber,
 132     $biblionumber,
 133     my $constraint = 'a',
 134     my $bibitems = q{},
 135     my $priority,
 136     my $resdate,
 137     my $expdate,
 138     my $notes = q{},
 139     $title,
 140     my $checkitem,
 141     my $found,
 142 );
 143 ( $reserve ) = GetReservesFromBorrowernumber($borrowernumber);
 144 my $reserveid = C4::Reserves::GetReserveId(
 145     {
 146         biblionumber => $biblionumber,
 147         borrowernumber => $borrowernumber
 148     }
 149 );
 150 is( $reserveid, $reserve->{reserve_id}, "Test GetReserveId" );
 151 ModReserveMinusPriority( $itemnumber, $reserve->{'reserve_id'} );
 152 ( $reserve ) = GetReservesFromBorrowernumber($borrowernumber);
 153 ok( $reserve->{'itemnumber'} eq $itemnumber, "Test ModReserveMinusPriority()" );
 154
 155
 156 my $reserve2 = GetReserveInfo( $reserve->{'reserve_id'} );
 157 ok( $reserve->{'reserve_id'} eq $reserve2->{'reserve_id'}, "Test GetReserveInfo()" );
 158
 159
 160 $reserves = GetReservesFromBiblionumber({ biblionumber => $biblionumber, all_dates => 1 });
 161 $reserve = $reserves->[1];
 162 AlterPriority( 'top', $reserve->{'reserve_id'} );
 163 $reserve = GetReserve( $reserve->{'reserve_id'} );
 164 ok( $reserve->{'priority'} eq '1', "Test AlterPriority(), move to top" );
 165
 166 AlterPriority( 'down', $reserve->{'reserve_id'} );
 167 $reserve = GetReserve( $reserve->{'reserve_id'} );
 168 ok( $reserve->{'priority'} eq '2', "Test AlterPriority(), move down" );
 169
 170 AlterPriority( 'up', $reserve->{'reserve_id'} );
 171 $reserve = GetReserve( $reserve->{'reserve_id'} );
 172 ok( $reserve->{'priority'} eq '1', "Test AlterPriority(), move up" );
 173
 174 AlterPriority( 'bottom', $reserve->{'reserve_id'} );
 175 $reserve = GetReserve( $reserve->{'reserve_id'} );
 176 ok( $reserve->{'priority'} eq '5', "Test AlterPriority(), move to bottom" );
 177
 178 # Regression test for bug 2394
 179 #
 180 # If IndependentBranches is ON and canreservefromotherbranches is OFF,
 181 # a patron is not permittedo to request an item whose homebranch (i.e.,
 182 # owner of the item) is different from the patron's own library.
 183 # However, if canreservefromotherbranches is turned ON, the patron can
 184 # create such hold requests.
 185 #
 186 # Note that canreservefromotherbranches has no effect if
 187 # IndependentBranches is OFF.
 188
 189 my ($foreign_bibnum, $foreign_title, $foreign_bibitemnum) = create_helper_biblio();
 190 my ($foreign_item_bibnum, $foreign_item_bibitemnum, $foreign_itemnumber)
 191   = AddItem({ homebranch => 'MPL', holdingbranch => 'MPL' } , $foreign_bibnum);
 192 $dbh->do('DELETE FROM issuingrules');
 193 $dbh->do(
 194     q{INSERT INTO issuingrules (categorycode, branchcode, itemtype, reservesallowed)
 195       VALUES (?, ?, ?, ?)},
 196     {},
 197     '*', '*', '*', 25
 198 );
 199 $dbh->do(
 200     q{INSERT INTO issuingrules (categorycode, branchcode, itemtype, reservesallowed)
 201       VALUES (?, ?, ?, ?)},
 202     {},
 203     '*', '*', 'CANNOT', 0
 204 );
 205
 206 # make sure some basic sysprefs are set
 207 t::lib::Mocks::mock_preference('ReservesControlBranch', 'homebranch');
 208 t::lib::Mocks::mock_preference('item-level_itypes', 1);
 209
 210 # if IndependentBranches is OFF, a CPL patron can reserve an MPL item
 211 t::lib::Mocks::mock_preference('IndependentBranches', 0);
 212 ok(
 213     CanItemBeReserved($borrowernumbers[0], $foreign_itemnumber),
 214     'CPL patron allowed to reserve MPL item with IndependentBranches OFF (bug 2394)'
 215 );
 216
 217 # if IndependentBranches is OFF, a CPL patron cannot reserve an MPL item
 218 t::lib::Mocks::mock_preference('IndependentBranches', 1);
 219 t::lib::Mocks::mock_preference('canreservefromotherbranches', 0);
 220 ok(
 221     ! CanItemBeReserved($borrowernumbers[0], $foreign_itemnumber),
 222     'CPL patron NOT allowed to reserve MPL item with IndependentBranches ON ... (bug 2394)'
 223 );
 224
 225 # ... unless canreservefromotherbranches is ON
 226 t::lib::Mocks::mock_preference('canreservefromotherbranches', 1);
 227 ok(
 228     CanItemBeReserved($borrowernumbers[0], $foreign_itemnumber),
 229     '... unless canreservefromotherbranches is ON (bug 2394)'
 230 );
 231
 232 # Regression test for bug 11336
 233 ($bibnum, $title, $bibitemnum) = create_helper_biblio();
 234 ($item_bibnum, $item_bibitemnum, $itemnumber) = AddItem({ homebranch => 'CPL', holdingbranch => 'CPL' } , $bibnum);
 235 AddReserve(
 236     $branch,
 237     $borrowernumbers[0],
 238     $bibnum,
 239     'a',
 240     '',
 241     1,
 242 );
 243
 244 my $reserveid1 = C4::Reserves::GetReserveId(
 245     {
 246         biblionumber => $bibnum,
 247         borrowernumber => $borrowernumbers[0]
 248     }
 249 );
 250
 251 ($item_bibnum, $item_bibitemnum, $itemnumber) = AddItem({ homebranch => 'CPL', holdingbranch => 'CPL' } , $bibnum);
 252 AddReserve(
 253     $branch,
 254     $borrowernumbers[1],
 255     $bibnum,
 256     'a',
 257     '',
 258     2,
 259 );
 260 my $reserveid2 = C4::Reserves::GetReserveId(
 261     {
 262         biblionumber => $bibnum,
 263         borrowernumber => $borrowernumbers[1]
 264     }
 265 );
 266
 267 CancelReserve({ reserve_id => $reserveid1 });
 268
 269 $reserve2 = GetReserve( $reserveid2 );
 270 is( $reserve2->{priority}, 1, "After cancelreserve, the 2nd reserve becomes the first on the waiting list" );
 271
 272 ($item_bibnum, $item_bibitemnum, $itemnumber) = AddItem({ homebranch => 'CPL', holdingbranch => 'CPL' } , $bibnum);
 273 AddReserve(
 274     $branch,
 275     $borrowernumbers[0],
 276     $bibnum,
 277     'a',
 278     '',
 279     2,
 280 );
 281 my $reserveid3 = C4::Reserves::GetReserveId(
 282     {
 283         biblionumber => $bibnum,
 284         borrowernumber => $borrowernumbers[0]
 285     }
 286 );
 287
 288 my $reserve3 = GetReserve( $reserveid3 );
 289 is( $reserve3->{priority}, 2, "New reserve for patron 0, the reserve has a priority = 2" );
 290
 291 ModReserve({ reserve_id => $reserveid2, rank => 'del' });
 292 $reserve3 = GetReserve( $reserveid3 );
 293 is( $reserve3->{priority}, 1, "After ModReserve, the 3rd reserve becomes the first on the waiting list" );
 294
 295 ModItem({ damaged => 1 }, $item_bibnum, $itemnumber);
 296 C4::Context->set_preference( 'AllowHoldsOnDamagedItems', 1 );
 297 ok( CanItemBeReserved( $borrowernumbers[0], $itemnumber), "Patron can reserve damaged item with AllowHoldsOnDamagedItems enabled" );
 298 ok( defined( ( CheckReserves($itemnumber) )[1] ), "Hold can be trapped for damaged item with AllowHoldsOnDamagedItems enabled" );
 299 C4::Context->set_preference( 'AllowHoldsOnDamagedItems', 0 );
 300 ok( !CanItemBeReserved( $borrowernumbers[0], $itemnumber), "Patron cannot reserve damaged item with AllowHoldsOnDamagedItems disabled" );
 301 ok( !defined( ( CheckReserves($itemnumber) )[1] ), "Hold cannot be trapped for damaged item with AllowHoldsOnDamagedItems disabled" );
 302
 303 # Regression test for bug 9532
 304 ($bibnum, $title, $bibitemnum) = create_helper_biblio('CANNOT');
 305 ($item_bibnum, $item_bibitemnum, $itemnumber) = AddItem({ homebranch => 'CPL', holdingbranch => 'CPL', itype => 'CANNOT' } , $bibnum);
 306 AddReserve(
 307     $branch,
 308     $borrowernumbers[0],
 309     $bibnum,
 310     'a',
 311     '',
 312     1,
 313 );
 314 ok(
 315     !CanItemBeReserved( $borrowernumbers[0], $itemnumber),
 316     "cannot request item if policy that matches on item-level item type forbids it"
 317 );
 318 ModItem({ itype => 'CAN' }, $item_bibnum, $itemnumber);
 319 ok(
 320     CanItemBeReserved( $borrowernumbers[0], $itemnumber),
 321     "can request item if policy that matches on item type allows it"
 322 );
 323
 324 t::lib::Mocks::mock_preference('item-level_itypes', 0);
 325 ModItem({ itype => undef }, $item_bibnum, $itemnumber);
 326 ok(
 327     !CanItemBeReserved( $borrowernumbers[0], $itemnumber),
 328     "cannot request item if policy that matches on bib-level item type forbids it (bug 9532)"
 329 );
 330
 331 # Test CancelExpiredReserves
 332 C4::Context->set_preference('ExpireReservesMaxPickUpDelay', 1);
 333 C4::Context->set_preference('ReservesMaxPickUpDelay', 1);
 334
 335 my ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst ) = localtime(time);
 336 $year += 1900;
 337 $mon += 1;
 338 $reserves = $dbh->selectall_arrayref('SELECT * FROM reserves', { Slice => {} });
 339 $reserve = $reserves->[0];
 340 my $calendar = C4::Calendar->new(branchcode => $reserve->{branchcode});
 341 $calendar->insert_single_holiday(
 342     day         => $mday,
 343     month       => $mon,
 344     year        => $year,
 345     title       => 'Test',
 346     description => 'Test',
 347 );
 348 $reserve_id = $reserve->{reserve_id};
 349 $dbh->do("UPDATE reserves SET waitingdate = DATE_SUB( NOW(), INTERVAL 5 DAY ), found = 'W', priority = 0 WHERE reserve_id = ?", undef, $reserve_id );
 350 C4::Context->set_preference('ExpireReservesOnHolidays', 0);
 351 CancelExpiredReserves();
 352 my $count = $dbh->selectrow_array("SELECT COUNT(*) FROM reserves WHERE reserve_id = ?", undef, $reserve_id );
 353 is( $count, 1, "Waiting reserve beyond max pickup delay *not* canceled on holiday" );
 354 C4::Context->set_preference('ExpireReservesOnHolidays', 1);
 355 CancelExpiredReserves();
 356 $count = $dbh->selectrow_array("SELECT COUNT(*) FROM reserves WHERE reserve_id = ?", undef, $reserve_id );
 357 is( $count, 0, "Waiting reserve beyond max pickup delay canceled on holiday" );
 358
 359 # Test expirationdate
 360 $reserve = $reserves->[1];
 361 $reserve_id = $reserve->{reserve_id};
 362 $dbh->do("UPDATE reserves SET expirationdate = DATE_SUB( NOW(), INTERVAL 1 DAY ) WHERE reserve_id = ?", undef, $reserve_id );
 363 CancelExpiredReserves();
 364 $count = $dbh->selectrow_array("SELECT COUNT(*) FROM reserves WHERE reserve_id = ?", undef, $reserve_id );
 365 is( $count, 0, "Reserve with manual expiration date canceled correctly" );
 366
 367 # Helper method to set up a Biblio.
 368 sub create_helper_biblio {
 369     my $itemtype = shift;
 370     my $bib = MARC::Record->new();
 371     my $title = 'Silence in the library';
 372     $bib->append_fields(
 373         MARC::Field->new('100', ' ', ' ', a => 'Moffat, Steven'),
 374         MARC::Field->new('245', ' ', ' ', a => $title),
 375         MARC::Field->new('942', ' ', ' ', c => $itemtype),
 376     );
 377     return ($bibnum, $title, $bibitemnum) = AddBiblio($bib, '');
 378 }