bitlair/revbank
6
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Case insensitive sort

Browse source
This commit is contained in:
Juerd Waalboer 2022-11-01 04:50:52 +01:00
parent 4613a14a9f
commit 50675af660
1 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

8
plugins/users
View file

@ -31,7 +31,13 @@ sub hook_checkout($class, $cart, $user, $transaction_id, @) {
sub list($self) {
require RevBank::TextEditor;
my $list = join "", sort grep !/^[-+]/, slurp("revbank.accounts");
my $list = join "", sort {
lc($a) cmp lc($b)
} grep {
!/^[-+]/
} slurp("revbank.accounts");
RevBank::TextEditor::pager("RevBank account list", $list);
return ACCEPT;
}