+field "priority"

[www.jankratochvil.net.git] / project / list.cgi.pl

diff --git a/project/list.cgi.pl b/project/list.cgi.pl
index ab24a25..be9dd21 100755 (executable)
--- a/project/list.cgi.pl
+++ b/project/list.cgi.pl
@@ -83,7 +83,7 @@ for my $dir (keys(%dirs)) {
 # $col{"name"}{""}="Project name";
 # @col_order
 
-my @row_order;
+my @row_order=qw(-priority);
 my @col_order=qw(name summary license maintenance language);
 my %col;
 
@@ -127,7 +127,10 @@ print '<table border="1">'."\n";
        print '</tr>'."\n";
        my @rows_ordered=sort {
                        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});
+                               $r=-$r if $minus;
                                return $r if $r;
                                }
                        return 0;