captive-1.0

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

diff --git a/project/List.html.pl b/project/List.html.pl
index 76b1ec3..0e0e588 100755 (executable)
--- a/project/List.html.pl
+++ b/project/List.html.pl
@@ -37,6 +37,9 @@ My::Web->init(
                "args_check"=>{
                                "platform"=>'^(?:platform)?$',
                                },
+               "rel_up"=>top_dir(),
+               "rel_start"=>top_dir(),
+               "footer_ids"=>0,
                );
 My::Web->heading();
 
@@ -61,7 +64,7 @@ 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]."/\">"
-                               .$item{$_[1]}{"priority"}.":"   # debug
+                               .(!$My::Web::W->{"args"}{"W"} ? "" : $item{$_[1]}{"priority"}.":")
                                .$_[0]."</a>";
                };
 
@@ -108,7 +111,8 @@ my($platform)=@_;
                                for my $order_by (@row_order,"name") {
                                        my $order_by=$order_by;
                                        my $minus=($order_by=~s/^(-)//)[0];
-                                       my $r=($item{$a}{$order_by} cmp $item{$b}{$order_by});
+                                       # FIXME: 'cmp' or '<=>'?
+                                       my $r=($item{$a}{$order_by} <=> $item{$b}{$order_by});
                                        $r=-$r if $minus;
                                        return $r if $r;
                                        }