BEGIN{ open F,"Makefile"; our $top_dir=pop @{[split /\s/,(grep /^top_srcdir/,<F>)[0]]}; eval "use lib '$top_dir'"; close F; }
use My::Web;
-require CGI;
Wrequire 'My::Project';
-Wrequire 'project::Platform';
My::Web->init(
"__PACKAGE__"=>__PACKAGE__,
"title"=>'Project List',
"section"=>"Projects",
+ "rel_up"=>top_dir(),
+ "rel_start"=>top_dir(),
);
My::Web->heading();
-my $CGI=CGI->new();
-
-print <<"HERE";
-<h1>Project List of @{[ a_href 'http://www.jankratochvil.net/','Jan Kratochvil' ]}</h1>
-
-<ul>
- <li>@{[ a_href 'List.html.pl?platform=1','Brief project listing per platform' ]}</li>
- <li>@{[ a_href 'List.html.pl' ,'Unified brief project listing' ]}</li>
-</ul>
-HERE
-
-print '<table border="1" align="center" style="border-collapse: collapse; border-style: solid;">'."\n";
- print '<tr>'."\n";
- my @platforms=@project::Platform::platforms;
- while (@platforms) {
- my $platform_sym =shift @platforms;
- my $platform_name=shift @platforms;
- print '<td style="padding: 5px;">'.a_href('#'.$platform_sym,$platform_name)."</td>\n";
- }
- print '</tr>'."\n";
-print '</table>'."\n";
-print vskip "1ex";
+print My::Project->views("Detailed");
+print My::Project->platforms(undef());
my %item=( My::Project::item_hash_read() );
return "<a href=\"".$_[1]."/\">".$_[0]."</a>";
};
-@platforms=@project::Platform::platforms;
+my @platforms=@My::Project::platforms;
while (@platforms) {
my $platform_sym =shift @platforms;
my $platform_name=shift @platforms;
(lc($item{$a}{"name"}) cmp lc($item{$b}{"name"}));
} map({ $item{$_}{"platform"} ne $platform_sym ? () : ($_); } keys(%item));
for my $project (@projects) {
- print "<h3>".a_href("$project/",$item{$project}{"name"}.": ".$item{$project}{"summary"})."</h3>\n";
+ print "<h3>".a_href("/project/$project/",$item{$project}{"name"}.": ".$item{$project}{"summary"})."</h3>\n";
print "<blockquote>\n";
print $item{$project}{"description"};
print "</blockquote>\n";