X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FDBUpgrade2.pm;h=66ce85f9c1c3d9e9b6847a75c29027b87ffd5a92;hb=1bfdd83b1ba9b0dca96105be0a32ff3ea9794584;hp=b63b749036b34856afb54317fd4bb1a844bc0483;hpb=ad876674a8f9f132739884692b1aa0bb87859e89;p=kivitendo-erp.git

diff --git a/SL/DBUpgrade2.pm b/SL/DBUpgrade2.pm
index b63b74903..66ce85f9c 100644
--- a/SL/DBUpgrade2.pm
+++ b/SL/DBUpgrade2.pm
@@ -1,5 +1,7 @@
 package SL::DBUpgrade2;
 
+use SL::Common;
+
 require Exporter;
 @ISA = qw(Exporter);
 
@@ -45,6 +47,8 @@ sub parse_dbupdate_controls {
       }
     }
 
+    $control->{charset} ||= Common::DEFAULT_CHARSET;
+
     _control_error($form, $file_name,
                    $locale->text("Missing 'tag' field."))
       unless ($control->{"tag"});
@@ -122,7 +126,7 @@ sub _check_for_loops {
 sub _control_error {
   my ($form, $file_name, $message) = @_;
 
-  my $form = $main::form;
+  $form = $main::form;
   my $locale = $main::locale;
 
   $form->error(sprintf($locale->text("Error in database control file '%s': %s"),