-Licenses

[www.jankratochvil.net.git] / project / List.pm

diff --git a/project/List.pm b/project/List.pm
index e8e913d..68d48af 100755 (executable)
--- a/project/List.pm
+++ b/project/List.pm
@@ -25,6 +25,7 @@ use warnings;
 
 use My::Web;
 Wrequire 'project::Lib';
+use Carp qw(confess cluck);
 
 
 sub handler
@@ -36,7 +37,8 @@ My::Web->init(
                                },
 #              "rel_up"=>"/",  # TODO:homepage
 #              "rel_start"=>"/",       # TODO:homepage
-               "footer_ids"=>0,
+               # Not used if no full listing is done:
+               #"footer_ids"=>0,
                );
 My::Web->heading();
 
@@ -45,6 +47,7 @@ print(project::Lib->views(($W->{"args"}{"platform"} ? "BriefPlatform" : "BriefUn
 print(project::Lib->platforms(undef(),"novskip"=>1)) if $W->{"args"}{"platform"};
 
 my %item=project::Lib->name_to_hashref();
+my %item_unused=%item;
 
 # $col{"name"}{"show"}=1
 # $col{"name"}{"format"}=sub { "<".$_[0].">"; }
@@ -120,6 +123,7 @@ my($platform)=@_;
                        print '<tr>';
                        for my $col (@col_order) {
                                next if defined $col{$col}{"show"} && !$col{$col}{"show"};
+                               delete $item_unused{$row};
                                print '<td>';
                                if (!$col{$col}{"format"}) {
                                        print(($item{$row}{$col} || ""));
@@ -153,6 +157,7 @@ else {
                &{$print_one_platform}($platform_sym);
                }
        }
+cluck "INVALID 'platform': $_" for keys(%item_unused);
 
 
 exit;