package SL::DBUpgrade2;
+use SL::Common;
+
require Exporter;
@ISA = qw(Exporter);
}
}
+ $control->{charset} ||= Common::DEFAULT_CHARSET;
+
_control_error($form, $file_name,
$locale->text("Missing 'tag' field."))
unless ($control->{"tag"});
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"),