View | Details | Raw Unified | Return to bug 21201
Collapse All | Expand All

(-)a/C4/ILSDI/Services.pm (-3 / +5 lines)
Lines 38-43 use Koha::DateUtils; Link Here
38
38
39
use Koha::Biblios;
39
use Koha::Biblios;
40
use Koha::Checkouts;
40
use Koha::Checkouts;
41
use Koha::Items;
41
use Koha::Libraries;
42
use Koha::Libraries;
42
use Koha::Patrons;
43
use Koha::Patrons;
43
44
Lines 138-151 sub GetAvailability { Link Here
138
        } else {
139
        } else {
139
            my $status;
140
            my $status;
140
            my $msg;
141
            my $msg;
141
            my $items = GetItemnumbersForBiblio($id);
142
            my $items = Koha::Items->search({ biblionumber => $id });
142
            if ($items) {
143
            if ($items->count) {
143
                # Open XML
144
                # Open XML
144
                $out .= "  <dlf:record>\n";
145
                $out .= "  <dlf:record>\n";
145
                $out .= "    <dlf:bibliographic id=\"" .$id. "\" />\n";
146
                $out .= "    <dlf:bibliographic id=\"" .$id. "\" />\n";
146
                $out .= "    <dlf:items>\n";
147
                $out .= "    <dlf:items>\n";
147
                # We loop over the items to clean them
148
                # We loop over the items to clean them
148
                foreach my $itemnumber (@$items) {
149
                while ( my $item = $items->next ) {
150
                    my $itemnumber = $item->itemnumber;
149
                    my ( $biblionumber, $status, $msg, $location ) = _availability($itemnumber);
151
                    my ( $biblionumber, $status, $msg, $location ) = _availability($itemnumber);
150
                    $out .= "      <dlf:item id=\"" . $itemnumber . "\">\n";
152
                    $out .= "      <dlf:item id=\"" . $itemnumber . "\">\n";
151
                    $out .= "        <dlf:simpleavailability>\n";
153
                    $out .= "        <dlf:simpleavailability>\n";
(-)a/C4/Reserves.pm (-4 / +4 lines)
Lines 275-290 See CanItemBeReserved() for possible return values. Link Here
275
sub CanBookBeReserved{
275
sub CanBookBeReserved{
276
    my ($borrowernumber, $biblionumber) = @_;
276
    my ($borrowernumber, $biblionumber) = @_;
277
277
278
    my $items = GetItemnumbersForBiblio($biblionumber);
278
    my @itemnumbers = Koha::Items->search({ biblionumber => $biblionumber})->get_column("itemnumber");
279
    #get items linked via host records
279
    #get items linked via host records
280
    my @hostitems = get_hostitemnumbers_of($biblionumber);
280
    my @hostitems = get_hostitemnumbers_of($biblionumber);
281
    if (@hostitems){
281
    if (@hostitems){
282
    push (@$items,@hostitems);
282
        push (@itemnumbers, @hostitems);
283
    }
283
    }
284
284
285
    my $canReserve;
285
    my $canReserve;
286
    foreach my $item (@$items) {
286
    foreach my $itemnumber (@itemnumbers) {
287
        $canReserve = CanItemBeReserved( $borrowernumber, $item );
287
        $canReserve = CanItemBeReserved( $borrowernumber, $itemnumber );
288
        return 'OK' if $canReserve eq 'OK';
288
        return 'OK' if $canReserve eq 'OK';
289
    }
289
    }
290
    return $canReserve;
290
    return $canReserve;
(-)a/C4/SIP/ILS/Patron.pm (-1 lines)
Lines 22-28 use C4::Context; Link Here
22
use C4::Koha;
22
use C4::Koha;
23
use C4::Members;
23
use C4::Members;
24
use C4::Reserves;
24
use C4::Reserves;
25
use C4::Items qw( GetItemnumbersForBiblio);
26
use C4::Auth qw(checkpw);
25
use C4::Auth qw(checkpw);
27
26
28
use Koha::Items;
27
use Koha::Items;
(-)a/cataloguing/additem.pl (-2 / +2 lines)
Lines 652-659 if ($op eq "additem") { Link Here
652
#-------------------------------------------------------------------------------
652
#-------------------------------------------------------------------------------
653
} elsif ($op eq "delallitems") {
653
} elsif ($op eq "delallitems") {
654
#-------------------------------------------------------------------------------
654
#-------------------------------------------------------------------------------
655
    my $itemnumbers = C4::Items::GetItemnumbersForBiblio( $biblionumber );
655
    my @itemnumbers = Koha::Items->search({ biblionumber => $biblionumber })->get_column('itemnumber');
656
    foreach my $itemnumber ( @$itemnumbers ) {
656
    foreach my $itemnumber ( @itemnumbers ) {
657
        $error = C4::Items::DelItemCheck( $biblionumber, $itemnumber );
657
        $error = C4::Items::DelItemCheck( $biblionumber, $itemnumber );
658
        next if $error == 1; # Means ok
658
        next if $error == 1; # Means ok
659
        push @errors,$error;
659
        push @errors,$error;
(-)a/tools/batch_delete_records.pl (-3 / +3 lines)
Lines 30-35 use C4::Biblio; Link Here
30
30
31
use Koha::Authorities;
31
use Koha::Authorities;
32
use Koha::Biblios;
32
use Koha::Biblios;
33
use Koha::Items;
33
34
34
my $input = new CGI;
35
my $input = new CGI;
35
my $op = $input->param('op') // q|form|;
36
my $op = $input->param('op') // q|form|;
Lines 83-89 if ( $op eq 'form' ) { Link Here
83
            $biblio = $biblio->unblessed;
84
            $biblio = $biblio->unblessed;
84
            my $record = &GetMarcBiblio({ biblionumber => $record_id });
85
            my $record = &GetMarcBiblio({ biblionumber => $record_id });
85
            $biblio->{subtitle} = GetRecordValue( 'subtitle', $record, GetFrameworkCode( $record_id ) );
86
            $biblio->{subtitle} = GetRecordValue( 'subtitle', $record, GetFrameworkCode( $record_id ) );
86
            $biblio->{itemnumbers} = C4::Items::GetItemnumbersForBiblio( $record_id );
87
            $biblio->{itemnumbers} = [Koha::Items->search({ biblionumber => $record_id })->get_column('itemnumber')];
87
            $biblio->{holds_count} = $holds_count;
88
            $biblio->{holds_count} = $holds_count;
88
            $biblio->{issues_count} = C4::Biblio::CountItemsIssued( $record_id );
89
            $biblio->{issues_count} = C4::Biblio::CountItemsIssued( $record_id );
89
            push @records, $biblio;
90
            push @records, $biblio;
Lines 164-170 if ( $op eq 'form' ) { Link Here
164
            }
165
            }
165
166
166
            # Delete items
167
            # Delete items
167
            my @itemnumbers = @{ C4::Items::GetItemnumbersForBiblio( $biblionumber ) };
168
            my @itemnumbers = Koha::Items->search({ biblionumber => $biblionumber })->get_column('itemnumber');
168
            ITEMNUMBER: for my $itemnumber ( @itemnumbers ) {
169
            ITEMNUMBER: for my $itemnumber ( @itemnumbers ) {
169
                my $error = eval { C4::Items::DelItemCheck( $biblionumber, $itemnumber ) };
170
                my $error = eval { C4::Items::DelItemCheck( $biblionumber, $itemnumber ) };
170
                if ( $error != 1 or $@ ) {
171
                if ( $error != 1 or $@ ) {
171
- 

Return to bug 21201