diff options
author | dakkar <dakkar@thenautilus.net> | 2015-03-08 17:21:51 +0000 |
---|---|---|
committer | dakkar <dakkar@thenautilus.net> | 2015-03-08 17:21:51 +0000 |
commit | 3e89ef6040b3ba87d12c4d130dfc3dee79b5eaf5 (patch) | |
tree | 270a82c0416708c665e8af400896e4ab8a9c4042 | |
parent | fix estr uri escaping unsafe set (diff) | |
download | WebCoso-3e89ef6040b3ba87d12c4d130dfc3dee79b5eaf5.tar.gz WebCoso-3e89ef6040b3ba87d12c4d130dfc3dee79b5eaf5.tar.bz2 WebCoso-3e89ef6040b3ba87d12c4d130dfc3dee79b5eaf5.zip |
add (n)sortf for arrays
-rw-r--r-- | lib/WebCoso/TT.pm | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/lib/WebCoso/TT.pm b/lib/WebCoso/TT.pm index 50b28a3..923877c 100644 --- a/lib/WebCoso/TT.pm +++ b/lib/WebCoso/TT.pm @@ -29,6 +29,18 @@ $Template::Stash::HASH_OPS->{nsortf}=sub { } }; +$Template::Stash::LIST_OPS->{sortf}=sub { + my ($array,$field)=@_; + + return [ sort { lc $a->{$field} cmp lc $b->{$field} } @$array ]; +}; + +$Template::Stash::LIST_OPS->{nsortf}=sub { + my ($array,$field)=@_; + + return [ sort { $a->{$field} <=> $b->{$field} } @$array ]; +}; + sub new { my ($class,%opts)=@_; |