return if (scalar(@missing_modules) == 0);
use SL::Locale;
- my $locale = new Locale($main::language, "installationcheck");
+
+ my $locale = Locale->new($::lx_office_conf{system}->{language}, "installationcheck");
print(qq|content-type: text/html
<html>
<head>
<link rel="stylesheet" href="css/lx-office-erp.css" type="text/css"
- title="Lx-Office stylesheet">
+ title="kivitendo stylesheet">
<title>| . $locale->text("One or more Perl modules missing") . qq|</title>
</head>
<body>
<h1>| . $locale->text("One or more Perl modules missing") . qq|</h1>
- <p>| . $locale->text("At least one Perl module that Lx-Office ERP " .
+ <p>| . $locale->text("At least one Perl module that kivitendo ERP " .
"requires for running is not installed on your " .
"system.") .
" " .
" " .
$locale->text("Here's an example command line:") . qq|</p>
- <p><code>perl -MCPAN -e "install CGI::Ajax"</code></p>
+ <p><code>perl -MCPAN -e "install Config::Std"</code></p>
<p>| . $locale->text("The third way is to download the module from the " .
"above mentioned URL and to install the module " .
</body>
</html>
|);
- exit(0);
+
+ $::dispatcher->end_request;
}
1;