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 f950b5accfbafa7d3ac90fc16ff8f8942d81d541..1d996ad07af444da6800afc938780395f66e628d 100644 (file)
--- a/deal.II/doc/glossary/extract.pl
+++ b/deal.II/doc/glossary/extract.pl
@@ -16,8 +16,16 @@ EOT
 while(<>)
 {
     s/\s+/ /g;
-    s/<<([^>]+)>>/<A HREF="#$1">$1<\/A>/g;
-    s/([^:]+):(.*)/<DT><A CLASS="name" NAME="$1">$1<\/A><\/DT>\n\t<DD>$2<\/DD>/;
+    while ( /<<([^>]+)>>/g ) {
+       $link_name = $1;
+       $link_name =~ s/\s/_/g;
+       s/<<([^>]+)>>/<A HREF="#$link_name">$1<\/A>/g;
+    }
+    while ( /([^:]+):(.*)/g ) {
+       $link_name = $1;
+       $link_name =~ s/\s/_/g;
+       s/([^:]+):(.*)/<DT><A NAME="$link_name" CLASS="name">$1<\/A><\/DT>\n\t<DD>$2<\/DD>/;
+    }
     print "\n$_\n";
 }