X-Git-Url: http://git.projectaon.org/?p=project-aon.git;a=blobdiff_plain;f=common%2Fscripts%2Fxmlize.pl;h=277ceb090ad3a9be94d77d00063795f23495c969;hp=23f20664ae83c9ecae04c0be81ec0396a32fc8ef;hb=06d757469d10301c723f3f2ace712196c115094a;hpb=6df1169b0e3e8638309244e672fb9eb23fec0433

diff --git a/common/scripts/xmlize.pl b/common/scripts/xmlize.pl
index 23f2066..277ceb0 100755
--- a/common/scripts/xmlize.pl
+++ b/common/scripts/xmlize.pl
@@ -83,17 +83,17 @@ for( my $sectionNumber = $minSectionNumber; $sectionNumber <= $numberOfSections;
 
     foreach my $oldline (@oldlines) {
         $oldline =~ s/\r|\n/ /g;
-	$oldline =~ s/^\s*(\S*)\s*$/$1/;
-	$oldline =~ s/\s\s/ /;
-	if( $oldline ne "" ) {
-	    $newline .= (" " . $oldline);
-	}
-	else {
-            $newline = &xmlize( $newline, $infile );
-            $newline .= "\n" if( $newline ne "" );
-	    push( @newlines, $newline );
-            $newline = "";
-	}
+        $oldline =~ s/^\s*(\S*)\s*$/$1/;
+        $oldline =~ s/\s{2,}/ /;
+        if( $oldline ne "" ) {
+            $newline .= (" " . $oldline);
+        }
+        else {
+                $newline = &xmlize($newline, $infile);
+                $newline .= "\n" if($newline ne "");
+                push( @newlines, $newline );
+                $newline = "";
+        }
     }
 
     print "\n\n    <section class=\"numbered\" id=\"sect$sectionNumber\">\n     <meta><title>$sectionNumber</title></meta>\n\n     <data>\n";