From: short <>
Date: Mon, 13 Oct 2003 16:39:25 +0000 (+0000)
Subject: +icons
X-Git-Url: https://git.jankratochvil.net/?p=www.jankratochvil.net.git;a=commitdiff_plain;h=bcc344bd73dafe3a5af988a7e6a3b132c0d1299b

+icons
---

diff --git a/project/Index.html.pl b/project/Index.html.pl
index 6c82b46..571acf8 100755
--- a/project/Index.html.pl
+++ b/project/Index.html.pl
@@ -73,10 +73,29 @@ while (@platforms) {
 			(lc($item{$a}{"name"}) cmp lc($item{$b}{"name"}));
 			} map({ $item{$_}{"platform"} ne $platform_sym ? () : ($_); } keys(%item));
 	for my $project (@projects) {
+		if ($item{$project}{"icon"}) {
+			print <<"HERE";
+<table border="0" width="100%">
+	<col width="1*" />
+	<col width="0*" />
+	<tr>
+		<td align="left">
+HERE
+			}
 		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">@{[
+				a_href("/project/$project/",img("/project/$project/".$item{$project}{"icon"},$item{$project}{"name"}." Icon"))
+				]}</td>
+	</tr>
+</table>
+HERE
+			}
 		}
 	}
 
diff --git a/project/List.html.pl b/project/List.html.pl
index 76b1ec3..c03b5be 100755
--- a/project/List.html.pl
+++ b/project/List.html.pl
@@ -37,6 +37,8 @@ My::Web->init(
 		"args_check"=>{
 				"platform"=>'^(?:platform)?$',
 				},
+		"rel_up"=>top_dir(),
+		"rel_start"=>top_dir(),
 		);
 My::Web->heading();
 
diff --git a/project/captive/ListItem.pm b/project/captive/ListItem.pm
index 569010d..f2fe269 100755
--- a/project/captive/ListItem.pm
+++ b/project/captive/ListItem.pm
@@ -36,6 +36,7 @@ our @ListItem=(
 		"license"=>"GPL",
 		"maintenance"=>"active",
 		"language"=>"i386 asm, C, Perl",
+		"icon"=>"captive-install-acquire-icon",
 		"cvs-of main tree"=>"priv/captive",
 		"cvs-of branched ".a_href('http://www.reactos.com/','reactos')." subdir"=>"priv/reactos:captive",
 		"cvs-of branched ".a_href('http://lufs.sourceforge.net/lufs/','lufs')=>"lufs:captive",
diff --git a/project/captive/captive-install-acquire-icon.png b/project/captive/captive-install-acquire-icon.png
new file mode 100644
index 0000000..c1c9c26
Binary files /dev/null and b/project/captive/captive-install-acquire-icon.png differ