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

(-)a/C4/Biblio.pm (-56 / +118 lines)
Lines 1161-1166 sub GetMarcSubfieldStructureFromKohaField { Link Here
1161
    return wantarray ? @{$mss->{$kohafield}} : $mss->{$kohafield}->[0];
1161
    return wantarray ? @{$mss->{$kohafield}} : $mss->{$kohafield}->[0];
1162
}
1162
}
1163
1163
1164
1165
sub GetMarcBiblio {
1166
    my ($params) = @_;
1167
1168
    if (not defined $params) {
1169
        carp 'GetMarcBiblio called without parameters';
1170
        return;
1171
    }
1172
    my $biblionumber = $params->{biblionumber};
1173
1174
    if (not defined $biblionumber) {
1175
        carp 'GetMarcBiblio called with undefined biblionumber';
1176
        return;
1177
    }
1178
    delete $params->{biblionumber};
1179
    $params->{biblionumbers} = [$biblionumber];
1180
    my ($biblio) = GetMarcBiblios($params);
1181
    return $biblio;
1182
}
1183
1164
=head2 GetMarcBiblio
1184
=head2 GetMarcBiblio
1165
1185
1166
  my $record = GetMarcBiblio({
1186
  my $record = GetMarcBiblio({
Lines 1194-1245 OpacHiddenItems to be applied. Link Here
1194
1214
1195
=cut
1215
=cut
1196
1216
1197
sub GetMarcBiblio {
1217
sub GetMarcBiblios {
1198
    my ($params) = @_;
1218
    my ($params) = @_;
1199
1219
1200
    if (not defined $params) {
1220
    if (not defined $params) {
1201
        carp 'GetMarcBiblio called without parameters';
1221
        carp 'GetMarcBiblios called without parameters';
1202
        return;
1222
        return;
1203
    }
1223
    }
1204
1224
1205
    my $biblionumber = $params->{biblionumber};
1225
    my $biblionumbers = $params->{biblionumbers};
1206
    my $embeditems   = $params->{embed_items} || 0;
1226
    my $embeditems   = $params->{embed_items} || 0;
1207
    my $opac         = $params->{opac} || 0;
1227
    my $opac         = $params->{opac} || 0;
1208
1228
1209
    if (not defined $biblionumber) {
1229
    if (not defined $biblionumbers) {
1210
        carp 'GetMarcBiblio called with undefined biblionumber';
1230
        carp 'GetMarcBiblio called with undefined biblionumbers';
1211
        return;
1231
        return;
1212
    }
1232
    }
1213
1233
1214
    my $dbh          = C4::Context->dbh;
1234
    my $in_placeholders = join ', ', (('?') x @{$biblionumbers});
1215
    my $sth          = $dbh->prepare("SELECT biblioitemnumber FROM biblioitems WHERE biblionumber=? ");
1235
    my $dbh = C4::Context->dbh;
1216
    $sth->execute($biblionumber);
1236
    my $sth = $dbh->prepare("SELECT biblionumber, biblioitemnumber FROM biblioitems WHERE biblionumber IN ($in_placeholders)");
1217
    my $row     = $sth->fetchrow_hashref;
1237
    $sth->execute(@{$biblionumbers});
1218
    my $biblioitemnumber = $row->{'biblioitemnumber'};
1238
1219
    my $marcxml = GetXmlBiblio( $biblionumber );
1239
    my %marc_records;
1220
    $marcxml = StripNonXmlChars( $marcxml );
1240
    my ($biblionumber, $biblioitemnumber);
1221
    my $frameworkcode = GetFrameworkCode($biblionumber);
1241
    my $marc_flavour = C4::Context->preference('marcflavour');
1222
    MARC::File::XML->default_record_format( C4::Context->preference('marcflavour') );
1242
    while (my $biblio_keys = $sth->fetchrow_arrayref) {
1223
    my $record = MARC::Record->new();
1243
        ($biblionumber, $biblioitemnumber) = @{$biblio_keys};
1224
1244
1225
    if ($marcxml) {
1245
        my $marcxml = GetXmlBiblio( $biblionumber );
1226
        $record = eval {
1246
        $marcxml = StripNonXmlChars( $marcxml );
1227
            MARC::Record::new_from_xml( $marcxml, "utf8",
1247
        my $frameworkcode = GetFrameworkCode($biblionumber);
1228
                C4::Context->preference('marcflavour') );
1248
        MARC::File::XML->default_record_format( $marc_flavour );
1229
        };
1249
        my $record = MARC::Record->new();
1230
        if ($@) { warn " problem with :$biblionumber : $@ \n$marcxml"; }
1250
1231
        return unless $record;
1251
        if ($marcxml) {
1232
1252
            $record = eval {
1233
        C4::Biblio::_koha_marc_update_bib_ids( $record, $frameworkcode, $biblionumber,
1253
                MARC::Record::new_from_xml( $marcxml, "utf8", $marc_flavour);
1234
            $biblioitemnumber );
1254
            };
1235
        C4::Biblio::EmbedItemsInMarcBiblio( $record, $biblionumber, undef, $opac )
1255
            if ($@) { warn " problem with :$biblionumber : $@ \n$marcxml"; }
1236
          if ($embeditems);
1256
            return unless $record;
1237
1257
1238
        return $record;
1258
            C4::Biblio::_koha_marc_update_bib_ids(
1259
                $record,
1260
                $frameworkcode,
1261
                $biblionumber,
1262
                $biblioitemnumber
1263
            );
1264
            $marc_records{$biblionumber} = $record;
1265
        }
1239
    }
1266
    }
1240
    else {
1267
1241
        return;
1268
    if ($embeditems) {
1269
        C4::Biblio::EmbedItemsInMarcBiblios(
1270
            \%marc_records,
1271
            undef,
1272
            $opac
1273
        );
1242
    }
1274
    }
1275
    return wantarray ? values %marc_records : \%marc_records;
1243
}
1276
}
1244
1277
1245
=head2 GetXmlBiblio
1278
=head2 GetXmlBiblio
Lines 2810-2837 sub EmbedItemsInMarcBiblio { Link Here
2810
        carp 'EmbedItemsInMarcBiblio: No MARC record passed';
2843
        carp 'EmbedItemsInMarcBiblio: No MARC record passed';
2811
        return;
2844
        return;
2812
    }
2845
    }
2813
    $itemnumbers = [] unless defined $itemnumbers;
2846
    my ($marc_with_items) = EmbedItemsInMarcBiblios(
2847
        { $biblionumber => $marc },
2848
        $itemnumbers,
2849
        $opac
2850
    );
2851
    return $marc_with_items;
2852
}
2853
2854
sub EmbedItemsInMarcBiblios {
2855
    my ($marc_records, $itemnumbers, $opac) = @_;
2814
2856
2815
    # Could this be moved lower down and run only when items
2857
    $itemnumbers = [] unless defined $itemnumbers;
2816
    # exists for improved performance? Probably..
2817
    my $frameworkcode = GetFrameworkCode($biblionumber);
2818
    _strip_item_fields($marc, $frameworkcode);
2819
2858
2820
    # ... and embed the current items
2859
    # ... and embed the current items
2821
    my $dbh = C4::Context->dbh;
2860
    my $dbh = C4::Context->dbh;
2822
    my $sth = $dbh->prepare("SELECT itemnumber FROM items WHERE biblionumber = ?");
2861
2823
    $sth->execute($biblionumber);
2862
    my @biblionumbers = keys %{$marc_records};
2824
    my @all_itemnumbers;
2863
    my $in_placeholders = join ', ', (('?') x @biblionumbers);
2825
    while ( my ($itemnumber) = $sth->fetchrow_array ) {
2864
2826
        push @all_itemnumbers, $itemnumber;
2865
    my $biblio_itemnumbers = $dbh->selectcol_arrayref(
2827
    }
2866
        "SELECT itemnumber FROM items WHERE biblionumber IN ($in_placeholders)",
2867
        undef,
2868
        @biblionumbers
2869
    );
2870
2828
    # Remove invalid item numbers by intersecting with all valid item numbers
2871
    # Remove invalid item numbers by intersecting with all valid item numbers
2829
    if(@$itemnumbers) {
2872
    # if $itemnumbers argument was provided
2873
2874
    # TODO: MAKE SURE THERE IS A TEST FOR THIS
2875
    if(@{$itemnumbers}) {
2830
        my %h = map { $_ => undef } @{$itemnumbers};
2876
        my %h = map { $_ => undef } @{$itemnumbers};
2831
        $itemnumbers = [grep { exists $h{$_} } @all_itemnumbers];
2877
        $itemnumbers = [grep { exists $h{$_} } @{$biblio_itemnumbers}];
2832
    }
2878
    }
2833
    else {
2879
    else {
2834
        $itemnumbers = \@all_itemnumbers;
2880
        $itemnumbers = $biblio_itemnumbers;
2835
    }
2881
    }
2836
    # If no item numbers then no point in continuing
2882
    # If no item numbers then no point in continuing
2837
    return unless (@{$itemnumbers});
2883
    return unless (@{$itemnumbers});
Lines 2841-2859 sub EmbedItemsInMarcBiblio { Link Here
2841
    require C4::Items;
2887
    require C4::Items;
2842
2888
2843
    my $items = C4::Items::GetItems($itemnumbers);
2889
    my $items = C4::Items::GetItems($itemnumbers);
2844
    if ($opachiddenitems) {
2890
    # We have now fetched all items, time to partion by biblionumber
2845
        my %hidden_items = map { $_ => undef } C4::Items::GetHiddenItemnumbers(@{$items});
2891
    my %items_by_biblionumber = (map { ($_, []) } @biblionumbers);
2846
        # Reduce items to non hidden items
2892
    foreach my $item (@{$items}) {
2847
        $items = [grep { !(exists $hidden_items{$_->{itemnumber}}) } @{$items}];
2893
        push @{$items_by_biblionumber{$item->{biblionumber}}}, $item;
2848
    }
2894
    }
2849
2895
2850
    my ($itemtag) = GetMarcFromKohaField("items.itemnumber", $frameworkcode);
2896
    foreach my $biblionumber (@biblionumbers) {
2851
    my @item_fields;
2897
        my $marc_record = $marc_records->{$biblionumber};
2852
    foreach my $item (@{$items}) {
2898
        my $items = $items_by_biblionumber{$biblionumber};
2853
        my $item_marc = C4::Items::GetMarcItem($biblionumber, $item);
2899
        # Could this be moved lower down and run only when items
2854
        push @item_fields, $item_marc->field($itemtag);
2900
        # exists for improved performance? Probably..
2901
        my $frameworkcode = GetFrameworkCode($biblionumber);
2902
        _strip_item_fields($marc_record, $frameworkcode);
2903
2904
        if ($opachiddenitems) {
2905
            my %hidden_items = map { $_ => undef } C4::Items::GetHiddenItemnumbers(@{$items});
2906
            # Reduce items to non hidden items
2907
            $items = [grep { !(exists $hidden_items{$_->{itemnumber}}) } @{$items}];
2908
        }
2909
2910
        my ($itemtag) = GetMarcFromKohaField("items.itemnumber", $frameworkcode);
2911
        my @item_fields;
2912
        foreach my $item (@{$items}) {
2913
            my $item_marc = C4::Items::GetMarcItem($biblionumber, $item);
2914
            push @item_fields, $item_marc->field($itemtag);
2915
        }
2916
        $marc_record->append_fields(@item_fields);
2855
    }
2917
    }
2856
    $marc->append_fields(@item_fields);
2918
    return $marc_records;
2857
}
2919
}
2858
2920
2859
=head1 INTERNAL FUNCTIONS
2921
=head1 INTERNAL FUNCTIONS
(-)a/Koha/BiblioUtils.pm (-20 / +62 lines)
Lines 111-139 The iterator is a Koha::MetadataIterator object. Link Here
111
=cut
111
=cut
112
112
113
sub get_all_biblios_iterator {
113
sub get_all_biblios_iterator {
114
    my ($self, $params) = @_;
115
    my $batched;
116
    my $batch_size;
117
    if ($params) {
118
        $batched //= $params->{batched};
119
        $batch_size = $params->{batch_size} || 2000;
120
    }
121
114
    my $database = Koha::Database->new();
122
    my $database = Koha::Database->new();
115
    my $schema   = $database->schema();
123
    my $schema   = $database->schema();
116
    my $rs =
124
    my $rs = $schema->resultset('Biblio')->search(
117
      $schema->resultset('Biblio')->search( {},
125
        {},
118
        { columns => [qw/ biblionumber /] } );
126
        { columns => [qw/ biblionumber /] }
119
    my $next_func = sub {
127
    );
120
        # Warn and skip bad records, otherwise we break the loop
128
121
        while (1) {
129
    my $next_func;
122
            my $row = $rs->next();
130
    if ($batched) {
123
            return if !$row;
131
        my @marc_records_batch;
124
            my $marc = C4::Biblio::GetMarcBiblio({
132
        $next_func = sub {
125
                biblionumber => $row->biblionumber,
133
            unless (@marc_records_batch) {
126
                embed_items  => 1 });
134
                #Batch empty, nead to buffer up more records
127
            my $next = eval {
135
                my $limit = $batch_size;
128
                __PACKAGE__->new($marc, $row->biblionumber);
136
                my @biblionumbers;
129
            };
137
                # Warn and skip bad records, otherwise we break the loop
130
            if ($@) {
138
                while ($limit--) {
131
                warn "Something went wrong reading record for biblio $row->biblionumber: $@\n";
139
                    my $row = $rs->next();
132
                next;
140
                    last if !$row;
141
                    push @biblionumbers, $row->biblionumber;
142
                }
143
                if (@biblionumbers) {
144
                    # TODO: Make sure GetMarcBiblios handle broken records
145
                    my $marc_records = C4::Biblio::GetMarcBiblios({
146
                        biblionumbers => \@biblionumbers,
147
                        embed_items => 1
148
                    });
149
                    while (my ($biblionumber, $marc_record) = each %{$marc_records}) {
150
                        my $next = __PACKAGE__->new($marc_record, $biblionumber);
151
                        push @marc_records_batch, $next;
152
                    }
153
                }
133
            }
154
            }
134
            return $next;
155
            return pop @marc_records_batch;
135
        }
156
        };
136
    };
157
    }
158
    else {
159
        $next_func = sub {
160
            # Warn and skip bad records, otherwise we break the loop
161
            while (1) {
162
                my $row = $rs->next();
163
                return if !$row;
164
                my $marc = C4::Biblio::GetMarcBiblio({
165
                    biblionumber => $row->biblionumber,
166
                    embed_items => 1
167
                });
168
                my $next = eval {
169
                    __PACKAGE__->new($marc, $row->biblionumber);
170
                };
171
                if ($@) {
172
                    warn "Something went wrong reading record for biblio $row->biblionumber: $@\n";
173
                    next;
174
                }
175
                return $next;
176
            }
177
        };
178
    }
137
    return Koha::MetadataIterator->new($next_func);
179
    return Koha::MetadataIterator->new($next_func);
138
}
180
}
139
181
(-)a/Koha/Items.pm (-3 / +2 lines)
Lines 106-113 sub search_unblessed { Link Here
106
        push @{$items}, $item;
106
        push @{$items}, $item;
107
    }
107
    }
108
    elsif (ref($values) eq 'ARRAY') {
108
    elsif (ref($values) eq 'ARRAY') {
109
        my $in = join ', ', (('?') x @{$values});
109
        my $in_placeholders = join ', ', (('?') x @{$values});
110
        my $sth = C4::Context->dbh->prepare(qq{SELECT * FROM items WHERE $field IN($in)});
110
        my $sth = C4::Context->dbh->prepare(qq{SELECT * FROM items WHERE $field IN($in_placeholders)});
111
        $sth->execute(@{$values});
111
        $sth->execute(@{$values});
112
        while (my $item = $sth->fetchrow_hashref) {
112
        while (my $item = $sth->fetchrow_hashref) {
113
            push @{$items}, $item;
113
            push @{$items}, $item;
114
- 

Return to bug 19884