From 0f4e90d6aab0651473c32fbf5d36045257f82219 Mon Sep 17 00:00:00 2001 From: Wolfgang Bangerth Date: Mon, 28 Feb 2000 14:42:25 +0000 Subject: [PATCH] Escape whitespace in xrefs. git-svn-id: https://svn.dealii.org/trunk@2500 0785d39b-7218-0410-832d-ea1e28bc413d --- deal.II/doc/glossary/extract.pl | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) diff --git a/deal.II/doc/glossary/extract.pl b/deal.II/doc/glossary/extract.pl index f950b5accf..1d996ad07a 100644 --- a/deal.II/doc/glossary/extract.pl +++ b/deal.II/doc/glossary/extract.pl @@ -16,8 +16,16 @@ EOT while(<>) { s/\s+/ /g; - s/<<([^>]+)>>/$1<\/A>/g; - s/([^:]+):(.*)/
$1<\/A><\/DT>\n\t
$2<\/DD>/; + while ( /<<([^>]+)>>/g ) { + $link_name = $1; + $link_name =~ s/\s/_/g; + s/<<([^>]+)>>/$1<\/A>/g; + } + while ( /([^:]+):(.*)/g ) { + $link_name = $1; + $link_name =~ s/\s/_/g; + s/([^:]+):(.*)/
$1<\/A><\/DT>\n\t
$2<\/DD>/; + } print "\n$_\n"; } -- 2.39.5