From: Sven Schöling <s.schoeling@linet-services.de>
Date: Thu, 22 Oct 2009 15:01:05 +0000 (+0200)
Subject: installationcheck strict
X-Git-Tag: release-2.6.1beta1~180
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=0516b4cdce2258a4446b7013521a76c7afb4d1d8;p=kivitendo-erp.git

installationcheck strict
---

diff --git a/bin/mozilla/installationcheck.pl b/bin/mozilla/installationcheck.pl
index 71f3c01c8..54a9211a5 100644
--- a/bin/mozilla/installationcheck.pl
+++ b/bin/mozilla/installationcheck.pl
@@ -1,10 +1,14 @@
 use SL::InstallationCheck;
 
+use strict;
+
 sub verify_installation {
   my $script = $0;
   $script =~ s|.*/||;
 
-  return unless ($form{"action"} && ($script eq "login.pl"));
+  my $form     = $main::form;
+
+  return unless ($form->{"action"} && ($script eq "login.pl"));
 
   SL::InstallationCheck::check_for_conditional_dependencies();
 
@@ -12,7 +16,7 @@ sub verify_installation {
   return if (scalar(@missing_modules) == 0);
 
   use SL::Locale;
-  my $locale = new Locale($language, "installationcheck");
+  my $locale = new Locale($main::language, "installationcheck");
 
   print(qq|content-type: text/html