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