From e0e6d375d68ced59a5941a0a6ebe92b51aee3cd0 Mon Sep 17 00:00:00 2001 From: Marc Chantreux Date: Tue, 8 Dec 2009 11:47:17 +0100 Subject: [PATCH] remove NSB and NSE from output --- C4/Output.pm | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/C4/Output.pm b/C4/Output.pm index 19e946eba5..1e00d4f8f4 100644 --- a/C4/Output.pm +++ b/C4/Output.pm @@ -372,7 +372,16 @@ response's Content-Type to that value instead of "text/html". sub output_html_with_http_headers ($$$;$) { my $query = shift; my $cookie = shift; - my $html = shift; + my $html = shift; + $html =~ s/ \x{C2} + (?: \x{88} # NSB + | \x{89} # NSE + # SUDOC shares the cataloguing of french universities + | \x{98} # SUDOC NSB + | \x{9c} # SUDOC NSE + ) + //gx; + my $content_type = @_ ? shift : "text/html"; $content_type = "text/html" unless $content_type =~ m!/!; # very basic sanity check print $query->header( -- 2.39.5