use sorted keys on SQL update statement

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

lib/calcms/project.pm

@@ -134,8 +134,9 @@ sub update($$) {
 
     $entry->{image} = images::normalizeName( $entry->{image} ) if defined $entry->{image};
 
-    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->{project_id};
 
     my $query = qq{