|
Lines 482-488
lists of authorized values for certain item fields.
Link Here
|
| 482 |
minlocation => $minlocation, |
482 |
minlocation => $minlocation, |
| 483 |
maxlocation => $maxlocation, |
483 |
maxlocation => $maxlocation, |
| 484 |
location => $location, |
484 |
location => $location, |
| 485 |
itemtype => $itemtype, |
|
|
| 486 |
ignoreissued => $ignoreissued, |
485 |
ignoreissued => $ignoreissued, |
| 487 |
datelastseen => $datelastseen, |
486 |
datelastseen => $datelastseen, |
| 488 |
branchcode => $branchcode, |
487 |
branchcode => $branchcode, |
|
Lines 490-495
lists of authorized values for certain item fields.
Link Here
|
| 490 |
offset => $offset, |
489 |
offset => $offset, |
| 491 |
size => $size, |
490 |
size => $size, |
| 492 |
statushash => $statushash, |
491 |
statushash => $statushash, |
|
|
492 |
itemtypes => @itemsarray, |
| 493 |
} ); |
493 |
} ); |
| 494 |
|
494 |
|
| 495 |
Retrieve a list of title/authors/barcode/callnumber, for biblio inventory. |
495 |
Retrieve a list of title/authors/barcode/callnumber, for biblio inventory. |
|
Lines 522-527
sub GetItemsForInventory {
Link Here
|
| 522 |
my $size = $parameters->{'size'} // ''; |
522 |
my $size = $parameters->{'size'} // ''; |
| 523 |
my $statushash = $parameters->{'statushash'} // ''; |
523 |
my $statushash = $parameters->{'statushash'} // ''; |
| 524 |
my $ignore_waiting_holds = $parameters->{'ignore_waiting_holds'} // ''; |
524 |
my $ignore_waiting_holds = $parameters->{'ignore_waiting_holds'} // ''; |
|
|
525 |
my $items = $parameters->{'itemtypes'} // ''; |
| 525 |
|
526 |
|
| 526 |
my $dbh = C4::Context->dbh; |
527 |
my $dbh = C4::Context->dbh; |
| 527 |
my ( @bind_params, @where_strings ); |
528 |
my ( @bind_params, @where_strings ); |
|
Lines 581-587
sub GetItemsForInventory {
Link Here
|
| 581 |
push @where_strings, 'biblioitems.itemtype = ?'; |
582 |
push @where_strings, 'biblioitems.itemtype = ?'; |
| 582 |
push @bind_params, $itemtype; |
583 |
push @bind_params, $itemtype; |
| 583 |
} |
584 |
} |
| 584 |
|
|
|
| 585 |
if ( $ignoreissued) { |
585 |
if ( $ignoreissued) { |
| 586 |
$query .= "LEFT JOIN issues ON items.itemnumber = issues.itemnumber "; |
586 |
$query .= "LEFT JOIN issues ON items.itemnumber = issues.itemnumber "; |
| 587 |
push @where_strings, 'issues.date_due IS NULL'; |
587 |
push @where_strings, 'issues.date_due IS NULL'; |
|
Lines 592-597
sub GetItemsForInventory {
Link Here
|
| 592 |
push( @where_strings, q{(reserves.found != 'W' OR reserves.found IS NULL)} ); |
592 |
push( @where_strings, q{(reserves.found != 'W' OR reserves.found IS NULL)} ); |
| 593 |
} |
593 |
} |
| 594 |
|
594 |
|
|
|
595 |
if ( $items and @{$items} > 0 ){ |
| 596 |
my $joinedvals; |
| 597 |
for my $itemtype (@{$items}){ |
| 598 |
$joinedvals = join(',', @{$items}); |
| 599 |
} |
| 600 |
push @where_strings, "( biblioitems.itemtype IN (" . $joinedvals . ") OR items.itype IN (" . $joinedvals . ") )"; |
| 601 |
} |
| 602 |
|
| 595 |
if ( @where_strings ) { |
603 |
if ( @where_strings ) { |
| 596 |
$query .= 'WHERE '; |
604 |
$query .= 'WHERE '; |
| 597 |
$query .= join ' AND ', @where_strings; |
605 |
$query .= join ' AND ', @where_strings; |