+line9k image

[www.jankratochvil.net.git] / project / List.html.pl

diff --git a/project/List.html.pl b/project/List.html.pl
index 598c73c..c03b5be 100755 (executable)
--- 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();
 
@@ -60,7 +62,9 @@ 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>";
+               return "<a href=\"".$_[1]."/\">"
+                               .$item{$_[1]}{"priority"}.":"   # debug
+                               .$_[0]."</a>";
                };
 
 $col{"license"}{"format"}=sub {