Case insensitive sort
This commit is contained in:
parent
4613a14a9f
commit
50675af660
1 changed files with 7 additions and 1 deletions
|
@ -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;
|
||||
}
|
||||
|
|
Loading…
Add table
Reference in a new issue