+Expected SUSE-9.0 packaging.

[www.jankratochvil.net.git] / project / captive / Index.html.pl

diff --git a/project/captive/Index.html.pl b/project/captive/Index.html.pl
index 09142d1..b66f2bb 100755 (executable)
--- a/project/captive/Index.html.pl
+++ b/project/captive/Index.html.pl
@@ -263,6 +263,15 @@ my @dist=(
                );
 
 for my $dist (@dist) {
+       if ($dist->{"name"} eq "Debian GNU/Linux<br />'unstable' i386") {
+               print "<tr>";
+                       print "<td>SUSE-9.0</td>";
+                       print '<td colspan="3" style="padding: 4ex;">';
+                               print "Expected these days; ".a_href('#lists','subscribe <b>captive-announce-list</b> below.');
+                               print join(", ",map("<span class=\"reqpkg\">$_</span>",@{$reqpkg{$case}}));
+                       print '</td>';
+               print "</tr>\n";
+               }
        print "<tr>";
                print "<td>".$dist->{"name"}."</td>";
                for my $casel (1,2,3) {
@@ -281,7 +290,7 @@ print "<tr>";
        print "<td>Package Requirements</td>";
        for my $case (1,23) {
                print "<td".($case==23 ? ' colspan="2"' : '').">";
-               print join(", ",map("<span class=\"reqpkg\">$_</span>",@{$reqpkg{$case}}));
+                       print join(", ",map("<span class=\"reqpkg\">$_</span>",@{$reqpkg{$case}}));
                print "</td>";
                }
 print "</tr>\n";