diff --git a/C4/Members/Messaging.pm b/C4/Members/Messaging.pm index 6be8347ee2..98a7f4aade 100644 --- a/C4/Members/Messaging.pm +++ b/C4/Members/Messaging.pm @@ -217,6 +217,9 @@ END_SQL } my @return = values %$choices; + + @return = sort { $a->{message_attribute_id} <=> $b->{message_attribute_id} } @return; + # warn( Data::Dumper->Dump( [ \@return ], [ 'return' ] ) ); return \@return; }