X-Git-Url: http://git.jankratochvil.net/?a=blobdiff_plain;f=project%2FList.pm;fp=project%2FList.pm;h=b7e3b74bea5b1b2b0d8f7b1468ca9fd21f7db450;hb=eea758eef3afb11fe045f2c8ee51346a54295616;hp=e8e913d6e8728c7a2aa08bfd5907c5b3c009b94a;hpb=fc406510006aff9bbb10e9e951b827a3d7ce64f9;p=www.jankratochvil.net.git

diff --git a/project/List.pm b/project/List.pm
index e8e913d..b7e3b74 100755
--- 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
@@ -45,6 +46,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 +122,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 +156,7 @@ else {
 		&{$print_one_platform}($platform_sym);
 		}
 	}
+cluck "INVALID 'platform': $_" for keys(%item_unused);
 
 
 exit;