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

(-)a/Koha/Exporter/Record.pm (-1 / +3 lines)
Lines 27-32 sub _get_record_for_export { Link Here
27
        return;
27
        return;
28
    }
28
    }
29
29
30
    return unless $record;
31
30
    if ($dont_export_fields) {
32
    if ($dont_export_fields) {
31
        for my $f ( split / /, $dont_export_fields ) {
33
        for my $f ( split / /, $dont_export_fields ) {
32
            if ( $f =~ m/^(\d{3})(.)?$/ ) {
34
            if ( $f =~ m/^(\d{3})(.)?$/ ) {
Lines 128-133 sub export { Link Here
128
        print "\n";
130
        print "\n";
129
        for my $record_id (@$record_ids) {
131
        for my $record_id (@$record_ids) {
130
            my $record = _get_record_for_export( { %$params, record_id => $record_id } );
132
            my $record = _get_record_for_export( { %$params, record_id => $record_id } );
133
            next unless $record;
131
            print MARC::File::XML::record($record);
134
            print MARC::File::XML::record($record);
132
            print "\n";
135
            print "\n";
133
        }
136
        }
134
- 

Return to bug 17088