From: Sven Schöling <s.schoeling@linet-services.de>
Date: Mon, 17 Oct 2011 10:09:27 +0000 (+0200)
Subject: Parameter extra_code von form->header auf %params ungeschrieben
X-Git-Tag: release-2.7.0beta1~215^2~7
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=072d299d85184192341ba0a520209ffe31b6bb66;p=kivitendo-erp.git

Parameter extra_code von form->header auf %params ungeschrieben
---

diff --git a/SL/Form.pm b/SL/Form.pm
index c7539354c..624c01fc8 100644
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -674,7 +674,7 @@ sub header {
 
   # extra code is currently only used by menuv3 and menuv4 to set their css.
   # it is strongly deprecated, and will be changed in a future version.
-  my ($self, $extra_code) = @_;
+  my ($self, %params) = @_;
   my $db_charset = $::lx_office_conf{system}->{dbcharset} || Common::DEFAULT_CHARSET;
   my @header;
 
@@ -746,7 +746,7 @@ EOT
    ***********************************************/
 
   </script>
-  $extra_code
+  $params{extra_code}
   $title_hack
  </head>
 
diff --git a/bin/mozilla/menuv3.pl b/bin/mozilla/menuv3.pl
index d444b759e..121d76df0 100644
--- a/bin/mozilla/menuv3.pl
+++ b/bin/mozilla/menuv3.pl
@@ -44,7 +44,7 @@ use strict;
 sub display {
   my $form     = $main::form;
 
-  $form->header(qq|<link rel="stylesheet" href="css/menuv3.css?id=" type="text/css">|);
+  $form->header(extra_code => qq|<link rel="stylesheet" href="css/menuv3.css?id=" type="text/css">|);
 
   $form->{date}     = clock_line();
   $form->{menu}     = acc_menu();
diff --git a/bin/mozilla/menuv4.pl b/bin/mozilla/menuv4.pl
index ae82d45f8..e9e7ac499 100644
--- a/bin/mozilla/menuv4.pl
+++ b/bin/mozilla/menuv4.pl
@@ -44,7 +44,7 @@ use strict;
 sub display {
   my $form     = $main::form;
 
-  $form->header(qq|<link rel="stylesheet" href="css/menuv4.css?id=" type="text/css">|);
+  $form->header(extra_code => qq|<link rel="stylesheet" href="css/menuv4.css?id=" type="text/css">|);
 
   $form->{date}     = clock_line();
   $form->{menu}     = acc_menu();