From: Wolfgang Bangerth Date: Mon, 28 Feb 2000 14:42:25 +0000 (+0000) Subject: Escape whitespace in xrefs. X-Git-Tag: v8.0.0~20864 X-Git-Url: https://gitweb.dealii.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=0f4e90d6aab0651473c32fbf5d36045257f82219;p=dealii.git Escape whitespace in xrefs. git-svn-id: https://svn.dealii.org/trunk@2500 0785d39b-7218-0410-832d-ea1e28bc413d --- 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"; }