From: Sven Schöling <s.schoeling@linet-services.de>
Date: Mon, 15 Jun 2015 13:47:29 +0000 (+0200)
Subject: Indirekte Objektnotation fixen
X-Git-Tag: release-3.3.0beta~49
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=c607fb403082a05a5c9f16b084de5b99203bfad7;p=kivitendo-erp.git

Indirekte Objektnotation fixen
---

diff --git a/SL/Form.pm b/SL/Form.pm
index 583a0a1db..b0433bddd 100644
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -1125,7 +1125,7 @@ sub parse_template {
 
   if ($self->{media} eq 'email') {
 
-    my $mail = new Mailer;
+    my $mail = Mailer->new;
 
     map { $mail->{$_} = $self->{$_} }
       qw(cc bcc subject message version format);
diff --git a/bin/mozilla/do.pl b/bin/mozilla/do.pl
index 764a84d71..6b72eeeb0 100644
--- a/bin/mozilla/do.pl
+++ b/bin/mozilla/do.pl
@@ -828,7 +828,7 @@ sub invoice {
   $form->{type} = "invoice";
 
   # locale messages
-  $main::locale = new Locale "$myconfig{countrycode}", "$script";
+  $main::locale = Locale->new("$myconfig{countrycode}", "$script");
   $locale = $main::locale;
 
   require "bin/mozilla/$form->{script}";
@@ -975,7 +975,7 @@ sub invoice_multi {
   }
   delete $form->{form_details};
 
-  $locale = new Locale "$myconfig{countrycode}", "$script";
+  $locale = Locale->new("$myconfig{countrycode}", "$script");
 
   require "bin/mozilla/$form->{script}";
 
diff --git a/bin/mozilla/installationcheck.pl b/bin/mozilla/installationcheck.pl
index 869177b0c..fdffa64f0 100644
--- a/bin/mozilla/installationcheck.pl
+++ b/bin/mozilla/installationcheck.pl
@@ -17,7 +17,7 @@ sub verify_installation {
 
   use SL::Locale;
 
-  my $locale = new Locale($::lx_office_conf{system}->{language}, "installationcheck");
+  my $locale = Locale->new($::lx_office_conf{system}->{language}, "installationcheck");
 
   print(qq|content-type: text/html
 
diff --git a/bin/mozilla/io.pl b/bin/mozilla/io.pl
index febe26776..a050e746a 100644
--- a/bin/mozilla/io.pl
+++ b/bin/mozilla/io.pl
@@ -918,7 +918,7 @@ sub order {
   my $script = $form->{"script"};
   $script =~ s|.*/||;
   $script =~ s|.pl$||;
-  $locale = new Locale($::lx_office_conf{system}->{language}, $script);
+  $locale = Locale->new($::lx_office_conf{system}->{language}, $script);
 
   map { $form->{"select$_"} = "" } ($form->{vc}, "currency");
 
@@ -1247,7 +1247,7 @@ sub print {
     $form->error($locale->text('Select postscript or PDF!'))
       if ($form->{format} !~ /(postscript|pdf)/);
 
-    $old_form = new Form;
+    $old_form = Form->new;
     map { $old_form->{$_} = $form->{$_} } keys %$form;
   }
 
diff --git a/bin/mozilla/is.pl b/bin/mozilla/is.pl
index a83f77180..5f23c8ea8 100644
--- a/bin/mozilla/is.pl
+++ b/bin/mozilla/is.pl
@@ -842,7 +842,7 @@ sub print_and_post {
 
   $main::auth->assert('invoice_edit');
 
-  my $old_form                    = new Form;
+  my $old_form                    = Form->new;
   $form->{no_redirect_after_post} = 1;
   $form->{print_and_post}         = 1;
   &post();
@@ -933,7 +933,7 @@ sub preview {
   $main::auth->assert('invoice_edit');
 
   $form->{preview} = 1;
-  my $old_form = new Form;
+  my $old_form = Form->new;
   for (keys %$form) { $old_form->{$_} = $form->{$_} }
 
   &print_form($old_form);
diff --git a/bin/mozilla/oe.pl b/bin/mozilla/oe.pl
index 5984c859a..c3242ec29 100644
--- a/bin/mozilla/oe.pl
+++ b/bin/mozilla/oe.pl
@@ -1502,7 +1502,7 @@ sub invoice {
   $form->{type} = "invoice";
 
   # locale messages
-  $main::locale = new Locale "$myconfig{countrycode}", "$script";
+  $main::locale = Locale->new("$myconfig{countrycode}", "$script");
   $locale = $main::locale;
 
   require "bin/mozilla/$form->{script}";