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

(-)a/koha-tmpl/intranet-tmpl/prog/en/includes/checkouts-table.inc (+1 lines)
Lines 71-76 Link Here
71
                                [% END %]
71
                                [% END %]
72
                            </select>
72
                            </select>
73
                        [% END %]
73
                        [% END %]
74
                        <label for="export_items_bundle_contents">Export items bundle contents</label> <input type="checkbox" name="export_items_bundle_contents" id="export_items_bundle_contents">
74
                       <label for="export_remove_fields">Don't export fields:</label> <input type="text" id="export_remove_fields" name="export_remove_fields" value="[% Koha.Preference('ExportRemoveFields') | html %]" title="Use for MARC exports" />
75
                       <label for="export_remove_fields">Don't export fields:</label> <input type="text" id="export_remove_fields" name="export_remove_fields" value="[% Koha.Preference('ExportRemoveFields') | html %]" title="Use for MARC exports" />
75
                        <input type="hidden" name="op" value="export" />
76
                        <input type="hidden" name="op" value="export" />
76
                        <input type="hidden" id="output_format" name="output_format" value="iso2709" />
77
                        <input type="hidden" id="output_format" name="output_format" value="iso2709" />
(-)a/tools/export.pl (-1 / +18 lines)
Lines 197-202 if ( $op eq "export" ) { Link Here
197
            @record_ids = grep $record_ids{$_}, @filter_record_ids;
197
            @record_ids = grep $record_ids{$_}, @filter_record_ids;
198
        }
198
        }
199
199
200
        my $export_items_bundle_contents = $query->param('export_items_bundle_contents');
201
        if ($export_items_bundle_contents and $record_type eq 'bibs') {
202
            my $schema = Koha::Database->new->schema;
203
            my $items_bundle_rs = $schema->resultset('ItemsBundle');
204
            foreach my $record_id (@record_ids) {
205
                my $item_bundle = $items_bundle_rs->find({ biblionumber => $record_id });
206
                if ($item_bundle) {
207
                    foreach my $items_bundle_item ($item_bundle->items_bundle_items) {
208
                        my $biblionumber = $items_bundle_item->itemnumber->get_column('biblionumber');
209
                        my $itemnumber = $items_bundle_item->get_column('itemnumber');
210
                        push @record_ids, $biblionumber;
211
                        push @itemnumbers, $itemnumber;
212
                    }
213
                }
214
            }
215
            @record_ids = uniq @record_ids;
216
        }
217
200
        print CGI->new->header(
218
        print CGI->new->header(
201
            -type       => 'application/octet-stream',
219
            -type       => 'application/octet-stream',
202
            -charset    => 'utf-8',
220
            -charset    => 'utf-8',
203
- 

Return to bug 25503