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

(-)a/C4/Biblio.pm (-2 / +2 lines)
Lines 3077-3083 sub ModBiblioMarc { Link Here
3077
                my $value = $subfield->[1];
3077
                my $value = $subfield->[1];
3078
                $value =~ s/[\n\r]+/ /g;
3078
                $value =~ s/[\n\r]+/ /g;
3079
                $value =~ s/^\s+|\s+$|^\t+|\t+$//g;
3079
                $value =~ s/^\s+|\s+$|^\t+|\t+$//g;
3080
                $field->update( $key => $value );
3080
                $field->add_subfields( $key => $value ); # add subfield to the end of the subfield list
3081
                $field->delete_subfield( pos => 0 ); # delete the subfield at the top of the subfield list
3081
            }
3082
            }
3082
        }
3083
        }
3083
    }
3084
    }
3084
- 

Return to bug 30358