X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/9d5127ddfa3e7c7404a7c1910bca89511c609633..e84dabe016b9d9684c60fbafab2f7bb8d73da354:/SL/DBUpgrade2.pm?ds=sidebyside diff --git a/SL/DBUpgrade2.pm b/SL/DBUpgrade2.pm index 6d0b207a7..283e5a4a3 100644 --- a/SL/DBUpgrade2.pm +++ b/SL/DBUpgrade2.pm @@ -59,6 +59,7 @@ sub parse_dbupdate_controls { my $control = { "priority" => 1000, "depends" => [], + "locales" => [], }; while () { @@ -73,6 +74,8 @@ sub parse_dbupdate_controls { if ($fields[0] eq "depends") { push(@{$control->{"depends"}}, split(/\s+/, $fields[1])); + } elsif ($fields[0] eq "locales") { + push @{$control->{locales}}, $fields[1]; } else { $control->{$fields[0]} = $fields[1]; }