git://git.jankratochvil.net
/
www.jankratochvil.net.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Comment 'FIXME' cases occurance.
[www.jankratochvil.net.git]
/
project
/
List.html.pl
diff --git
a/project/List.html.pl
b/project/List.html.pl
index
9cffbf4
..
fc149c9
100755
(executable)
--- a/
project/List.html.pl
+++ b/
project/List.html.pl
@@
-37,8
+37,8
@@
My::Web->init(
"args_check"=>{
"platform"=>'^(?:platform)?$',
},
"args_check"=>{
"platform"=>'^(?:platform)?$',
},
- "rel_up"=>top_dir(),
- "rel_start"=>top_dir(),
+# "rel_up"=>top_dir(), # TODO:homepage
+# "rel_start"=>top_dir(), # TODO:homepage
"footer_ids"=>0,
);
My::Web->heading();
"footer_ids"=>0,
);
My::Web->heading();
@@
-112,6
+112,7
@@
my($platform)=@_;
my $order_by=$order_by;
my $minus=($order_by=~s/^(-)//)[0];
# FIXME: 'cmp' or '<=>'?
my $order_by=$order_by;
my $minus=($order_by=~s/^(-)//)[0];
# FIXME: 'cmp' or '<=>'?
+ # Currently it complains on "name" not <=>able if two projects have the same 'priority'.
my $r=($item{$a}{$order_by} <=> $item{$b}{$order_by});
$r=-$r if $minus;
return $r if $r;
my $r=($item{$a}{$order_by} <=> $item{$b}{$order_by});
$r=-$r if $minus;
return $r if $r;