ppcrcd/trunk/doc/gendoc.pl

[sparky]

Author: sparky
Date: Fri Mar 24 14:13:17 2006
New Revision: 7305

Modified:
   ppcrcd/trunk/doc/gendoc.pl
Log:
- <p> must not contain <pre>, changed <p> ==> <div class="p">


Modified: ppcrcd/trunk/doc/gendoc.pl
==============================================================================
--- ppcrcd/trunk/doc/gendoc.pl	(original)
+++ ppcrcd/trunk/doc/gendoc.pl	Fri Mar 24 14:13:17 2006
@@ -65,15 +65,15 @@
 			}
 		}
 		if ($par and $line =~ /(\<h[1-3]\>|&lt;options "[a-z]*"&gt;)/) {
-			$out =~ s#(.)(\s*)$#$1</p>$2#;
+			$out =~ s#(.)(\s*)$#$1</div>$2#;
 			$par = 0;
 		}
 		unless ( $pre ) {
 			if ( $line =~ s/^    (\S)/$1/ ) {
 				if ($par) {
-					$out =~ s#(.)(\s*)$#$1</p>$2#;
+					$out =~ s#(.)(\s*)$#$1</div>$2#;
 				}
-				$out .= "<p>";
+				$out .= '<div class="p">';
 				$par = 1;
 			}
 		}
@@ -83,7 +83,7 @@
 		$out =~ s#(.)(\s*)$#$1</pre>$2#;
 	}
 	if ($par) {
-		$out =~ s#(.)(\s*)$#$1</p>$2#;
+		$out =~ s#(.)(\s*)$#$1</dir>$2#;
 	}
 	return $out;
 }
@@ -139,7 +139,8 @@
 			div {
 				padding: 5px;
 			}
-			p {
+			.p {
+				padding: 0px;
 				text-indent: 15px;
 			}
 		</style>
@@ -180,10 +181,11 @@
 				$clean .= $line."\n" if length $line_nosp;
 				return $clean;
 			}
-			if ( $tag eq "div" or $tag eq "p" ) {
+			if ( $tag =~ /^div/ or $tag eq "p" ) {
 				$clean .= $line."\n" if length $line_nosp;
 				$line = $step;
 				$clean .= $step."<$tag>\n";
+				$tag =~ s/\s+.*//;
 				$clean .= paragraph($step."\t", $tag);
 				$clean .= $step."</$tag>\n";
 				next;