Model::Users:Meesage: select() returns sorted result

diff --git a/src/newslash_web/lib/Newslash/Model/Users/Messages.pm b/src/newslash_web/lib/Newslash/Model/Users/Messages.pm
index 63d9f13..4ce8206 100644 (file)
--- a/src/newslash_web/lib/Newslash/Model/Users/Messages.pm
+++ b/src/newslash_web/lib/Newslash/Model/Users/Messages.pm
@@ -1,5 +1,6 @@
 package Newslash::Model::Users::Messages;
 use Newslash::Model::Base -base;
+use Data::Dumper;
 
 sub key_definition {
     return {
@@ -54,7 +55,7 @@ sub select {
     }
 
     # all for uid query
-    my $settings =  $self->generic_select(params => {uid => $uid});
+    my $settings =  $self->generic_select(params => {uid => $uid, order_by => {code => "ASC"} });
     return if !defined $settings;
 
     for my $st (@$settings) {
@@ -65,7 +66,8 @@ sub select {
     }
 
     my @rs = values %$code_table;
-    return \@rs;
+    my @sorted_rs = sort { $a->{code} <=> $b->{code} } @rs;
+    return \@sorted_rs;
 }
 
 sub _is_mode_allowed {