From 240d6a683ddfbe8db5eb109018cef063c8b583cf Mon Sep 17 00:00:00 2001
From: short <>
Date: Wed, 15 Oct 2003 13:37:13 +0000
Subject: [PATCH] update, MSIE bug compatibility

---
 project/Index.html.pl         | 31 +++++++++----------------
 project/captive/Index.html.pl | 54 ++++++++++++++++---------------------------
 project/mot2as/Index.html.pl  |  2 +-
 project/patchd2/ListItem.pm   |  4 +---
 4 files changed, 33 insertions(+), 58 deletions(-)

diff --git a/project/Index.html.pl b/project/Index.html.pl
index d8f527b..bee2eae 100755
--- a/project/Index.html.pl
+++ b/project/Index.html.pl
@@ -73,28 +73,19 @@ while (@platforms) {
 			(lc($item{$a}{"name"}) cmp lc($item{$b}{"name"}));
 			} map({ $item{$_}{"platform"} ne $platform_sym ? () : ($_); } keys(%item));
 	for my $project (@projects) {
+		my $t="";
+
+		$t.="<h3>".a_href("/project/$project/",$item{$project}{"name"}.": ".$item{$project}{"summary"})."</h3>\n";
+		$t.="<blockquote>\n";
+			$t.=$item{$project}{"description"};
+		$t.="</blockquote>\n";
+
 		if ($item{$project}{"icon"}) {
-			print <<"HERE";
-<table border="0" width="100%">
-	<col width="1*" />
-	<col width="0*" />
-	<tr>
-		<td align="left">
-HERE
+			print rightimg $t,
+					"/project/$project/".$item{$project}{"icon"},$item{$project}{"name"}." Icon","a_href"=>"/project/$project/";
 			}
-		print "<h3>".a_href("/project/$project/",$item{$project}{"name"}.": ".$item{$project}{"summary"})."</h3>\n";
-		print "<blockquote>\n";
-			print $item{$project}{"description"};
-		print "</blockquote>\n";
-		if ($item{$project}{"icon"}) {
-			print <<"HERE";
-		</td>
-		<td align="right">@{[
-				img "/project/$project/".$item{$project}{"icon"},$item{$project}{"name"}." Icon","a_href"=>"/project/$project/"
-				]}</td>
-	</tr>
-</table>
-HERE
+		else {
+			print $t;
 			}
 		}
 	}
diff --git a/project/captive/Index.html.pl b/project/captive/Index.html.pl
index 8ff2221..a6dd149 100755
--- a/project/captive/Index.html.pl
+++ b/project/captive/Index.html.pl
@@ -62,27 +62,15 @@ my @stuff=(
 				." <span class=\"quote\">hal.dll</span>.",
 		);
 
+print rightimg((map("<p class=\"stuff\">$_</p>\n",($stuff[int rand @stuff])))[0],
+		'captive-install-acquire-small','[ Captive Microsoft Windows Drivers Acquire Illustration ]',
+				"a_href_img"=>'captive-install-acquire');
 
 print <<"HERE";
 
-
-<table border="0" width="100%">
-	<col width="1*" />
-	<col width="0*" />
-	<tr>
-		<td align="left">
-			@{[ map("<p class=\"stuff\">$_</p>\n",($stuff[int rand @stuff])) ]}
-		</td>
-		<td align="right">@{[
-				img 'captive-install-acquire-small','[ Captive Microsoft Windows Drivers Acquire Illustration ]',
-						"a_href_img"=>'captive-install-acquire'
-				]}</td>
-	</tr>
-</table>
-
 @{[ vskip "3ex" ]}
 
-<table border="1" align="center" style="text-align: center;"><tr><th>Distribution</th>
+<table border="1" align="center" style="text-align: center;" width="100%"><tr><th>Distribution</th>
 		<th>Installation Case #1<br />Filesystem and installer<br />(recommended)</th>
 		<th>Installation Case #2<br />Manual installation<br />(filesystem, expert user)</th>
 		<th>Installation Case #3<br />Command-line client<br />(no filesystem access)</th></tr>
@@ -292,25 +280,23 @@ Linux kernel version (<b>rpm&nbsp;-q&nbsp;kernel</b>) and re-run <span
 class="quote">/usr/share/lufs/prepmod</span>.</p>
 
 
-<table border="0" width="100%">
-	<col width="1*" />
-	<col width="0*" />
-	<tr>
-		<td align="left">
-			<h2>The First Open Source MS-Windows Kernel API for Free OS</h2>
-
-			<p>Compatibility with existing binary Microsoft Windows file system drivers was
-			reached. Microsoft Windows kernel system components required by these drivers
-			were analyzed and successfuly emulated in the GNU/Linux operating system.
-			Project brings Microsoft Windows kernel emulation framework to support even
-			other types Microsoft Windows drivers in the future.
-			<span class="productname">@{[ a_href 'http://www.reactos.com/','ReactOS' ]}</span>
-			code base made a big asset for this functionality.</p>
-		</td>
-		<td align="right">@{[ img 'reactos','ReactOS',"a_href"=>'http://www.reactos.com/' ]}</td>
-	</tr>
-</table>
+HERE
+
 
+print rightimg <<"HERE",'reactos','ReactOS',"a_href"=>'http://www.reactos.com/';
+	<h2>The First Open Source MS-Windows Kernel API for Free OS</h2>
+
+	<p>Compatibility with existing binary Microsoft Windows file system drivers was
+	reached. Microsoft Windows kernel system components required by these drivers
+	were analyzed and successfuly emulated in the GNU/Linux operating system.
+	Project brings Microsoft Windows kernel emulation framework to support even
+	other types Microsoft Windows drivers in the future.
+	<span class="productname">@{[ a_href 'http://www.reactos.com/','ReactOS' ]}</span>
+	code base made a big asset for this functionality.</p>
+HERE
+
+
+print <<"HERE";
 
 @{[ vskip "3ex" ]}
 
diff --git a/project/mot2as/Index.html.pl b/project/mot2as/Index.html.pl
index bbd81fe..94dff41 100755
--- a/project/mot2as/Index.html.pl
+++ b/project/mot2as/Index.html.pl
@@ -39,7 +39,7 @@ My::Project->init_project(
 
 print <<"HERE";
 <p>Specifically it will care about: <code>equ</code> operation, <code>dc.b</code> strings,
-<code>;</code> comments, <code>$</code> for hex-radix, <code>%</code> for bin-radix,
+<code>;</code> comments, <code>@{[ '$' ]}</code> for hex-radix, <code>%</code> for bin-radix,
 local labels, <code>:</code> for label termination.</p>
 HERE
 
diff --git a/project/patchd2/ListItem.pm b/project/patchd2/ListItem.pm
index 4cbc2eb..8b006a8 100755
--- a/project/patchd2/ListItem.pm
+++ b/project/patchd2/ListItem.pm
@@ -40,9 +40,7 @@ our @ListItem=(
 		"language"=>"i386 asm patch",
 		"description"=><<"HERE",
 <p>Use this @{[ a_href 'http://www.calderathin.com/products/drdos/','DOS' ]}
-program to patch/unpatch Descent 2 to not require CD-ROM to
-run. I need this as I have no CD-ROM installed in my computer. The exact
-bytes sequences needed was investigated by some-else hacker.</p>
+program to patch/unpatch Descent 2 to not require CD-ROM to run.</p>
 HERE
 		);
 
-- 
1.8.3.1