update, MSIE bug compatibility

diff --git a/project/Index.html.pl b/project/Index.html.pl
index d8f527b..bee2eae 100755 (executable)
--- 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 (executable)
--- 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 (executable)
--- 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 (executable)
--- 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
                );