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

(-)a/C4/AuthoritiesMarc.pm (-1 / +2 lines)
Lines 646-652 sub AddAuthority { Link Here
646
            foreach my $subfield ( $field->subfields ) {
646
            foreach my $subfield ( $field->subfields ) {
647
                my $key = $subfield->[0];
647
                my $key = $subfield->[0];
648
                my $value = $subfield->[1];
648
                my $value = $subfield->[1];
649
                $value =~ s/^\s+|\s+$|\n+|\r+|^\t+|\t+$//g;
649
                $value =~ s/^\s+|\s+$|^\t+|\t+$|^\n+|\n+$|^\r+|\r+$//g;
650
                $value =~ s/\n+|\r+/ /g;
650
                $field->update( $key => $value );
651
                $field->update( $key => $value );
651
            }
652
            }
652
        }
653
        }
(-)a/C4/Biblio.pm (-2 / +2 lines)
Lines 2914-2920 sub ModBiblioMarc { Link Here
2914
            foreach my $subfield ( $field->subfields ) {
2914
            foreach my $subfield ( $field->subfields ) {
2915
                my $key = $subfield->[0];
2915
                my $key = $subfield->[0];
2916
                my $value = $subfield->[1];
2916
                my $value = $subfield->[1];
2917
                $value =~ s/^\s+|\s+$|\n+|\r+|^\t+|\t+$//g;
2917
                $value =~ s/^\s+|\s+$|^\t+|\t+$|^\n+|\n+$|^\r+|\r+$//g;
2918
                $value =~ s/\n+|\r+/ /g;
2918
                $field->update( $key => $value );
2919
                $field->update( $key => $value );
2919
            }
2920
            }
2920
        }
2921
        }
2921
- 

Return to bug 30358