Format marc notes
authorNahuel ANGELINETTI <nahuel.angelinetti@biblibre.com>
Tue, 13 Jan 2009 10:33:54 +0000 (11:33 +0100)
committerHenri-Damien LAURENT <henridamien@koha-fr.org>
Tue, 27 Jan 2009 11:19:47 +0000 (12:19 +0100)
this patch add a filter to notes, it transform \n in <br />

Signed-off-by: Henri-Damien LAURENT <henridamien@koha-fr.org>
C4/Biblio.pm

index 3b2ffd4..62e2e92 100644 (file)
@@ -1083,6 +1083,8 @@ sub GetMarcNotes {
     my $marcnote;
     foreach my $field ( $record->field($scope) ) {
         my $value = $field->as_string();
+        $value =~ s/\n/<br \/>/g ;
+
         if ( $note ne "" ) {
             $marcnote = { marcnote => $note, };
             push @marcnotes, $marcnote;