From: wolf <wolf@0785d39b-7218-0410-832d-ea1e28bc413d>
Date: Mon, 5 Nov 2001 08:44:53 +0000 (+0000)
Subject: Slight updates and fixes.
X-Git-Url: https://gitweb.dealii.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b06b2f21c841b007ef563a146881fd6a6dbb7f44;p=dealii-svn.git

Slight updates and fixes.


git-svn-id: https://svn.dealii.org/trunk@5180 0785d39b-7218-0410-832d-ea1e28bc413d
---

diff --git a/deal.II/doc/tutorial/chapter-2.step-by-step/program2html b/deal.II/doc/tutorial/chapter-2.step-by-step/program2html
index 41c836f8b3..0b7cc35b5e 100644
--- a/deal.II/doc/tutorial/chapter-2.step-by-step/program2html
+++ b/deal.II/doc/tutorial/chapter-2.step-by-step/program2html
@@ -46,14 +46,16 @@ while (<>) {
     {
 	# in comment mode: first skip leading whitespace and
 	# comment // signs
-	s!\s*//\s*(.*)!$1!;
+	s!\s*//\s*(.*)\n!$1!;
 
 	# second, replace section headers, and generate addressable
 	# anchor
-	s!\@sect(\d)\{(.*)\}\s*$!<h$1>$2</h$1>!g;
-	$sect_name = $2;
-	$sect_name =~ s/\s/_/g;
-	$_ = "\n<a name=\"$sect_name\"></a>" . $_;
+	if ( /\@sect/ ) {
+	   s!\@sect(\d)\{(.*)\}\s*$!<h$1>$2</h$1>!g;
+	   $sect_name = $2;
+	   $sect_name =~ s/\s/_/g;
+	   $_ = "\n<a name=\"$sect_name\"></a>" . $_;
+	}
 
 	# finally print this line
 	print $_, "\n";