X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/b251cc22f355941217493073e124ba3878d5530f..0f15cf8a2fc968fe19bea1d678f961a23b6fe947:/scripts/migrate_menu.pl diff --git a/scripts/migrate_menu.pl b/scripts/migrate_menu.pl index a0cdae80d..89e5abe17 100644 --- a/scripts/migrate_menu.pl +++ b/scripts/migrate_menu.pl @@ -64,6 +64,13 @@ sub translate_to_yaml { delete $item->{submenu}; } + #sanitize those stupid menu inlinks + if ($item->{module} eq 'menu.pl') { + delete $item->{module}; + delete $item->{action}; + delete $item->{target}; + } + # sanitize INSTANCE_CONF if ($item->{INSTANCE_CONF}) { my $instance_conf = delete $item->{INSTANCE_CONF}; @@ -143,9 +150,9 @@ sub yaml_dump { my $first = 0; for my $key (@order) { next unless exists $node->{$key}; - $yaml .= ($first++ ? ' ' : '- ') . $key . ": "; + $yaml .= ($first++ ? ' ' : '- ') . $key . ":"; if (!ref $node->{$key}) { - $yaml .= $node->{$key} . "\n"; + $yaml .= ' ' . $node->{$key} . "\n"; } else { $yaml .= "\n"; for ('action', grep !/^action$/, keys %{ $node->{$key} }) {