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;