use Koha::Biblios;
use Koha::Checkouts;
+use Koha::Items;
use Koha::Libraries;
use Koha::Patrons;
} else {
my $status;
my $msg;
- my $items = GetItemnumbersForBiblio($id);
- if ($items) {
+ my $items = Koha::Items->search({ biblionumber => $id });
+ if ($items->count) {
# Open XML
$out .= " <dlf:record>\n";
$out .= " <dlf:bibliographic id=\"" .$id. "\" />\n";
$out .= " <dlf:items>\n";
# We loop over the items to clean them
- foreach my $itemnumber (@$items) {
+ while ( my $item = $items->next ) {
+ my $itemnumber = $item->itemnumber;
my ( $biblionumber, $status, $msg, $location ) = _availability($itemnumber);
$out .= " <dlf:item id=\"" . $itemnumber . "\">\n";
$out .= " <dlf:simpleavailability>\n";
sub CanBookBeReserved{
my ($borrowernumber, $biblionumber) = @_;
- my $items = GetItemnumbersForBiblio($biblionumber);
+ my @itemnumbers = Koha::Items->search({ biblionumber => $biblionumber})->get_column("itemnumber");
#get items linked via host records
my @hostitems = get_hostitemnumbers_of($biblionumber);
if (@hostitems){
- push (@$items,@hostitems);
+ push (@itemnumbers, @hostitems);
}
my $canReserve;
- foreach my $item (@$items) {
- $canReserve = CanItemBeReserved( $borrowernumber, $item );
+ foreach my $itemnumber (@itemnumbers) {
+ $canReserve = CanItemBeReserved( $borrowernumber, $itemnumber );
return $canReserve if $canReserve->{status} eq 'OK';
}
return $canReserve;
use C4::Koha;
use C4::Members;
use C4::Reserves;
-use C4::Items qw( GetItemnumbersForBiblio);
use C4::Auth qw(checkpw);
use Koha::Items;
#-------------------------------------------------------------------------------
} elsif ($op eq "delallitems") {
#-------------------------------------------------------------------------------
- my $itemnumbers = C4::Items::GetItemnumbersForBiblio( $biblionumber );
- foreach my $itemnumber ( @$itemnumbers ) {
+ my @itemnumbers = Koha::Items->search({ biblionumber => $biblionumber })->get_column('itemnumber');
+ foreach my $itemnumber ( @itemnumbers ) {
$error = C4::Items::DelItemCheck( $biblionumber, $itemnumber );
next if $error == 1; # Means ok
push @errors,$error;
use Koha::Authorities;
use Koha::Biblios;
+use Koha::Items;
my $input = new CGI;
my $op = $input->param('op') // q|form|;
$biblio = $biblio->unblessed;
my $record = &GetMarcBiblio({ biblionumber => $record_id });
$biblio->{subtitle} = GetRecordValue( 'subtitle', $record, GetFrameworkCode( $record_id ) );
- $biblio->{itemnumbers} = C4::Items::GetItemnumbersForBiblio( $record_id );
+ $biblio->{itemnumbers} = [Koha::Items->search({ biblionumber => $record_id })->get_column('itemnumber')];
$biblio->{holds_count} = $holds_count;
$biblio->{issues_count} = C4::Biblio::CountItemsIssued( $record_id );
push @records, $biblio;
}
# Delete items
- my @itemnumbers = @{ C4::Items::GetItemnumbersForBiblio( $biblionumber ) };
+ my @itemnumbers = Koha::Items->search({ biblionumber => $biblionumber })->get_column('itemnumber');
ITEMNUMBER: for my $itemnumber ( @itemnumbers ) {
my $error = eval { C4::Items::DelItemCheck( $biblionumber, $itemnumber ) };
if ( $error != 1 or $@ ) {