Shame: negative amounts in red, sort.

This commit is contained in:
Juerd Waalboer 2013-02-26 14:50:47 +01:00
parent 2020bfea20
commit cf266153da

View file

@ -38,7 +38,7 @@ sub list {
}
sub shame {
system "sort -f revbank.accounts | grep -v ^# | grep -- ' .-' | more";
system "sort -k2 -n revbank.accounts | grep -v ^# | grep -- ' -' | perl -pe's/( -[\\d.]+)/\\e[31;1m\$1\\e[0m/' | more";
return ACCEPT;
}