X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/258119bf167d625d33dfe672d5379a0945e11f27..c607fb403082a05a5c9f16b084de5b99203bfad7:/bin/mozilla/io.pl

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;
   }