# HG changeset patch
# User Klaus Thoden <kthoden@mpiwg-berlin.mpg.de>
# Date 1367488334 -7200
# Node ID 6fa5e8c4e0dd41f5d71361dca00bb0404a1ea68b
# Parent  616f0379a3a0a3f59befee63a5345be912237a7c
new version

diff -r 616f0379a3a0 -r 6fa5e8c4e0dd DESpecs/skripte/create_overview_text.pl
--- a/DESpecs/skripte/create_overview_text.pl	Thu May 02 11:50:41 2013 +0200
+++ b/DESpecs/skripte/create_overview_text.pl	Thu May 02 11:52:14 2013 +0200
@@ -3,9 +3,9 @@
 use warnings;
 
 #
-# create_overview_text.pl
+# create_overview_text2.pl
 #
-# Wolfgang Schmidle, 2008-10-04
+# Wolfgang Schmidle, 2008-10-06
 #
 
 
@@ -43,6 +43,11 @@
 	
 	next if /^\\vspace/;
 	next if /^\\tocspace/;
+	next if /^\\clearpage/;
+	next if /^\\mehrzeilen/;
+
+	s/^%overview //;    # commands for the overview document 
+						# that are ignored in the main document
 
 	# remove all unwanted enviromnents, e.g. clarification
 	if (/\\begin\{(.+?)\}/)
@@ -72,7 +77,10 @@
 		$_ = $neueDatei[$i+$offset];
 		if (/^ *$/ || /\\section/)
 		{
-			$neueDatei[$i] =~ s/\{(.+?)\}/\{($1)\}/;
+#			$neueDatei[$i] =~ s/\{(.+?)\}/\{($1)\}/;
+			$neueDatei[$i] = "% $neueDatei[$i]";
+			$neueDatei[$i] .= '\refstepcounter{section}';
+			$neueDatei[$i] .= "\n";	
 		}
 	} 
 	else 
@@ -82,7 +90,10 @@
 			$_ = $neueDatei[$i+$offset];
 			if (/^ *$/ || /\\section/ || /\\subsection/)
 			{
-				$neueDatei[$i] =~ s/\{(.+?)\}/\{($1)\}/;
+#				$neueDatei[$i] =~ s/\{(.+?)\}/\{($1)\}/;
+				$neueDatei[$i] = "% $neueDatei[$i]";
+				$neueDatei[$i] .= '\refstepcounter{subsection}';
+				$neueDatei[$i] .= "\n";	
 			}
 		} 
 		else 
@@ -92,7 +103,10 @@
 				$_ = $neueDatei[$i+$offset];
 				if (/^ *$/ || /\\section/ || /\\subsection/ || /\\subsubsection/)
 				{
-					$neueDatei[$i] =~ s/\{(.+?)\}/\{($1)\}/;
+#					$neueDatei[$i] =~ s/\{(.+?)\}/\{($1)\}/;
+				$neueDatei[$i] = "% $neueDatei[$i]";
+				$neueDatei[$i] .= '\refstepcounter{subsubsection}';
+				$neueDatei[$i] .= "\n";	
 				}
 			}
 		}