|
Lines 327-338
SKIP: {
Link Here
|
| 327 |
DelBiblio($second_biblionumber); |
327 |
DelBiblio($second_biblionumber); |
| 328 |
} |
328 |
} |
| 329 |
|
329 |
|
| 330 |
=head3 withdraw_items |
|
|
| 331 |
|
| 332 |
Withdraws items by setting their 'withdrawn' flag to 1. |
| 333 |
|
| 334 |
=cut |
| 335 |
|
| 336 |
sub withdraw_items { |
330 |
sub withdraw_items { |
| 337 |
my $dbh = C4::Context->dbh; |
331 |
my $dbh = C4::Context->dbh; |
| 338 |
$dbh->do( |
332 |
$dbh->do( |
|
Lines 340-351
Withdraws items by setting their 'withdrawn' flag to 1.
Link Here
|
| 340 |
); |
334 |
); |
| 341 |
} |
335 |
} |
| 342 |
|
336 |
|
| 343 |
=head3 set_holdallowed_not_allowed |
|
|
| 344 |
|
| 345 |
Set holdallowed as not_allowed in the circulation rules |
| 346 |
|
| 347 |
=cut |
| 348 |
|
| 349 |
sub set_holdallowed_not_allowed { |
337 |
sub set_holdallowed_not_allowed { |
| 350 |
Koha::CirculationRules->set_rules( |
338 |
Koha::CirculationRules->set_rules( |
| 351 |
{ |
339 |
{ |
|
Lines 358-372
Set holdallowed as not_allowed in the circulation rules
Link Here
|
| 358 |
); |
346 |
); |
| 359 |
} |
347 |
} |
| 360 |
|
348 |
|
| 361 |
=head3 set_onshelfholds |
|
|
| 362 |
|
| 363 |
Set holdallowed as not_allowed in the circulation rules |
| 364 |
0 - "If any unavailable" |
| 365 |
1 - "Yes" |
| 366 |
2 - "If all unavailable" |
| 367 |
|
| 368 |
=cut |
| 369 |
|
| 370 |
sub set_onshelfholds { |
349 |
sub set_onshelfholds { |
| 371 |
my ($rule_value) = @_; |
350 |
my ($rule_value) = @_; |
| 372 |
Koha::CirculationRules->set_rule( |
351 |
Koha::CirculationRules->set_rule( |
|
Lines 380-391
Set holdallowed as not_allowed in the circulation rules
Link Here
|
| 380 |
); |
359 |
); |
| 381 |
} |
360 |
} |
| 382 |
|
361 |
|
| 383 |
=head3 search_page_hold_button_absent |
|
|
| 384 |
|
| 385 |
Function to visit search results and test for the absence of place hold buttons |
| 386 |
|
| 387 |
=cut |
| 388 |
|
| 389 |
sub search_page_hold_button_absent { |
362 |
sub search_page_hold_button_absent { |
| 390 |
my ($message) = @_; |
363 |
my ($message) = @_; |
| 391 |
|
364 |
|
|
Lines 404-415
Function to visit search results and test for the absence of place hold buttons
Link Here
|
| 404 |
); |
377 |
); |
| 405 |
} |
378 |
} |
| 406 |
|
379 |
|
| 407 |
=head3 search_page_hold_button_present |
|
|
| 408 |
|
| 409 |
Function to visit search results and test for the presence of place hold buttons |
| 410 |
|
| 411 |
=cut |
| 412 |
|
| 413 |
sub search_page_hold_button_present { |
380 |
sub search_page_hold_button_present { |
| 414 |
my ($message) = @_; |
381 |
my ($message) = @_; |
| 415 |
|
382 |
|
|
Lines 426-437
Function to visit search results and test for the presence of place hold buttons
Link Here
|
| 426 |
); |
393 |
); |
| 427 |
} |
394 |
} |
| 428 |
|
395 |
|
| 429 |
=head3 detail_page_hold_button_absent |
|
|
| 430 |
|
| 431 |
Visits the detail page and tests the absence of the place hold button |
| 432 |
|
| 433 |
=cut |
| 434 |
|
| 435 |
sub detail_page_hold_button_absent { |
396 |
sub detail_page_hold_button_absent { |
| 436 |
my ($message) = @_; |
397 |
my ($message) = @_; |
| 437 |
$driver->get( $s->opac_base_url . "opac-detail.pl?biblionumber=" . $biblionumber ); |
398 |
$driver->get( $s->opac_base_url . "opac-detail.pl?biblionumber=" . $biblionumber ); |
|
Lines 443-454
Visits the detail page and tests the absence of the place hold button
Link Here
|
| 443 |
); |
404 |
); |
| 444 |
} |
405 |
} |
| 445 |
|
406 |
|
| 446 |
=head3 detail_page_hold_button_present |
|
|
| 447 |
|
| 448 |
Visits the detail page and tests the presence of the place hold button |
| 449 |
|
| 450 |
=cut |
| 451 |
|
| 452 |
sub detail_page_hold_button_present { |
407 |
sub detail_page_hold_button_present { |
| 453 |
my ($message) = @_; |
408 |
my ($message) = @_; |
| 454 |
$driver->get( $s->opac_base_url . "opac-detail.pl?biblionumber=" . $biblionumber ); |
409 |
$driver->get( $s->opac_base_url . "opac-detail.pl?biblionumber=" . $biblionumber ); |
| 455 |
- |
|
|