event.cgi: increase reproducable results

This commit is contained in:
Milan
2020-12-21 13:05:10 +01:00
parent 21e861153b
commit b626b2a558

View File

@@ -6,7 +6,7 @@ no warnings 'redefine';
use Encode(); use Encode();
use Data::Dumper; use Data::Dumper;
$Data::Dumper::SortKeys=1; $Data::Dumper::Sortkeys = 1;
use MIME::Base64(); use MIME::Base64();
use Encode::Locale(); use Encode::Locale();
@@ -294,7 +294,7 @@ sub show_event {
$params->{'allow'}->{$permission} = $permissions->{$permission}; $params->{'allow'}->{$permission} = $permissions->{$permission};
} }
for my $key ( keys %$event ) { for my $key (sort keys %$event ) {
$params->{$key} = $event->{$key}; $params->{$key} = $event->{$key};
} }
$params->{event_edited} = 1 $params->{event_edited} = 1