Parameter extra_code von form->header auf %params ungeschrieben

diff --git a/SL/Form.pm b/SL/Form.pm
index c753935..624c01f 100644 (file)
--- 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 d444b75..121d76d 100644 (file)
--- 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 ae82d45..e9e7ac4 100644 (file)
--- 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();