X-Git-Url: http://git.jankratochvil.net/?p=www.jankratochvil.net.git;a=blobdiff_plain;f=project%2FIndex.html.pl;h=dbbf48621a7e56bd914f940b20881f9311aa2334;hp=eac89eea42841ae847f386249478e7996135c60d;hb=edd751ab0449b6117afdd9c496af762008c40351;hpb=de54f68329082f11a9926a99a832a4550bb17640

diff --git a/project/Index.html.pl b/project/Index.html.pl
index eac89ee..dbbf486 100755
--- a/project/Index.html.pl
+++ b/project/Index.html.pl
@@ -45,22 +45,6 @@ print My::Project->platforms(undef());
 
 my %item=( My::Project::item_hash_read() );
 
-# $col{"name"}{"show"}=1
-# $col{"name"}{"format"}=sub { "<".$_[0].">"; }
-# $col{"name"}{""}="Project name";
-# @col_order
-
-my @row_order=qw(-priority);
-my @col_order=qw(name summary license maintenance language);
-my %col;
-
-sub format_url ($) { return (!$_[0] ? "" : '<a href="'.$_[0].'">X</a>'); }
-
-$col{"name"}{"format"}=sub {
-		$_[0]=~s#<a\s[^>]*>([^<]*)</a>#$1#g;
-		return "<a href=\"".$_[1]."/\">".$_[0]."</a>";
-		};
-
 my @platforms=@My::Project::platforms;
 while (@platforms) {
 	my $platform_sym =shift @platforms;