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

(-)a/C4/AuthoritiesMarc.pm (-1 / +2 lines)
Lines 663-669 sub AddAuthority { Link Here
663
            foreach my $subfield ( $field->subfields ) {
663
            foreach my $subfield ( $field->subfields ) {
664
                my $key = $subfield->[0];
664
                my $key = $subfield->[0];
665
                my $value = $subfield->[1];
665
                my $value = $subfield->[1];
666
                $value =~ s/^\s+|\s+$|\n+|\r+|^\t+|\t+$//g;
666
                $value =~ s/^\s+|\s+$|^\t+|\t+$|^\n+|\n+$|^\r+|\r+$//g;
667
                $value =~ s/\n+|\r+/ /g;
667
                $field->update( $key => $value );
668
                $field->update( $key => $value );
668
            }
669
            }
669
        }
670
        }
(-)a/C4/Biblio.pm (-2 / +2 lines)
Lines 2816-2822 sub ModBiblioMarc { Link Here
2816
            foreach my $subfield ( $field->subfields ) {
2816
            foreach my $subfield ( $field->subfields ) {
2817
                my $key = $subfield->[0];
2817
                my $key = $subfield->[0];
2818
                my $value = $subfield->[1];
2818
                my $value = $subfield->[1];
2819
                $value =~ s/^\s+|\s+$|\n+|\r+|^\t+|\t+$//g;
2819
                $value =~ s/^\s+|\s+$|^\t+|\t+$|^\n+|\n+$|^\r+|\r+$//g;
2820
                $value =~ s/\n+|\r+/ /g;
2820
                $field->update( $key => $value );
2821
                $field->update( $key => $value );
2821
            }
2822
            }
2822
        }
2823
        }
2823
- 

Return to bug 30358