X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Famtemplates.pl;h=3b32e96bbe958c525b35aed65443730382f35847;hb=da202b2d715a4c3f8b24a1f7bd3dbfebb14d0ce0;hp=9843f82b1eae32fb8e4906b2f5769f7fd0cbced4;hpb=ee8587932b06e3596c1533ce01b7760e1586789e;p=kivitendo-erp.git

diff --git a/bin/mozilla/amtemplates.pl b/bin/mozilla/amtemplates.pl
index 9843f82b1..3b32e96bb 100644
--- a/bin/mozilla/amtemplates.pl
+++ b/bin/mozilla/amtemplates.pl
@@ -36,6 +36,8 @@ use SL::Form;
 
 use Data::Dumper;
 
+use strict;
+
 1;
 
 require "bin/mozilla/common.pl";
@@ -43,43 +45,51 @@ require "bin/mozilla/common.pl";
 # end of main
 
 sub display {
-  call_sub($form->{display_nextsub});
+  call_sub($main::form->{display_nextsub});
 }
 
 sub save {
-  call_sub($form->{save_nextsub});
+  call_sub($main::form->{save_nextsub});
 }
 
 sub edit {
-  call_sub($form->{edit_nextsub});
+  call_sub($main::form->{edit_nextsub});
 }
 
 sub display_template {
-  $lxdebug->enter_sub();
+  $main::lxdebug->enter_sub();
+
+  my $form     = $main::form;
 
-  $auth->assert('config');
+  $main::auth->assert('config');
 
   $form->{edit} = 0;
   display_template_form();
 
-  $lxdebug->leave_sub();
+  $main::lxdebug->leave_sub();
 }
 
 sub edit_template {
-  $lxdebug->enter_sub();
+  $main::lxdebug->enter_sub();
+
+  my $form     = $main::form;
 
-  $auth->assert('config');
+  $main::auth->assert('config');
 
   $form->{edit} = 1;
   display_template_form();
 
-  $lxdebug->leave_sub();
+  $main::lxdebug->leave_sub();
 }
 
 sub save_template {
-  $lxdebug->enter_sub();
+  $main::lxdebug->enter_sub();
 
-  $auth->assert('config');
+  my $form     = $main::form;
+  my %myconfig = %main::myconfig;
+  my $locale   = $main::locale;
+
+  $main::auth->assert('config');
 
   $form->isblank("formname", $locale->text("You're not editing a file.")) unless ($form->{type} eq "stylesheet");
 
@@ -91,13 +101,17 @@ sub save_template {
   $form->{edit} = 0;
   display_template_form();
 
-  $lxdebug->leave_sub();
+  $main::lxdebug->leave_sub();
 }
 
 sub display_template_form {
-  $lxdebug->enter_sub();
+  $main::lxdebug->enter_sub();
+
+  my $form     = $main::form;
+  my %myconfig = %main::myconfig;
+  my $locale   = $main::locale;
 
-  $auth->assert('config');
+  $main::auth->assert('config');
 
   $form->{"formname"} =~ s|.*/||;
   my $format = $form->{"format"} eq "html" ? "html" : "tex";
@@ -121,29 +135,29 @@ sub display_template_form {
 
     my %formname_setup =
       (
-        "balance_sheet" => { "translation" => $locale->text('Balance Sheet'), "html" => 1 },
-        "bin_list" => $locale->text('Bin List'),
-        "bwa" => { "translation" => $locale->text('BWA'), "html" => 1 },
-        "check" => { "translation" => $locale->text('Check'), "html" => 1 },
-        "credit_note" => $locale->text('Credit Note'),
-        "income_statement" => { "translation" => $locale->text('Income Statement'), "html" => 1 },
-        "invoice" => $locale->text('Invoice'),
-        "packing_list" => $locale->text('Packing List'),
-        "pick_list" => $locale->text('Pick List'),
-        "proforma" => $locale->text('Proforma Invoice'),
-        "purchase_order" => $locale->text('Purchase Order'),
-        "receipt" => { "translation" => $locale->text('Receipt'), "tex" => 1 },
-        "request_quotation" => $locale->text('RFQ'),
-        "sales_order" => $locale->text('Confirmation'),
-        "sales_quotation" => $locale->text('Quotation'),
-        "statement" => $locale->text('Statement'),
-        "storno_invoice" => $locale->text('Storno Invoice'),
+#        "balance_sheet"       => { "translation" => $locale->text('Balance Sheet'), "html" => 1 },
+        "bin_list"            => $locale->text('Bin List'),
+        "bwa"                 => { "translation" => $locale->text('BWA'), "html" => 1 },
+        "check"               => { "translation" => $locale->text('Check'), "html" => 1 },
+        "credit_note"         => $locale->text('Credit Note'),
+        "income_statement"    => { "translation" => $locale->text('Income Statement'), "html" => 1 },
+        "invoice"             => $locale->text('Invoice'),
+        "packing_list"        => $locale->text('Packing List'),
+        "pick_list"           => $locale->text('Pick List'),
+        "proforma"            => $locale->text('Proforma Invoice'),
+        "purchase_order"      => $locale->text('Purchase Order'),
+        "receipt"             => { "translation" => $locale->text('Receipt'), "tex" => 1 },
+        "request_quotation"   => $locale->text('RFQ'),
+        "sales_order"         => $locale->text('Confirmation'),
+        "sales_quotation"     => $locale->text('Quotation'),
+        "statement"           => $locale->text('Statement'),
+        "storno_invoice"      => $locale->text('Storno Invoice'),
         "storno_packing_list" => $locale->text('Storno Packing List'),
-        "ustva-2004" => { "translation" => $locale->text("USTVA 2004"), "tex" => 1 },
-        "ustva-2005" => { "translation" => $locale->text("USTVA 2005"), "tex" => 1 },
-        "ustva-2006" => { "translation" => $locale->text("USTVA 2006"), "tex" => 1 },
-        "ustva-2007" => { "translation" => $locale->text("USTVA 2007"), "tex" => 1 },
-        "ustva" => $locale->text("USTVA"),
+        "ustva-2004"          => { "translation" => $locale->text("USTVA 2004"), "tex" => 1 },
+        "ustva-2005"          => { "translation" => $locale->text("USTVA 2005"), "tex" => 1 },
+        "ustva-2006"          => { "translation" => $locale->text("USTVA 2006"), "tex" => 1 },
+        "ustva-2007"          => { "translation" => $locale->text("USTVA 2007"), "tex" => 1 },
+        "ustva"               => $locale->text("USTVA"),
       );
 
     my (@values, $file, $setup);
@@ -233,7 +247,7 @@ sub display_template_form {
   $form->header;
   print($form->parse_html_template("am/edit_templates", \%options));
 
-  $lxdebug->leave_sub();
+  $main::lxdebug->leave_sub();
 }
 
 1;