From 072d299d85184192341ba0a520209ffe31b6bb66 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Sven=20Sch=C3=B6ling?= <s.schoeling@linet-services.de>
Date: Mon, 17 Oct 2011 12:09:27 +0200
Subject: [PATCH] Parameter extra_code von form->header auf %params
 ungeschrieben

---
 SL/Form.pm            | 4 ++--
 bin/mozilla/menuv3.pl | 2 +-
 bin/mozilla/menuv4.pl | 2 +-
 3 files changed, 4 insertions(+), 4 deletions(-)

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();
-- 
2.20.1