use sorted keys on SQL update statement

make sure, sorted keys are used for query and binding variable.

lib/calcms/user_settings.pm

@@ -189,8 +189,9 @@ sub update($$) {
     return unless ( defined $entry->{user} );
 
     my $dbh         = db::connect($config);
-    my $values      = join( ",", map { $_ . '=?' } ( keys %$entry ) );
-    my @bind_values = map { $entry->{$_} } ( keys %$entry );
+    my @keys        = sort keys %$entry;
+    my $values      = join( ",", map { $_ . '=?' } @keys );
+    my @bind_values = map { $entry->{$_} } @keys;
     push @bind_values, $entry->{user};
 
     my $query = qq{